Remove Zip Encryption

Opens an encrypted zip archive and rewrites it with no encrypton.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set zip = Server.CreateObject("Chilkat_9_5_0.Zip")

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(zip.LastErrorText) & "</pre>"

End If

'  An encrypted .zip may be "opened" without providing a
'  password.  However, the contents cannot be unzipped
'  without setting the DecryptPassword property.
success = zip.OpenZip("myEncrypted.zip")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(zip.LastErrorText) & "</pre>"

End If

'  Set the DecryptPassword property:
zip.DecryptPassword = "myPassword"

'  Indicate that when the zip is to be written again,
'  it should be neither AES encrypted, or password-protected
'  (i.e. older Zip 2.0 encryption)
zip.Encryption = 0
zip.PasswordProtect = 0

'  Set the filename of the new unencrypted .zip to be written:
zip.FileName = "unencrypted.zip"

'  Write the unencrypted .zip
'  What happens during WriteZipAndClose?  --
'  The encrypted entries from myEncrypted.zip are streamed in,
'  decrypted, and then written out directly into unencrypted.zip
'  In other words, internally the component is smart enough
'  to stream the data from the existing .zip to the new .zip
'  automatically, decrypting in the process..
success = zip.WriteZipAndClose()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(zip.LastErrorText) & "</pre>"

End If

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

%>
</body>
</html>