(DataFlex) Open and Unzip an AES Encrypted Zip

Open and unzip an AES encrypted Zip.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Integer iUnzipCount
    String sTemp1

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

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

    Get ComOpenZip Of hoZip "/myZips/aes.zip" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Set the password needed to unzip.
    // This password must match the password used when the zip
    // was created.
    Set ComDecryptPassword Of hoZip To "myPassword"

    // Unzip the .zip into /unzipDir.   
    // Returns the number of files and directories unzipped.
    Get ComUnzip Of hoZip "/unzipDir/" To iUnzipCount
    If (iUnzipCount < 0) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Success!"
    End



End_Procedure