Open Zip and Save Password Protected
Open a .zip (non-encrypted) and then save it password-protected.
<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 zip.LastErrorText & "<br>"
End If
success = zip.OpenZip("test.zip")
If (success <> 1) Then
Response.Write zip.LastErrorText & "<br>"
End If
' Set a password and indicate that password protection
' should be used when writing the .zip
zip.EncryptPassword = "secret"
zip.PasswordProtect = 1
' Write the zip (overwrites test.zip)
success = zip.WriteZipAndClose()
If (success <> 1) Then
Response.Write zip.LastErrorText & "<br>"
End If
Response.Write "Zip Re-Written with Password Protection!" & "<br>"
%>
</body>
</html>
|
