Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
File Encryption / DecryptionFile-to-file encryption in ASP using AES, Blowfish, RC2, ARC4, or 3DES.
<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 "Crypt component unlock failed" & "<br>" End If crypt.CryptAlgorithm = "aes" crypt.CipherMode = "cbc" crypt.KeyLength = 128 ' 16 bytes of key for 128-bit encryption. key = "1234567890123456" ' The IV is equal to the block size of the encryption algorithm. iv = "1234567890123456" ' Set the key. crypt.SetEncodedKey key,"ascii" ' Set the IV crypt.SetEncodedIV iv,"ascii" ' AES Encrypt the file (the file may be any size because it will ' stream the file in/out. success = crypt.CkEncryptFile("hamlet.xml","aesEncrypted.dat") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If ' AES Decrypt the file (the file may be any size because it will ' stream the file in/out. success = crypt.CkDecryptFile("aesEncrypted.dat","hamlet_aes.xml") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If Response.Write "AES File Encryption Success." & "<br>" ' Now do 3DES file encryption: ' To use Triple-DES, set the algorithm = "des", ' and the key length = 168. ' To use DES, set the key length = 56 bits. crypt.CryptAlgorithm = "des" crypt.CipherMode = "cbc" crypt.KeyLength = 168 ' 3DES Encrypt the file success = crypt.CkEncryptFile("hamlet.xml","tripleDesEncrypted.dat") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If ' 3DES Decrypt the file success = crypt.CkDecryptFile("tripleDesEncrypted.dat","hamlet_3des.xml") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If Response.Write "3DES File Encryption Success." & "<br>" ' Do Blowfish file encryption: ' To use Blowfish, set the algorithm = "blowfish2". ' The original Chilkat "blowfish" implementation outputs ' 4321 swapped bytes. "blowfish2" output is in the correct ' byte order. crypt.CryptAlgorithm = "blowfish2" crypt.CipherMode = "cbc" crypt.KeyLength = 128 ' Blowfish Encrypt the file success = crypt.CkEncryptFile("hamlet.xml","blowfishEncrypted.dat") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If ' Blowfish Decrypt the file success = crypt.CkDecryptFile("blowfishEncrypted.dat","hamlet_blowfish.xml") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If Response.Write "Blowfish File Encryption Success." & "<br>" ' Do RC2 file encryption: ' To use RC2, set the algorithm = "rc2". ' Also, set the Rc2EffectiveKeyLength property. crypt.CryptAlgorithm = "rc2" crypt.CipherMode = "cbc" ' Key length and effective key length should range ' from 8 to 1024 bits. crypt.KeyLength = 128 crypt.Rc2EffectiveKeyLength = 128 ' RC2 Encrypt the file success = crypt.CkEncryptFile("hamlet.xml","rc2Encrypted.dat") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If ' RC2 Decrypt the file success = crypt.CkDecryptFile("rc2Encrypted.dat","hamlet_rc2.xml") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If Response.Write "RC2 File Encryption Success." & "<br>" ' Do ARC4 file encryption: ' To use ARC4, set the algorithm = "arc4". crypt.CryptAlgorithm = "arc4" crypt.KeyLength = 128 ' ARC4 Encrypt the file success = crypt.CkEncryptFile("hamlet.xml","arc4Encrypted.dat") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If ' ARC4 Decrypt the file success = crypt.CkDecryptFile("arc4Encrypted.dat","hamlet_arc4.xml") If (success <> 1) Then Response.Write crypt.LastErrorText & "<br>" End If Response.Write "ARC4 File Encryption Success." & "<br>" %> </body> </html> |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.