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
(Visual Basic 6.0) Encrypt Already Existing ZipTo encrypt an already existing non-encrypted .zip, the application must open the .zip, set the encryption related properties, and then re-write.
' This requires the Chilkat Zip API to have been previously unlocked. ' See Unlock Chilkat Zip for sample code. Dim zip As New ChilkatZip ' Open an unencrypted .zip Dim success As Long success = zip.OpenZip("qa_data/zips/test.zip") If (success <> 1) Then Debug.Print zip.LastErrorText Exit Sub End If ' Unzip to a temp directory. Dim numFilesUnzipped As Long numFilesUnzipped = zip.Unzip("qa_output/tmp") If (numFilesUnzipped < 0) Then Debug.Print zip.LastErrorText Exit Sub End If ' Clear the zip object. success = zip.NewZip("qa_output/aesTest.zip") ' Indicate that 128-bit AES encryption is to be used when writing the .zip zip.Encryption = 4 zip.EncryptKeyLength = 128 ' Set the password. zip.EncryptPassword = "secret" ' Append the files. zip.AppendFromDir = "qa_output/tmp" success = zip.AppendFiles("*.*",1) If (success <> 1) Then Debug.Print zip.LastErrorText Exit Sub End If ' Write the .zip and close it. success = zip.WriteZipAndClose() If (success <> 1) Then Debug.Print zip.LastErrorText Exit Sub End If Debug.Print "Success." |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.