Unzip an Encrypted Zip

Demonstrates how to open an encrypted .zip archive and unzip.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

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;
}

#  Set the password required for decrypting.
$zip->put_DecryptPassword("myPassword");

$success = $zip->OpenZip("encrypted.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  Returns the number of files and directories unzipped.
$unzipCount = $zip->Unzip("c:/unzipDir");
if ($unzipCount < 0) {
    print $zip->lastErrorText() . "\n";
}
else {
    print "Success!" . "\n";
}