Unzip Encrypted Text into a String Variable

Demonstrates how to open an encrypted .zip archive and unzip a text file directly into a string variable.

Download: Chilkat .NET Assemblies

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


'  Set the password required for decrypting.
zip.DecryptPassword = "myPassword"

success = zip.OpenZip("encrypted.zip")
If (success <> true) Then
    MsgBox(zip.LastErrorText)
    Exit Sub
End If


'  Locate the file within the Zip to be unzipped into a string variable:
Dim entry As Chilkat.ZipEntry
entry = zip.FirstMatchingEntry("*.csv")
If (Not (entry Is Nothing )) Then

    '  There are a few different InflateToString methods.
    '  InflateToString allows you to control line-endings LF-only vs. CRLF
    '  InflateToString2 returns the line-endings unmodified.
    '  Both InflateToString and InflateToString2 assume the
    '  data consists of ANSI characters.
    '  The InflateToString3 method allows for text stored in different
    '  character encodings to be returned as a string

    '  This example uses InflateToString2 -- line endings are
    '  unmodified and the text is simple ANSI...
    Dim strCsv As String
    strCsv = entry.InflateToString2()
    TextBox1.Text = TextBox1.Text & strCsv & vbCrLf

Else
    TextBox1.Text = TextBox1.Text & "No matching entry found!" & vbCrLf
End If