Open and Unzip an AES Encrypted Zip

Open and unzip an AES encrypted Zip.

Download Chilkat Perl Module

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("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->SetPassword("myPassword");

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