Lianja

Export a Certificate's Private Key to Various Formats

See more Certificates Examples

Loads a digital certificate and private key from a PFX file (also known as PKCS#12) and exports the private key to various formats: (1) PKCS8 Encrypted, (2) PKCS8 Encrypted PEM, (3) PKCS8 unencrypted, (4) PKCS8 PEM unencrypted, (5) RSA DER unencrypted, (6) RSA PEM unencrypted, (7) XML. Lianja

llSuccess = .F.

loCert = createobject("CkCert")

// Load from the PFX file
lcPfxFilename = "/Users/chilkat/testData/pfx/chilkat_ssl_pwd_is_test.pfx"
lcPfxPassword = "test"

// A PFX typically contains certificates in the chain of authentication.
// The Chilkat cert object will choose the certificate w/
// private key farthest from the root authority cert.
// To access all the certificates in a PFX, use the 
// Chilkat certificate store object instead.
llSuccess = loCert.LoadPfxFile(lcPfxFilename,lcPfxPassword)
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loCert
    return
endif

// Get the private key...
loPrivKey = createobject("CkPrivateKey")
llSuccess = loCert.GetPrivateKey(loPrivKey)
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loCert
    release loPrivKey
    return
endif

// Export to various formats:

lcPassword = "secret"

// PKCS8 Encrypted DER
lcPath = "/Users/chilkat/testData/privkeys/chilkat_pkcs8_enc.der"
llSuccess = loPrivKey.SavePkcs8EncryptedFile(lcPassword,lcPath)
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loCert
    release loPrivKey
    return
endif

// PKCS8 Encrypted PEM
lcPath = "/Users/chilkat/testData/privkeys/chilkat_pkcs8_enc.pem"
llSuccess = loPrivKey.SavePkcs8EncryptedPemFile(lcPassword,lcPath)
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loCert
    release loPrivKey
    return
endif

// PKCS8 Unencrypted DER
lcPath = "/Users/chilkat/testData/privkeys/chilkat_pkcs8.der"
llSuccess = loPrivKey.SavePkcs8File(lcPath)
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loCert
    release loPrivKey
    return
endif

// PKCS8 Unencrypted PEM
lcPath = "/Users/chilkat/testData/privkeys/chilkat_pkcs8.pem"
llSuccess = loPrivKey.SavePkcs8PemFile(lcPath)
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loCert
    release loPrivKey
    return
endif

//  RSA DER (unencrypted)
lcPath = "/Users/chilkat/testData/privkeys/chilkat_rsa.der"
llSuccess = loPrivKey.SavePkcs1File(lcPath)
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loCert
    release loPrivKey
    return
endif

// RSA PEM (unencrypted)
lcPath = "/Users/chilkat/testData/privkeys/chilkat_rsa.pem"
llSuccess = loPrivKey.SavePemFile(lcPath)
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loCert
    release loPrivKey
    return
endif

// XML (unencrypted)
lcPath = "/Users/chilkat/testData/privkeys/chilkat.xml"
llSuccess = loPrivKey.SaveXmlFile(lcPath)
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loCert
    release loPrivKey
    return
endif

? "Private key exported to various formats."


release loCert
release loPrivKey