Generate RSA Public/Private Key Pair for Encryption (Key Exchange)

Perl example code showing how to generate an RSA public/private key pair for encrypting.

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;
}

#  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() . "\n";
    exit;
}

#  Keys are exported in XML format:
$publicKey = $rsa->exportPublicKey();
print $publicKey . "\r\n";

$privateKey = $rsa->exportPrivateKey();
print $privateKey . "\r\n";