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.

LOCAL loCert
LOCAL lnSuccess
LOCAL loPkey

loCert = CreateObject('Chilkat.Cert')

*  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:

lnSuccess = loCert.LoadByCommonName("Chilkat Software, Inc.")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX("Failed to find certificate!")
ELSE

    *  Get the PrivateKey object:

    loPkey = loCert.ExportPrivateKey()
    IF (NOT (loPkey = NULL )) THEN

        *  Export the private key to an RSA DER file:
        loPkey.SaveRsaDerFile("pkey_rsa.der")

        *  Export to a PKCS8 DER file:
        loPkey.SavePkcs8File("pkey_pkcs8.der")

        *  Export to an RSA PEM file:
        loPkey.SaveRsaPemFile("pkey_rsa.pem")

        *  Export to a PKCS8 PEM file:
        loPkey.SavePkcs8PemFile("pkey_pkcs8.pem")

        *  Export to XML:
        loPkey.SaveXmlFile("pkey.xml")

        *  Get PKCS8 PEM string:
        ? "PKCS8 PEM Private Key:"
        ? loPkey.GetPkcs8Pem()

        *  Get RSA PEM string:
        ? "RSA PEM Private Key:"
        ? loPkey.GetRsaPem()

    ELSE
        =MESSAGEBOX("No private key found!")
    ENDIF

ENDIF

*  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.