Create a WinZip compatible AES Encrypted Zip

Creates a WinZip compatible AES-encrypted .zip archive

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
    TextBox1.Text = TextBox1.Text & zip.LastErrorText & vbCrLf
    Exit Sub
End If


success = zip.NewZip("/myZipDir/aes.zip")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & zip.LastErrorText & vbCrLf
    Exit Sub
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.)
Dim recurse As Boolean
recurse = true
success = zip.AppendFiles("c:/temp/a/*",recurse)
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & zip.LastErrorText & vbCrLf
    Exit Sub
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 <> true) Then
    TextBox1.Text = TextBox1.Text & zip.LastErrorText & vbCrLf
    Exit Sub
End If


MsgBox("Created AES Encrypted Zip.")