Open and Unzip an AES Encrypted Zip

Open and unzip an AES encrypted Zip.

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

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

#  Set the password needed to unzip.
#  This password must match the password used when the zip
#  was created.
$zip->put_DecryptPassword("myPassword");

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