(Visual FoxPro) 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

LOCAL loZip
LOCAL lnSuccess
LOCAL lnBPwdProt
LOCAL lnEncValue

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.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.

lnSuccess = loZip.OpenZip("something.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* If the zip is password-protected, meaning that it uses
* the old (insecure) Zip 2.0 encryption, then the
* PasswordProtect property will be 1
lnBPwdProt = loZip.PasswordProtect
IF (lnBPwdProt) THEN
    ? "This zip is password-protected."
ENDIF

* If the zip is AES encrypted (WinZip compatible) then
* the Encryption property will be equal to 4.
lnEncValue = loZip.Encryption
IF (lnEncValue = 4) THEN
    ? "This zip is AES encrypted."
ENDIF

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

loZip.CloseZip()

RELEASE loZip