hkp
Member Since 14 May 2009Offline Last Active Feb 16 2010 09:54 PM
Posts I've Made
Recommended from our users: Dynamic Network Monitoring from WhatsUp Gold from IPSwitch. Free Download
hkp hasn't added any friends yet.
04 June 2009 - 11:16 PM
04 June 2009 - 10:55 PM
03 June 2009 - 09:39 PM
02 June 2009 - 10:06 PM
01 June 2009 - 09:27 PM
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set crypt = Server.CreateObject("Chilkat.Crypt2") success = crypt.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode("Crypt component unlock failed") & "</pre>" End If password = "secretPassPhrase" crypt.CryptAlgorithm = "aes" crypt.CipherMode = "cbc" crypt.KeyLength = 128 ' Generate a binary secret key from a password string ' of any length. For 128-bit encryption, GenEncodedSecretKey ' generates the MD5 hash of the password and returns it ' in the encoded form requested. The 2nd param can be ' "hex", "base64", "url", "quoted-printable", etc. hexKey = crypt.GenEncodedSecretKey(password,"hex") crypt.SetEncodedKey hexKey,"hex" crypt.EncodingMode = "base64" text = "The quick brown fox jumped over the lazy dog." ' Encrypt a string and return the binary encrypted data ' in a base-64 encoded string. encText = crypt.EncryptStringENC(text) Response.Write "<pre>" & Server.HTMLEncode( encText) & "</pre>" ' Decrypt and show the original string: decryptedText = crypt.DecryptStringENC(encText) Response.Write "<pre>" & Server.HTMLEncode( decryptedText) & "</pre>" %> </body> </html>