Si es necesaria mas información aquí les va:
el código es este:
Código:
Function CifrarDatos(ByVal cc_number)
Dim EncryptedData, cifrado
Set EncryptedData = server.CreateObject("CAPICOM.EncryptedData")
EncryptedData.SetSecret "laclavemaslarga"
EncryptedData.Content = cc_number
EncryptedData.Algorithm =CAPICOM_ENCRYPTION_ALGORITHM_AES
EncryptedData.Algorithm.KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS
cifrado=EncryptedData.Encrypt(CAPICOM_ENCODE_BASE64)
CifrarDatos = cifrado
End Function
Y como dato adicional... lo pruebo en una página de prueba con datos incluidos sin "Function" y si me devuelve el texto cifrado y descifrado.
