(Perl) RSA Encrypt with Modulus and Exponent

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

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

use chilkat();

# 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);

# Encrypt with the public key.
$publicKey = $xml->getXml();
$success = $rsa->ImportPublicKey($publicKey);

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

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