Perl Requires Chilkat v11.0.0+

Generate RSA Public/Private Key Pair and Export to PEM

See more RSA Examples

_LANGUAGE_ example code showing how to generate an RSA public/private key pair and export to PEM files. 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();

#  Generate a 2048-bit key.  Chilkat RSA supports
#  key sizes ranging from 512 bits to 8192 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);

#  Save the private key in PEM format:
$success = $privKey->SavePemFile("privateKey.pem");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

#  Save the public key in PEM format:
$success = $pubKey->SavePemFile(0,"publicKey.pem");
if ($success == 0) {
    print $pubKey->lastErrorText() . "\r\n";
    exit;
}

print "Success." . "\r\n";