(Lianja) Create a WinZip/7-Zip compatible AES Encrypted Zip

Creates a WinZip compatible AES-encrypted .zip archive

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loZip = createobject("CkZip")

llSuccess = loZip.NewZip("/myZipDir/aes.zip")
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
    release loZip
    return
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.)
llRecurse = .T.
llSuccess = loZip.AppendFiles("c:/temp/a/*",llRecurse)
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
    release loZip
    return
endif

// Create the encrypted zip ("/myZipDir/aes.zip")
// The path of the zip is what was originally passed
// to the NewZip method (above).  
llSuccess = loZip.WriteZipAndClose()
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
    release loZip
    return
endif

? "Created AES Encrypted Zip."


release loZip