Perl

Encrypt / Decrypt a File and Verify it has not Changed

See more Encryption Examples

Demonstrates how to encrypt and decrypt a file, and verify it has not changed. Perl

use chilkat();

$success = 0;

# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$crypt = chilkat::CkCrypt2->new();

$crypt->put_CryptAlgorithm("aes");
$crypt->put_CipherMode("cbc");
$crypt->put_KeyLength(128);
$crypt->put_PaddingScheme(0);

$ivHex = "000102030405060708090A0B0C0D0E0F";
$crypt->SetEncodedIV($ivHex,"hex");

$keyHex = "00010203040506071011121314151617";
$crypt->SetEncodedKey($keyHex,"hex");

$dataFile = "qa_data/zips/HBIQ040615300005.ZIP";
$outFile = "qa_output/HBIQ040615300005.enc";
$outFile2 = "qa_output/HBIQ040615300005.ZIP";

$success = $crypt->CkEncryptFile($dataFile,$outFile);
$success = $crypt->CkDecryptFile($outFile,$outFile2);

$fac = chilkat::CkFileAccess->new();
$bEqual = $fac->FileContentsEqual($dataFile,$outFile2);
if ($bEqual != 1) {
    print "Decrypted file not equal to the original." . "\r\n";
}
else {
    print "Success." . "\r\n";
}