Perl

Open and Unzip an AES Encrypted Zip

See more Zip Examples

Open and unzip an AES encrypted Zip. 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();

$success = $zip->OpenZip("/myZips/aes.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\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() . "\r\n";
}
else {
    print "Success!" . "\r\n";
}