Remove Zip Encryption

Opens an encrypted zip archive and rewrites it with no encrypton.

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

#  An encrypted .zip may be "opened" without providing a
#  password.  However, the contents cannot be unzipped
#  without setting the DecryptPassword property.
$success = $zip->OpenZip("myEncrypted.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  Set the DecryptPassword property:
$zip->put_DecryptPassword("myPassword");

#  Indicate that when the zip is to be written again,
#  it should be neither AES encrypted, or password-protected
#  (i.e. older Zip 2.0 encryption)
$zip->put_Encryption(0);
$zip->put_PasswordProtect(0);

#  Set the filename of the new unencrypted .zip to be written:
$zip->put_FileName("unencrypted.zip");

#  Write the unencrypted .zip
#  What happens during WriteZipAndClose?  --
#  The encrypted entries from myEncrypted.zip are streamed in,
#  decrypted, and then written out directly into unencrypted.zip
#  In other words, internally the component is smart enough
#  to stream the data from the existing .zip to the new .zip
#  automatically, decrypting in the process..
$success = $zip->WriteZipAndClose();
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

print "OK!" . "\n";