(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

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

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

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

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

# Save the public key in PEM format:
$pubKey = chilkat::CkPublicKey->new();
$success = $pubKey->LoadFromString($publicKeyXml);
$success = $pubKey->SavePemFile(0,"publicKey.pem");