Perl

Generate RSA Key and Export to PKCS1 / PKCS8

See more RSA Examples

_LANGUAGE_ example code showing how to generate an RSA public/private key and save to PKCS1 and PKCS8 format files. In a PKCS1 or PKCS8 formatted file, the key is stored in binary ASN.1 format (and ASN.1 is itself written according to DER -- Distinguished Encoding Rules). A PEM file simply contains the binary ASN.1 base64 encoded and delimited by BEGIN/END lines. PKCS1 format files are never encrypted. PKCS8 can be encrypted or unencrypted. Public keys are never encrypted (there is no need). Private keys *should* always be encrypted - unless perhaps the unencrypted private key is obtained and itself stored in some sort of secure place. 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;
}

# Get the public key
$pubKey = chilkat::CkPublicKey->new();
$privKey->ToPublicKey($pubKey);

# Get the public key as a PKCS8 PEM string
$pubKeyPem = $pubKey->getPem(0);
print $pubKeyPem . "\r\n";

# Get the public key in PKCS8 format, in a Base64 encoded string.
$pubKeyPkcs8Base64 = $pubKey->getEncoded(0,"base64");
print $pubKeyPkcs8Base64 . "\r\n";

# Get the public key in PKCS1 format, in a Base64 encoded string.
$pubKeyPkcs1Base64 = $pubKey->getEncoded(1,"base64");
print $pubKeyPkcs1Base64 . "\r\n";

# Get the private key in a PKCS8 PEM string.
$privKeyPem = $privKey->getPkcs8Pem();
print $privKeyPem . "\r\n";

# Get the private key in a PKCS8 encrypted PEM string.
$privKeyEncPem = $privKey->getPkcs8EncryptedPem("myPassword");
print $privKeyEncPem . "\r\n";

# Get the private key in PKCS1 Base64 format
$privKeyPkcs1Base64 = $privKey->getPkcs1ENC("base64");
print $privKeyPkcs1Base64 . "\r\n";

# Get the private key in PKCS8 Base64 format
$privKeyPkcs8Base64 = $privKey->getPkcs8ENC("base64");
print $privKeyPkcs8Base64 . "\r\n";

# Save to PKCS1 / PKCS8 / PEM files...

# Save the public key to PKCS8 binary DER
$success = $pubKey->SaveDerFile(0,"pubKey_pkcs8.der");

# Save the public key to PKCS1 binary DER
$success = $pubKey->SaveDerFile("pubKey_pkcs1.der");

# Save the private key to unencrypted binary PKCS1 DER.
# Note: PKCS1 is never found in an encrypted format. 
$success = $privKey->SavePkcs1File("privKey_pkcs1.der");

# Save the private key to unencrypted binary PKCS8
$success = $privKey->SavePkcs8File("privKey_pkcs8.der");

# Save the private key to encrypted binary PKCS8
$success = $privKey->SavePkcs8EncryptedFile("myPassword","privKey_enc_pkcs8.der");

# Save the private key to unencrypted PKCS8 PEM
$success = $privKey->SavePkcs8PemFile("privKey.pem");

# Save the private key to encrypted PKCS8 PEM
$success = $privKey->SavePkcs8EncryptedPemFile("myPassword","privKey_enc.pem");