PowerBuilder

Create a WinZip/7-Zip compatible AES Encrypted Zip

See more Zip Examples

Creates a WinZip compatible AES-encrypted .zip archive PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Zip
integer li_Recurse

li_Success = 0

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

loo_Zip = create oleobject
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")
if li_rc < 0 then
    destroy loo_Zip
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Zip.NewZip("/myZipDir/aes.zip")
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

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

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

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

// Set the password for AES encryption:
loo_Zip.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.)
li_Recurse = 1
li_Success = loo_Zip.AppendFiles("c:/temp/a/*",li_Recurse)
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

// Create the encrypted zip ("/myZipDir/aes.zip")
// The path of the zip is what was originally passed
// to the NewZip method (above).  
li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

Write-Debug "Created AES Encrypted Zip."


destroy loo_Zip