Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Open a Zip ArchiveSee more Zip ExamplesDemonstrates how to open a zip, or an encrypted .zip, or a legacy password-protected .zip.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) set zip = CreateObject("Chilkat_9_5_0.Zip") ' Open a non-encrypted .zip success = zip.OpenZip("qa_data/zips/sample.zip") If (success <> 1) Then outFile.WriteLine(zip.LastErrorText) WScript.Quit End If outFile.WriteLine("Num entries = " & zip.NumEntries) ' ... ' ... zip.CloseZip ' ---------------------------------------------------------------------------- ' Open an encrypted zip... ' The two main types of encryption used in ZIP archives are Password-Protected and AES. ' ' --------------------------------------- ' 1. Legacy Password-Protected Zip ' ' This is the older and less secure method of encrypting ZIP archives. ' It provides a basic level of security, but is considered weak by modern standards. ' It is vulnerable to various attacks, including known-plaintext attacks and brute force attacks. ' Although Chilkat allows it, you shouldn't create new zip archives using legacy password-protection. ' --------------------------------------- ' 2. AES Encrypted Zip ' ' AES encryption is a more modern and secure method for encrypting ZIP archives. ' It provides strong encryption based on the AES algorithm, which is widely regarded as secure. ' AES supports different key lengths, typically 128-bit, 192-bit, and 256-bit. ' When opening an encrypted zip, your application only needs to provide the correct password. ' The information about the type of encryption and the key length (if AES) is already embedded within the encrypted .zip. ' Provide the decrypt password because we are opening an existing .zip (decrypting) zip.DecryptPassword = "thePassword" success = zip.OpenZip("qa_data/zips/encryptedSamples/ziptest_256.zip") If (success <> 1) Then outFile.WriteLine(zip.LastErrorText) WScript.Quit End If outFile.WriteLine("Num entries = " & zip.NumEntries) ' ... ' ... zip.CloseZip outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.