Export Private Key to PKCS8, PEM, DER, XML

Demonstrates how to export a digital certificate's private key to RSA PEM or DER, PKCS8 PEM or DER, or XML.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$cert = new chilkat::CkCert();

#  Th LoadByCommonName method searches the Windows
#  Current User Certificate Store and Local Machine Certificate
#  Store for a certificate whose common name (CN) matches
#  the argument:

$success = $cert->LoadByCommonName("Chilkat Software, Inc.");
if ($success == 0) {
    print "Failed to find certificate!" . "\n";
}
else {

    #  Get the PrivateKey object:

    $pkey = $cert->ExportPrivateKey();
    if (!($pkey eq null )) {

        #  Export the private key to an RSA DER file:
        $pkey->SaveRsaDerFile("pkey_rsa.der");

        #  Export to a PKCS8 DER file:
        $pkey->SavePkcs8File("pkey_pkcs8.der");

        #  Export to an RSA PEM file:
        $pkey->SaveRsaPemFile("pkey_rsa.pem");

        #  Export to a PKCS8 PEM file:
        $pkey->SavePkcs8PemFile("pkey_pkcs8.pem");

        #  Export to XML:
        $pkey->SaveXmlFile("pkey.xml");

        #  Get PKCS8 PEM string:
        print "PKCS8 PEM Private Key:" . "\r\n";
        print $pkey->getPkcs8Pem() . "\r\n";

        #  Get RSA PEM string:
        print "RSA PEM Private Key:" . "\r\n";
        print $pkey->getRsaPem() . "\r\n";

    }
    else {
        print "No private key found!" . "\n";
    }

}

#  The Chilkat Certificate, Certificate Store, Private Key,
#  Public Key, and Key Container classes / objects are freeware.

#  They are used by and included with the Chilkat Email,
#  Crypt, S/MIME, and other commercial Chilkat components.