Verify a Zip's Password

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

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$zip = new chilkat::CkZip();

#  Any string unlocks the component for the 1st 30-days.
$success = $zip->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

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

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

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

$zip->CloseZip();