Create AES Encrypted Self-Extracting EXE

How to create an AES encrypted self-extracting EXE.

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

#  Initialize the zip object.  Because we're creating
#  a self-extracting EXE in this example, the filename
#  passed to NewZip will never actually be created.
$success = $zip->NewZip("notUsed.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  Indicate that AES encryption should be used:
#  0 = No encryption
#  4 = AES encryption
$zip->put_Encryption(4);

#  Set the key length to 128-bits, 192-bits, or 256-bits
$zip->put_EncryptKeyLength(128);

#  Set the password required to extract:
$zip->SetPassword("myPassword");

#  Append a directory tree.  The AppendFiles does
#  not read the file contents or append them to the zip
#  object in memory.  It simply appends references
#  to the files so that when WriteExe (or WriteZipAndClose,
#  or WriteZip, etc.) is called, the files are compressed
#  and added to the archive.
$recurse = 1;
$zip->AppendFiles("c:/temp/a/*",$recurse);

#  To create an EXE with a custom icon, set the ExeIconFile property:
$zip->put_ExeIconFile("apple.ico");

#  Write "mySfx.exe"
$success = $zip->WriteExe("mySfx.exe");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

print "EXE Created!" . "\n";