(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, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

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