DECLARE	@vcr int,
	@res int,
	@cad varchar(80),
	@enc varchar(80),
	@des varchar(80),
	@pwd varchar(80)
SET	@cad = 'El veloz murciélago hindú'
SET	@pwd = 'secreto'
EXEC	@res = sp_OACreate 'VCrypto2.CEncriptador', @vcr OUTPUT
IF @res = 0 BEGIN
	EXEC	@res = sp_OAMethod @vcr, 'Encriptar', @enc OUTPUT, @cad, @pwd
	EXEC	@res = sp_OAMethod @vcr, 'Desencriptar', @des OUTPUT, @enc, @pwd
	EXEC	sp_OADestroy @vcr
	SELECT	@cad AS [Cadena original],
		@enc AS [Cadena encriptada],
		@des AS [Cadena desencriptada]
END