Classic ASP

Encrypt / Decrypt a File and Verify it has not Changed

Demonstrates how to encrypt and decrypt a file, and verify it has not changed.

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

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)

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>