(PowerBuilder) Open a Zip Archive

See more Zip Examples

Demonstrates how to open a zip, or an encrypted .zip, or a legacy password-protected .zip.

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

integer li_rc
oleobject loo_Zip
integer li_Success

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

// Open a non-encrypted .zip
li_Success = loo_Zip.OpenZip("qa_data/zips/sample.zip")
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

Write-Debug "Num entries = " + string(loo_Zip.NumEntries)

// ...
// ...

loo_Zip.CloseZip()

// ----------------------------------------------------------------------------
// Open an encrypted zip...

// The two main types of encryption used in ZIP archives are Password-Protected and AES.
// 

// ---------------------------------------
// 1. Legacy Password-Protected Zip
// 
// This is the older and less secure method of encrypting ZIP archives. 
// It provides a basic level of security, but is considered weak by modern standards. 
// It is vulnerable to various attacks, including known-plaintext attacks and brute force attacks.
// Although Chilkat allows it, you shouldn't create new zip archives using legacy password-protection.

// ---------------------------------------
// 2. AES Encrypted Zip
// 
// AES encryption is a more modern and secure method for encrypting ZIP archives. 
// It provides strong encryption based on the AES algorithm, which is widely regarded as secure. 
// AES supports different key lengths, typically 128-bit, 192-bit, and 256-bit.

// When opening an encrypted zip, your application only needs to provide the correct password.
// The information about the type of encryption and the key length (if AES) is already embedded within the encrypted .zip.

// Provide the decrypt password because we are opening an existing .zip (decrypting)
loo_Zip.DecryptPassword = "thePassword"

li_Success = loo_Zip.OpenZip("qa_data/zips/encryptedSamples/ziptest_256.zip")
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

Write-Debug "Num entries = " + string(loo_Zip.NumEntries)

// ...
// ...

loo_Zip.CloseZip()


destroy loo_Zip