(VBScript) 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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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")
set zip = 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.

success = zip.OpenZip("something.zip")
If (success <> 1) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
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
bPwdProt = zip.PasswordProtect
If (bPwdProt) Then
    outFile.WriteLine("This zip is password-protected.")
End If

' If the zip is AES encrypted (WinZip compatible) then
' the Encryption property will be equal to 4.
encValue = zip.Encryption
If (encValue = 4) Then
    outFile.WriteLine("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 

outFile.Close