Open and Unzip an AES Encrypted Zip

Open and unzip an AES encrypted Zip.

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL lnUnzipCount

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

lnSuccess = loZip.OpenZip("aes.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  Set the password needed to unzip.
*  This password must match the password used when the zip
*  was created.
loZip.SetPassword("myPassword")

*  Returns the number of files and directories unzipped.
lnUnzipCount = loZip.Unzip("c:/temp/aesUnzippedDir/")
IF (lnUnzipCount < 0) THEN
    =MESSAGEBOX(loZip.LastErrorText)
ELSE
    =MESSAGEBOX("Success!")
ENDIF