(Perl) Stream a file to compression to encryption to an output file.

Runs a chain of streams to read a source file, compress, encrypt, and write an output file.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

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

# Initialize the compression object.
$compress = chilkat::CkCompression->new();
$compress->put_Algorithm("deflate");

# Initialize the encryption object.
$crypt = chilkat::CkCrypt2->new();
$crypt->put_CryptAlgorithm("chacha20");
$crypt->put_KeyLength(256);
$crypt->put_EncodingMode("hex");
$ivHex = "000000000000000000000002";
$crypt->SetEncodedIV($ivHex,"hex");
$crypt->put_InitialCount(42);
$keyHex = "1c9240a5eb55d38af333888604f6b5f0473917c1402b80099dca5cbc207075c0";
$crypt->SetEncodedKey($keyHex,"hex");

# Setup the streams.  
# streamC is for compression
$streamC = chilkat::CkStream->new();
# streamE is for encryption
$streamE = chilkat::CkStream->new();

# The source for the compressor is a file.
$streamC->put_SourceFile("qa_data/hamlet.xml");
# The source for the encryptor is the output of the compressor stream.
$success = $streamE->SetSourceStream($streamC);

# The sink for the encryptor is the output file.
$streamE->put_SinkFile("qa_output/compressed_encrypted.dat");

# Start the compression and encryption streams in background threads..
# taskC is a Task
$taskC = $compress->CompressStreamAsync($streamC);
# taskE is a Task
$taskE = $crypt->EncryptStreamAsync($streamE);
$success = $taskC->Run();
$success = $taskE->Run();

# Let the streams run until finished.
# Let's make sure the background task finished.
# It should already be the case that the task is finished.
while ((($taskE->get_Finished() != 1) or ($taskC->get_Finished() != 1))) {
    $taskE->SleepMs(20);
}

# check for success..
if ($taskE->get_TaskSuccess() != 1) {
    print "async encryption failed:" . "\r\n";
    print $taskE->resultErrorText() . "\r\n";
    $success = 0;
}

# check for success..
if ($taskC->get_TaskSuccess() != 1) {
    print "async compression failed:" . "\r\n";
    print $taskC->resultErrorText() . "\r\n";
    $success = 0;
}

# Load the file that was produced and decrypt/decompress to verify.
$binData = chilkat::CkBinData->new();
$success = $binData->LoadFile("qa_output/compressed_encrypted.dat");
$success = $crypt->DecryptBd($binData);
$success = $compress->DecompressBd($binData);

# binData should contain the original data..
$success = $binData->WriteFile("qa_output/original_hamlet.xml");

print "Finished." . "\r\n";