Chilkat HOME Android™ ASP Visual Basic VB.NET C# iOS (IPhone) Objective-C C++ C Unicode C++ Unicode C MFC Delphi DLL Delphi ActiveX FoxPro Java Perl PHP Extension PHP ActiveX Python PowerShell Ruby SQL Server VBScript
Open and Unzip an AES Encrypted ZipOpen and unzip an AES encrypted Zip. Download: Chilkat .NET Assemblies Dim zip As New Chilkat.Zip() Dim success As Boolean ' Any string unlocks the component for the 1st 30-days. success = zip.UnlockComponent("Anything for 30-day trial") If (success <> true) Then MsgBox(zip.LastErrorText) Exit Sub End If success = zip.OpenZip("/myZips/aes.zip") If (success <> true) Then MsgBox(zip.LastErrorText) Exit Sub End If ' Set the password needed to unzip. ' This password must match the password used when the zip ' was created. zip.DecryptPassword = "myPassword" Dim unzipCount As Long ' Unzip the .zip into /unzipDir. ' Returns the number of files and directories unzipped. unzipCount = zip.Unzip("/unzipDir/") If (unzipCount < 0) Then MsgBox(zip.LastErrorText) Else MsgBox("Success!") End If |
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.