Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ Delphi FoxPro Java Perl Python Ruby SQL Server VBScript
|
Create a WinZip compatible AES Encrypted ZipCreates a WinZip compatible 128-bit AES-encrypted .zip archive <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set zip = Server.CreateObject("Chilkat.Zip2") ' Any string unlocks the component for the 1st 30-days. success = zip.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write zip.LastErrorText & "<br>" End If success = zip.NewZip("aes.zip") If (success <> 1) Then Response.Write zip.LastErrorText & "<br>" 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 needed to unzip. zip.SetPassword "myPassword" ' Append a directory tree. The AppendFiles does ' not read the file contents or append them to the zip ' object in memory. It simply appends references ' to the files so that when WriteZip (or WriteZipAndClose, ' or WriteExe, etc.) is called, the files are compressed ' and encrypted. recurse = 1 zip.AppendFiles "c:/temp/a/*",recurse ' Write "AesEncrypted.zip" success = zip.WriteZipAndClose() If (success <> 1) Then Response.Write zip.LastErrorText & "<br>" End If Response.Write "Zip Created!" & "<br>" %> </body> </html> |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.