|
ASP Sample
' create CryptoWeb object
Set oCrypt = CreateObject("CryptoWEB.Functions")
' set the encryption mode
oCrypt.HashingType = CRYPT_MD5
oCrypt.EncryptionType = CRYPT_RC4
' set the password
oCrypt.Password = "mypassword"
' encrypt/decrypt sample
sEncrypt = oCrypt.Encrypt("mystring", True) ' return in hex
sDescrypt = oCrypt.Decrypt(sEncrypt, True) ' decrypt from hex
' free resources
Set oCrypt = Nothing
|


|