![]() |
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VBScript) Create a WinZip/7-Zip compatible AES Encrypted ZipCreates a WinZip compatible AES-encrypted .zip archive
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Zip") set zip = CreateObject("Chilkat.Zip") success = zip.NewZip("/myZipDir/aes.zip") If (success <> 1) Then outFile.WriteLine(zip.LastErrorText) WScript.Quit End If ' Set properties to indicate that the Zip should be ' AES encrypted. ' A value of 4 indicates WinZip compatible AES encryption. zip.Encryption = 4 ' Key length can be 128, 192, or 256 bits. zip.EncryptKeyLength = 128 ' Set the password for AES encryption: zip.EncryptPassword = "myPassword" ' Add a directory tree to be zipped. (The files ' are not compressed at this point -- only references ' to the files and directories are added to the zip object.) recurse = 1 success = zip.AppendFiles("c:/temp/a/*",recurse) If (success <> 1) Then outFile.WriteLine(zip.LastErrorText) WScript.Quit End If ' Create the encrypted zip ("/myZipDir/aes.zip") ' The path of the zip is what was originally passed ' to the NewZip method (above). success = zip.WriteZipAndClose() If (success <> 1) Then outFile.WriteLine(zip.LastErrorText) WScript.Quit End If outFile.WriteLine("Created AES Encrypted Zip.") outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.