Remove Zip Encryption

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

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

LOCAL loZip
LOCAL lnSuccess

loZip = CreateObject('Chilkat.Zip2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loZip.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  An encrypted .zip may be "opened" without providing a
*  password.  However, the contents cannot be unzipped
*  without setting the DecryptPassword property.
lnSuccess = loZip.OpenZip("myEncrypted.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  Set the DecryptPassword property:
loZip.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)
loZip.Encryption = 0
loZip.PasswordProtect = 0

*  Set the filename of the new unencrypted .zip to be written:
loZip.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..
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

=MESSAGEBOX("OK!")