(Perl) RSA Encrypt Randomly Generated AES Key

Demonstrates how to RSA encrypt a randomly generated AES key.

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.

# First generate a 256-bit AES key (32 bytes).
$prng = chilkat::CkPrng->new();
$bdAesKey = chilkat::CkBinData->new();
$success = $prng->GenRandomBd(32,$bdAesKey);

# Use a public key from a certificate for RSA encryption.
$cert = chilkat::CkCert->new();

$success = $cert->LoadFromFile("qa_data/pem/mf_public_rsa.pem");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# pubKey is a PublicKey
$pubKey = $cert->ExportPublicKey();
if ($cert->get_LastMethodSuccess() != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$rsa = chilkat::CkRsa->new();
$success = $rsa->ImportPublicKeyObj($pubKey);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# RSA encrypt our 32-byte AES key.
# The contents of bdAesKey are replaced with result of the RSA encryption.
$success = $rsa->EncryptBd($bdAesKey,0);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# Return the result as a base64 string
$encryptedAesKey = $bdAesKey->getEncoded("base64");

print "encrypted AES key = " . $encryptedAesKey . "\r\n";