Open Zip and Save Password Protected

Open a .zip (non-encrypted) and then save it password-protected.

 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("test.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  Set a password and indicate that password protection
#  should be used when writing the .zip
$zip->put_EncryptPassword("secret");
$zip->put_PasswordProtect(1);

#  Write the zip (overwrites test.zip)
$success = $zip->WriteZipAndClose();
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

print "Zip Re-Written with Password Protection!" . "\n";