B4X

Determine if a Zip is Encrypted or Password-Protected

See more Zip Examples

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

Dim success As Boolean = False

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

Dim zip As ChilkatZip
zip.Initialize("zip")

'  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.

success = zip.OpenZip("something.zip")
If success <> True Then
    Log(zip.LastErrorText)
    Return
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 True
Dim bPwdProt As Boolean = zip.PasswordProtect
If bPwdProt Then
    Log("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 Int = zip.Encryption
If encValue = 4 Then
    Log("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