Perl

RSA Encrypt Randomly Generated AES Key

See more RSA Examples

Demonstrates how to RSA encrypt a randomly generated AES key. Perl

use chilkat();

$success = 0;

# 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 = chilkat::CkPublicKey->new();
$cert->GetPublicKey($pubKey);

$rsa = chilkat::CkRsa->new();
$success = $rsa->UsePublicKey($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";