(PureBasic) Unzip an AES Encrypted Text File directly into a String Variable

A common need is to unzip from an AES encrypted Zip archive directly into a string variable, such that the unencrypted file never resides on disk, even temporarily. This example shows how to do it.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"
IncludeFile "CkZipEntry.pb"

Procedure ChilkatExample()

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

    zip.i = CkZip::ckCreate()
    If zip.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; This example opens a WinZip-compatible AES encrypted
    ; .zip that contains a single file: hamlet.xml.

    ; It decrypts and unzips hamlet.xml directly into a string
    ; variable.
    CkZip::ckSetPassword(zip,"secret")
    success.i = CkZip::ckOpenZip(zip,"qa_data/hamlet.zip")
    If success <> 1
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    entry.i = CkZip::ckGetEntryByName(zip,"hamlet.xml")
    If CkZip::ckLastMethodSuccess(zip) = 0
        Debug "Failed to find entry in zip"
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; lineEndingBehavior:
    ; 0 = leave unchanged.
    ; 1 = convert all to bare LF's
    ; 2 = convert all to CRLF's
    lineEndingBehavior.i = 0
    srcCharset.s = "utf-8"
    xmlText.s = CkZipEntry::ckUnzipToString(entry,lineEndingBehavior,srcCharset)
    Debug xmlText
    CkZipEntry::ckDispose(entry)



    CkZip::ckDispose(zip)


    ProcedureReturn
EndProcedure