(Perl) Streaming Decrypt HTTP Response

If the an encrypted file was previously uploaded, this example demonstrates how to download and decrypt in a streaming way.

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

use chilkat();

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

$rest = chilkat::CkRest->new();

$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("chilkatdownload.com",$port,$bTls,$bAutoReconnect);

# Send the request to download a file.
$success = $rest->SendReqNoBody("GET","/9.5.0.83/chilkat-9.5.0-python-3.8-x64.zip");
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Read the response header.
$responseStatusCode = $rest->ReadResponseHeader();
if ($responseStatusCode < 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

print "Response status code = " . $responseStatusCode . "\r\n";

# We expect a 200 response status if the JPG data is coming.
# Otherwise, we'll get a string response body with an error message(or no response body).
if ($responseStatusCode != 200) {
    $errResponse = $rest->readRespBodyString();
    if ($rest->get_LastMethodSuccess() != 1) {
        print $rest->lastErrorText() . "\r\n";
    }
    else {
        print $errResponse . "\r\n";
    }

    exit;
}

# Create an object for decrypting.
# This example will use "none" for the encryption algorithm, which means it's just a pass-through.
# Typically you would set the decrypt properties, such as secret key, IV, key length, padding scheme, cipher mode..
$crypt = chilkat::CkCrypt2->new();
$crypt->put_CryptAlgorithm("none");

# The following settings are ignored in this test because our CryptAlgorithm is "none".
# However, if you were truly decrypting, you might set CryptAlgorithm = "aes".
$crypt->put_CipherMode("cbc");
$crypt->put_KeyLength(128);
$crypt->SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex");
$crypt->SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex");

$receiveStream = chilkat::CkStream->new();
# The decryptStream's source will be the receiveStream.
$decryptStream = chilkat::CkStream->new();

# The decrypt stream's sink will be a file.
$decryptStream->put_SinkFile("qa_output/chilkat-9.5.0-python-3.8-x64.zip");
$decryptStream->SetSourceStream($receiveStream);

# Create and run a background async task to decrypt incoming data and write to a file.
# decryptStreamTask is a Task
$decryptStreamTask = $crypt->DecryptStreamAsync($decryptStream);
$success = $decryptStreamTask->Run();

$success = $rest->ReadRespBodyStream($receiveStream,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

print "Successfully received the .zip file." . "\r\n";