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.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set zip = Server.CreateObject("Chilkat_9_5_0.Zip")

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(zip.LastErrorText) & "</pre>"

End If

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

success = zip.OpenZip("encrypted.zip")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(zip.LastErrorText) & "</pre>"

End If

'  Locate the file within the Zip to be unzipped into a string variable:

' entry is a Chilkat_9_5_0.ZipEntry
Set 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...

    strCsv = entry.InflateToString2()
    Response.Write "<pre>" & Server.HTMLEncode( strCsv) & "</pre>"

Else
    Response.Write "<pre>" & Server.HTMLEncode( "No matching entry found!") & "</pre>"
End If


%>
</body>
</html>