Unzip an AES Encrypted Text File directly into a String Variable

Download: Chilkat .NET Assemblies

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 Chilkat.Zip()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> true) 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 <> true) Then
    MsgBox(zip.LastErrorText)
    Exit Sub
End If


Dim entry As Chilkat.ZipEntry
Dim xmlText As String

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

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