Perl

Verify a Zip's Password

See more Zip Examples

Demonstrates how to verify the password for an encrypted or password-protected zip archive. Perl

use chilkat();

$success = 0;

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

$zip = chilkat::CkZip->new();

# To verify a password for a Zip, the Zip must be opened:
$success = $zip->OpenZip("myProtected.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Set the password to be verified:
$zip->put_DecryptPassword("secret");

$passwordOk = $zip->VerifyPassword();
if ($passwordOk == 1) {
    print "Password is correct." . "\r\n";
}
else {
    print "Password is incorrect." . "\r\n";
}

$zip->CloseZip();