|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Encrypt / Decrypt a File and Verify it has not ChangedDemonstrates how to encrypt and decrypt a file, and verify it has not changed.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2") set crypt = Server.CreateObject("Chilkat.Crypt2") crypt.CryptAlgorithm = "aes" crypt.CipherMode = "cbc" crypt.KeyLength = 128 crypt.PaddingScheme = 0 ivHex = "000102030405060708090A0B0C0D0E0F" crypt.SetEncodedIV ivHex,"hex" keyHex = "00010203040506071011121314151617" crypt.SetEncodedKey keyHex,"hex" dataFile = "qa_data/zips/HBIQ040615300005.ZIP" outFile = "qa_output/HBIQ040615300005.enc" outFile2 = "qa_output/HBIQ040615300005.ZIP" success = crypt.CkEncryptFile(dataFile,outFile) success = crypt.CkDecryptFile(outFile,outFile2) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess") set fac = Server.CreateObject("Chilkat.FileAccess") bEqual = fac.FileContentsEqual(dataFile,outFile2) If (bEqual <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "Decrypted file not equal to the original.") & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>" End If %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.