Create a WinZip compatible AES Encrypted Zip

Creates a WinZip compatible AES-encrypted .zip archive

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
LOCAL lnRecurse

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
    ? loZip.LastErrorText
    QUIT
ENDIF

lnSuccess = loZip.NewZip("/myZipDir/aes.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    QUIT
ENDIF

*  Set properties to indicate that the Zip should be
*  AES encrypted.

*  A value of 4 indicates WinZip compatible AES encryption.
loZip.Encryption = 4

*  Key length can be 128, 192, or 256 bits.
loZip.EncryptKeyLength = 128

*  Set the password for AES encryption:
loZip.EncryptPassword = "myPassword"

*  Add a directory tree to be zipped.  (The files
*  are not compressed at this point -- only references
*  to the files and directories are added to the zip object.)

lnRecurse = 1
lnSuccess = loZip.AppendFiles("c:/temp/a/*",lnRecurse)
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    QUIT
ENDIF

*  Create the encrypted zip ("/myZipDir/aes.zip")
*  The path of the zip is what was originally passed
*  to the NewZip method (above).

lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    QUIT
ENDIF

=MESSAGEBOX("Created AES Encrypted Zip.")