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

Creates a WinZip compatible AES-encrypted .zip archive

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim zip As New Chilkat.Zip

Dim success As Boolean
success = zip.NewZip("/myZipDir/aes.zip")
If (success <> True) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

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

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

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

// Set the password for AES encryption:
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.)
Dim recurse As Boolean
recurse = True
success = zip.AppendFiles("c:/temp/a/*",recurse)
If (success <> True) Then
    System.DebugLog(zip.LastErrorText)
    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).  
Dim success As Boolean
success = zip.WriteZipAndClose()
If (success <> True) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

System.DebugLog("Created AES Encrypted Zip.")