Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Perl) Streaming Compression --> Streaming EncryptionDemonstrate how to feed a compression stream into an encryption stream. This example does the following: Data File --> Compress --> Encrypt --> Application Reads
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); # Our application will be reading the output of streamE. # 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(); # Read the compressed and encrypted bytes. $outData = chilkat::CkBinData->new(); while (($streamE->get_EndOfStream() != 1)) { if ($streamE->get_DataAvailable() == 1) { $success = $streamE->ReadBd($outData); } } # 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); } # Get any remaining data that needs to be flushed. if ($streamE->get_DataAvailable() == 1) { $success = $streamE->ReadBd($outData); } # Double-check for success.. if ($taskE->get_TaskSuccess() != 1) { print "async encryption failed:" . "\r\n"; print $taskE->resultErrorText() . "\r\n"; $success = 0; } # Double-check for success.. if ($taskC->get_TaskSuccess() != 1) { print "async compression failed:" . "\r\n"; print $taskC->resultErrorText() . "\r\n"; $success = 0; } # Save the compressed/encrypted data to a file. $outData->WriteFile("qa_output/compressedEncrypted.dat"); print "The async compress/encrypt was successful." . "\r\n"; # Let's decrypt and decompress to further verify... $success = $crypt->DecryptBd($outData); $success = $compress->DecompressBd($outData); # outData should contain the original data.. $success = $outData->WriteFile("qa_output/original_hamlet.xml"); |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.