Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) Unzip an AES Encrypted Text File directly into a String VariableA 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 fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set zip = CreateObject("Chilkat_9_5_0.Zip") ' 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("qa_data/hamlet.zip") If (success <> 1) Then outFile.WriteLine(zip.LastErrorText) WScript.Quit End If ' entry is a Chilkat_9_5_0.ZipEntry Set entry = zip.GetEntryByName("hamlet.xml") If (zip.LastMethodSuccess = 0) Then outFile.WriteLine("Failed to find entry in zip") WScript.Quit End If ' lineEndingBehavior: ' 0 = leave unchanged. ' 1 = convert all to bare LF's ' 2 = convert all to CRLF's lineEndingBehavior = 0 srcCharset = "utf-8" xmlText = entry.UnzipToString(lineEndingBehavior,srcCharset) outFile.WriteLine(xmlText) outFile.Close |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.