Generate RSA Public/Private Key

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

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$rsa = new chilkat::CkRsa();

$success = $rsa->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $rsa->lastErrorText() . "\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";