(PowerBuilder) Creates an AES Encrypted Zip with One File Unencrypted

Demonstrates how to create an AES encrypted zip, but also containing one file that is not encrypted. The way we do it is to first create an AES encrypted zip in the usual way, and then we append an unecrypted file to it.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Zip
integer li_Success
oleobject loo_SaExclusions
integer li_Recurse
integer li_SaveExtraPath

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

loo_Zip = create oleobject
// Use "Chilkat_9_5_0.Zip" for versions of Chilkat < 10.0.0
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("qa_output/aes_with_one_unencrypted.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"

// Exclude the file helloWorld.txt
// This file will be added unencrypted to the .zip
loo_SaExclusions = create oleobject
// Use "Chilkat_9_5_0.StringArray" for versions of Chilkat < 10.0.0
li_rc = loo_SaExclusions.ConnectToNewObject("Chilkat.StringArray")

loo_SaExclusions.Append("helloWorld.txt")
loo_Zip.SetExclusions(loo_SaExclusions)

loo_Zip.VerboseLogging = 1

// Add a directory tree to be zipped.
li_Recurse = 1
// Append from a directory relative to our current working directory.
loo_Zip.AppendFromDir = "qa_data/filesToZip"
li_Success = loo_Zip.AppendFiles("*",li_Recurse)
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    destroy loo_SaExclusions
    return
end if

Write-Debug loo_Zip.LastErrorText

// Writes qa_output/aes_with_one_unencrypted.zip
li_Success = loo_Zip.WriteZipAndClose()
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    destroy loo_SaExclusions
    return
end if

// ----------------------------------------------
// At this point, we have an encrypted .zip with all 
// files except for helloWorld.txt.
// We'll add helloWorld.txt (unencrypted) to the .zip we just created.

// The NewZip method only initializes the Zip object -- it does
// not create or write a .zip file.

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

loo_SaExclusions.Clear()
loo_Zip.SetExclusions(loo_SaExclusions)

// No encryption.
loo_Zip.Encryption = 0

loo_Zip.AppendFromDir = "qa_data/filesToZip"

// Add a reference to a file.  This is the file that will
// be added to a already-existing .zip.  
li_SaveExtraPath = 0
li_Success = loo_Zip.AppendOneFileOrDir("helloWorld.txt",li_SaveExtraPath)
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    destroy loo_SaExclusions
    return
end if

// Appends the contents of the zip object to the preExisting.zip
// zip archive.  preExisting.zip is opened, and the files
// referenced by this zip object are streamed in, compressed,
// and appended to the end of the archive.
li_Success = loo_Zip.QuickAppend("qa_output/aes_with_one_unencrypted.zip")
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    destroy loo_SaExclusions
    return
end if

Write-Debug "Success!"


destroy loo_Zip
destroy loo_SaExclusions