Xbase++

Create a WinZip/7-Zip compatible AES Encrypted Zip

See more Zip Examples

Creates a WinZip compatible AES-encrypted .zip archive Xbase++

LOCAL nSuccess
LOCAL oZip
LOCAL nRecurse

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oZip := CreateObject("Chilkat.Zip")

nSuccess := oZip:NewZip("/myZipDir/aes.zip")
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

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

//  A value of 4 indicates WinZip compatible AES encryption.
oZip:Encryption := 4

//  Key length can be 128, 192, or 256 bits.
oZip:EncryptKeyLength := 128

//  Set the password for AES encryption:
oZip: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.)
nRecurse := 1
nSuccess := oZip:AppendFiles("c:/temp/a/*", nRecurse)
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  Create the encrypted zip ("/myZipDir/aes.zip")
//  The path of the zip is what was originally passed
//  to the NewZip method (above).  
nSuccess := oZip:WriteZipAndClose()
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

? "Created AES Encrypted Zip."

oZip:destroy()