(Perl) RSA Encrypt with Modulus and Exponent

Demonstrates how to RSA encrypt with a given modulus and exponent.

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

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

$rsa = chilkat::CkRsa->new();

# Assuming you already have a base64 modulus and exponent,
# wrap it in XML like this:
$modulus = "qMBRpdYrAy5aMmo31NErUizh5sbweguSmh4wlK6uJEIDl+kwTlROnE34KOFExeTbJSX0WygPi+vWl0yNq7buIMUKpytossAAWut5khO3CQJxTk7G2gnEPNUUXHiExGgNrLzcSLv8YIlfVALhoRWyC67KOL+a+3taNq3h+BHeWhM=";
$exponent = "AQAB";

$xml = chilkat::CkXml->new();
$xml->put_Tag("RSAPublicKey");
$xml->NewChild2("Modulus",$modulus);
$xml->NewChild2("Exponent",$exponent);

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

$success = $rsa->UsePublicKey($pubKey);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

$usePrivateKey = 0;
$plainText = "message in a bottle";

$rsa->put_EncodingMode("base64");
$encryptedStrBase64 = $rsa->encryptStringENC($plainText,$usePrivateKey);
print $encryptedStrBase64 . "\r\n";