Perl

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. Perl

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

# 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.
$privKey = chilkat::CkPrivateKey->new();
$success = $rsa->GenKey(2048,$privKey);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

$pubKey = chilkat::CkPublicKey->new();
$privKey->ToPublicKey($pubKey);

$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.
$success = $rsaEncryptor->UsePublicKey($pubKey);

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

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

$rsaDecryptor->put_EncodingMode("hex");
$success = $rsaDecryptor->UsePrivateKey($privKey);

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

print $decryptedStr . "\r\n";