PowerBuilder

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

integer li_rc
integer li_Success
oleobject loo_Cert
string ls_PfxFilename
string ls_PfxPassword
oleobject loo_PrivKey
string ls_Password
string ls_Path

li_Success = 0

loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Load from the PFX file
ls_PfxFilename = "/Users/chilkat/testData/pfx/chilkat_ssl_pwd_is_test.pfx"
ls_PfxPassword = "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.
li_Success = loo_Cert.LoadPfxFile(ls_PfxFilename,ls_PfxPassword)
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

// Get the private key...
loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_Cert.GetPrivateKey(loo_PrivKey)
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

// Export to various formats:

ls_Password = "secret"

// PKCS8 Encrypted DER
ls_Path = "/Users/chilkat/testData/privkeys/chilkat_pkcs8_enc.der"
li_Success = loo_PrivKey.SavePkcs8EncryptedFile(ls_Password,ls_Path)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

// PKCS8 Encrypted PEM
ls_Path = "/Users/chilkat/testData/privkeys/chilkat_pkcs8_enc.pem"
li_Success = loo_PrivKey.SavePkcs8EncryptedPemFile(ls_Password,ls_Path)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

// PKCS8 Unencrypted DER
ls_Path = "/Users/chilkat/testData/privkeys/chilkat_pkcs8.der"
li_Success = loo_PrivKey.SavePkcs8File(ls_Path)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

// PKCS8 Unencrypted PEM
ls_Path = "/Users/chilkat/testData/privkeys/chilkat_pkcs8.pem"
li_Success = loo_PrivKey.SavePkcs8PemFile(ls_Path)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

//  RSA DER (unencrypted)
ls_Path = "/Users/chilkat/testData/privkeys/chilkat_rsa.der"
li_Success = loo_PrivKey.SavePkcs1File(ls_Path)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

// RSA PEM (unencrypted)
ls_Path = "/Users/chilkat/testData/privkeys/chilkat_rsa.pem"
li_Success = loo_PrivKey.SavePemFile(ls_Path)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

// XML (unencrypted)
ls_Path = "/Users/chilkat/testData/privkeys/chilkat.xml"
li_Success = loo_PrivKey.SaveXmlFile(ls_Path)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

Write-Debug "Private key exported to various formats."


destroy loo_Cert
destroy loo_PrivKey