DataFlex

Open a Zip Archive

See more Zip Examples

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoZip
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

    Get Create (RefClass(cComChilkatZip)) To hoZip
    If (Not(IsComObjectCreated(hoZip))) Begin
        Send CreateComObject of hoZip
    End

    // Open a non-encrypted .zip
    Get ComOpenZip Of hoZip "qa_data/zips/sample.zip" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumEntries Of hoZip To iTemp1
    Showln "Num entries = " iTemp1

    // ...
    // ...

    Send ComCloseZip To hoZip

    // ----------------------------------------------------------------------------
    // 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)
    Set ComDecryptPassword Of hoZip To "thePassword"

    Get ComOpenZip Of hoZip "qa_data/zips/encryptedSamples/ziptest_256.zip" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumEntries Of hoZip To iTemp1
    Showln "Num entries = " iTemp1

    // ...
    // ...

    Send ComCloseZip To hoZip


End_Procedure