(Visual Basic 6.0) Determine if a Zip is Encrypted or Password-Protected

Determines whether or not a zip archive is AES encrypted or password-protected.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim zip As New ChilkatZip

' An encrypted or password-protected zip can be opened
' without specifying the password.  However, the contents
' of the files cannot be unzipped without providing the correct
' password.

Dim success As Long
success = zip.OpenZip("something.zip")
If (success <> 1) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

' If the zip is password-protected, meaning that it uses
' the old (insecure) Zip 2.0 encryption, then the
' PasswordProtect property will be 1
Dim bPwdProt As Long
bPwdProt = zip.PasswordProtect
If (bPwdProt) Then
    Debug.Print "This zip is password-protected."
End If

' If the zip is AES encrypted (WinZip compatible) then
' the Encryption property will be equal to 4.
Dim encValue As Long
encValue = zip.Encryption
If (encValue = 4) Then
    Debug.Print "This zip is AES encrypted."
End If

' If the Encryption property = 0, then the zip is NOT
' strong encrypted, and is either password-protected or
' entirely unencrypted, depending on the value of the
' PasswordProtect property.

zip.CloseZip