(Perl) RSA Encrypt and Decrypt Strings

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

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

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

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

# 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 4096 bits.
$success = $rsa->GenerateKey(1024);
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\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 = chilkat::CkRsa->new();

# 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.
$success = $rsaEncryptor->ImportPublicKey($publicKey);

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

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

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

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

print $decryptedStr . "\r\n";