Classic ASP

Compress and Encrypt a Large File (Low and Constant Memory Footprint)

Demonstrates how to compress and encrypt a large file such that the memory footprint remains low and constant.

Note: This example requires Chilkat v9.5.0.99 or greater.

Chilkat Classic ASP Downloads

Classic ASP

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

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

set compress = Server.CreateObject("Chilkat.Compression")
compress.Algorithm = "deflate"

' Set encryption params.
' The possible values are the same as for the corresponding properties in the Chilkat Crypt2 class/object.
' The encoded IV and Key must be specified as hex.
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.UpdateString("cryptAlgorithm","aes")
success = json.UpdateString("cipherMode","cbc")
success = json.UpdateInt("keyLength",128)
success = json.UpdateInt("paddingScheme",0)
success = json.UpdateString("encodedIV","000102030405060708090A0B0C0D0E0F")
success = json.UpdateString("encodedKey","000102030405060708090A0B0C0D0E0F")

' Do file-to-file compression+encryption in a single call.
inPath = "qa_data/largeFile.dat"
outPath = "c:/temp/qa_output/compressed_encrypted.dat"
success = compress.CompressEncryptFile(json,inPath,outPath)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( compress.LastErrorText) & "</pre>"
    Response.End
End If

' We can do file-to-file decrypt/decompress like this:
inPath2 = outPath
outPath2 = "c:/temp/qa_output/restored.dat"
success = compress.DecryptDecompressFile(json,inPath2,outPath2)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( compress.LastErrorText) & "</pre>"
    Response.End
End If

' Note: The above decrypt + decompress is the equivalent of doing the same in these two steps:
set crypt = Server.CreateObject("Chilkat.Crypt2")
crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "cbc"
crypt.KeyLength = 128
crypt.PaddingScheme = 0
crypt.SetEncodedIV "000102030405060708090A0B0C0D0E0F","hex"
crypt.SetEncodedKey "000102030405060708090A0B0C0D0E0F","hex"

decryptedPath = "c:/temp/qa_output/decrypted.dat"
success = crypt.CkDecryptFile(inPath2,decryptedPath)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"
    Response.End
End If

outPath3 = "c:/temp/qa_output/restored_in_two_steps.dat"
success = compress.DecompressFile(decryptedPath,outPath3)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( compress.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

%>
</body>
</html>