Classic ASP

Encrypt Already Existing Zip

To encrypt an already existing non-encrypted .zip, the application must open the .zip, set the encryption related properties, and then re-write.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

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

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

set zip = Server.CreateObject("Chilkat.Zip")

' Open an unencrypted .zip
success = zip.OpenZip("qa_data/zips/test.zip")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Unzip to a temp directory.
numFilesUnzipped = zip.Unzip("qa_output/tmp")
If (numFilesUnzipped < 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Clear the zip object.
success = zip.NewZip("qa_output/aesTest.zip")

' Indicate that 128-bit AES encryption is to be used when writing the .zip
zip.Encryption = 4
zip.EncryptKeyLength = 128

' Set the password.
zip.EncryptPassword = "secret"

' Append the files.
zip.AppendFromDir = "qa_output/tmp"
success = zip.AppendFiles("*.*",1)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Write the .zip and close it.
success = zip.WriteZipAndClose()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

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

%>
</body>
</html>