Generate RSA Public/Private Key Pair and Export to PEM

Perl example code showing how to generate an RSA public/private key pair and export to PEM files.

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:
$publicKeyXml = $rsa->exportPublicKey();
print $publicKeyXml . "\r\n";

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

#  Save the private key in PEM format:
$privKey = new chilkat::CkPrivateKey();
$privKey->LoadXml($privateKeyXml);
$privKey->SaveRsaPemFile("privateKey.pem");

#  Save the public key in PEM format:
$pubKey = new chilkat::CkPublicKey();
$pubKey->LoadXml($publicKeyXml);
$pubKey->SaveOpenSslPemFile("publicKey.pem");