(Perl) Generate an RSA Key and Get as Base64 DER

Demonstrates how to generate a 2048-bit RSA key and return the public and private parts as unencrypted Base64 encoded DER.

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 2048-bit key.  Chilkat RSA supports
$success = $rsa->GenerateKey(2048);
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# Get the public part of the key.
# pubKey is a PublicKey
$pubKey = $rsa->ExportPublicKeyObj();

# There are two possible formats for representing the RSA public key 
# in ASN.1 (DER).  The possible formats are PKCS1 and PKCS8.
# We can get either by setting bChoosePkcs1 to 1 or 0.
$bChoosePkcs1 = 1;
$pubKeyBase64Der = $pubKey->getEncoded($bChoosePkcs1,"base64");
print "Public Key Base64 DER:" . "\r\n";
print $pubKeyBase64Der . "\r\n";

# Now get the private key as Base64 DER:
# Get the private part of the key.
# (Note: A public key is actually just a subset of the private key.  
#  If you have the private key, you also have the public key.
#  Thus Chilkat provides a method to get the public key from the private key.)
# privKey is a PrivateKey
$privKey = $rsa->ExportPrivateKeyObj();

# Again, we can get PKCS1 or PKCS8, but with different methods:
$privKeyPkcs1 = $privKey->getPkcs1ENC("base64");
print "Private Key PKCS1 Base64 DER:" . "\r\n";
print $privKeyPkcs1 . "\r\n";

$privKeyPkcs8 = $privKey->getPkcs8ENC("base64");
print "Private Key PKCS8 Base64 DER:" . "\r\n";
print $privKeyPkcs8 . "\r\n";