RSA Encrypt and Decrypt Strings

Perl sample code to RSA public-key encrypt and decrypt strings using public and private keys.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$rsa = new chilkat::CkRsa();

$success = $rsa->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print "RSA component unlock failed" . "\n";
    exit;
}

#  This example also generates the public and private
#  keys to be used in the RSA encryption.
#  Normally, you would generate a key pair once,
#  and distribute the public key to your partner.
#  Anything encrypted with the public key can be
#  decrypted with the private key.  The reverse is
#  also true: anything encrypted using the private
#  key can be decrypted using the public key.

#  Generate a 1024-bit key.  Chilkat RSA supports
#  key sizes ranging from 512 bits to 16384 bits.
$success = $rsa->GenerateKey(1024);
if ($success != 1) {
    print $rsa->lastErrorText() . "\n";
    exit;
}

#  Keys are exported in XML format:
$publicKey = $rsa->exportPublicKey();
$privateKey = $rsa->exportPrivateKey();

$plainText = "Encrypting and decrypting should be easy!";

#  Start with a new RSA object to demonstrate that all we
#  need are the keys previously exported:
$rsaEncryptor = new chilkat::CkRsa();

#  Encrypted output is always binary.  In this case, we want
#  to encode the encrypted bytes in a printable string.
#  Our choices are "hex", "base64", "url", "quoted-printable".
$rsaEncryptor->put_EncodingMode("hex");

#  We'll encrypt with the public key and decrypt with the private
#  key.  It's also possible to do the reverse.
$rsaEncryptor->ImportPublicKey($publicKey);

$usePrivateKey = 0;
$encryptedStr = $rsaEncryptor->encryptStringENC($plainText,$usePrivateKey);
print $encryptedStr . "\r\n";

#  Now decrypt:
$rsaDecryptor = new chilkat::CkRsa();

$rsaDecryptor->put_EncodingMode("hex");
$rsaDecryptor->ImportPrivateKey($privateKey);

$usePrivateKey = 1;
$decryptedStr = $rsaDecryptor->decryptStringENC($encryptedStr,$usePrivateKey);

print $decryptedStr . "\r\n";