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.

Download Chilkat Zip ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set zip = CreateObject("Chilkat.Zip2")

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

'  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.
zip.SetPassword "secret"
success = zip.OpenZip("hamlet.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

Set entry = zip.GetEntryByName("hamlet.xml")
If (Not (entry Is Nothing )) Then
    xmlText = entry.InflateToString2()
    outFile.WriteLine(xmlText)

Else
    MsgBox "Failed to find entry in zip"
End If


outFile.Close