Unzip an AES Encrypted Text File directly into a String Variable

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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.

Dim zip As New ChilkatZip2

Dim success As Long

'  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
    Exit Sub
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
    Exit Sub
End If

Dim entry As ChilkatZipEntry2
Dim xmlText As String

Set entry = zip.GetEntryByName("hamlet.xml")
If (Not (entry Is Nothing )) Then
    xmlText = entry.InflateToString2()
    Text1.Text = Text1.Text & xmlText & vbCrLf

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