(DataFlex) Encrypt Already Existing Zip

To encrypt an already existing non-encrypted .zip, the application must open the .zip, set the encryption related properties, and then re-write.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Integer iNumFilesUnzipped
    String sTemp1

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

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

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

    // Unzip to a temp directory.
    Get ComUnzip Of hoZip "qa_output/tmp" To iNumFilesUnzipped
    If (iNumFilesUnzipped < 0) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Clear the zip object.
    Get ComNewZip Of hoZip "qa_output/aesTest.zip" To iSuccess

    // Indicate that 128-bit AES encryption is to be used when writing the .zip
    Set ComEncryption Of hoZip To 4
    Set ComEncryptKeyLength Of hoZip To 128

    // Set the password.
    Set ComEncryptPassword Of hoZip To "secret"

    // Append the files.
    Set ComAppendFromDir Of hoZip To "qa_output/tmp"
    Get ComAppendFiles Of hoZip "*.*" True To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Write the .zip and close it.
    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure