Tcl

Open a Zip Archive

See more Zip Examples

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

load ./chilkat.dll

set success 0

set zip [new_CkZip]

# Open a non-encrypted .zip
set success [CkZip_OpenZip $zip "qa_data/zips/sample.zip"]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

puts "Num entries = [CkZip_get_NumEntries $zip]"

# ...
# ...

CkZip_CloseZip $zip

# ----------------------------------------------------------------------------
# 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)
CkZip_put_DecryptPassword $zip "thePassword"

set success [CkZip_OpenZip $zip "qa_data/zips/encryptedSamples/ziptest_256.zip"]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

puts "Num entries = [CkZip_get_NumEntries $zip]"

# ...
# ...

CkZip_CloseZip $zip

delete_CkZip $zip