Perl Requires Chilkat v11.0.0+

RSA Encrypt and Decrypt Strings

See more RSA Examples

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

use strict;
use warnings;
use Chilkat2;

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

my $rsa = Chilkat2::Rsa->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 2048-bit key.  Chilkat RSA supports
# key sizes ranging from 512 bits to 4096 bits.
my $privKey = Chilkat2::PrivateKey->new;
my $success = $rsa->GenKey(2048, $privKey);
if (!$success) {
    print $rsa->LastErrorText, "\n";
    exit;
}

my $pubKey = Chilkat2::PublicKey->new;
$privKey->ToPublicKey($pubKey);

my $plainText = 'Encrypting and decrypting should be easy!';

# Start with a new RSA object to demonstrate that all we
# need are the keys previously exported:
my $rsaEncryptor = Chilkat2::Rsa->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->EncodingMode('hex');

# We'll encrypt with the public key and decrypt with the private
# key.
$success = $rsaEncryptor->UsePublicKey($pubKey);

my $usePrivateKey = 0;
my $encryptedStr = $rsaEncryptor->EncryptStringENC($plainText, $usePrivateKey);
print $encryptedStr, "\n";

# Now decrypt:
my $rsaDecryptor = Chilkat2::Rsa->new;

$rsaDecryptor->EncodingMode('hex');
$success = $rsaDecryptor->UsePrivateKey($privKey);

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

print $decryptedStr, "\n";