PowerBuilder

Load PFX/P12 File into Certificate Store Object

Demonstrates how to load a .pfx/.p12 into a certificate store object. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_CertStore
string ls_PfxPassword
oleobject loo_Cert
integer li_NumCerts
integer i

li_Success = 0

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

// This only loads the contents of the PFX file into the certStore object.
// It is not importing the PFX into the Windows certificate stores.
ls_PfxPassword = "badssl.com"
li_Success = loo_CertStore.LoadPfxFile("qa_data/pfx/badssl.com-client.p12",ls_PfxPassword)
if li_Success = 0 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_CertStore
    return
end if

// Examine each certificate (loaded from the PFX) in this certStore object
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_NumCerts = loo_CertStore.NumCertificates
i = 0
do while i < li_NumCerts
    loo_CertStore.GetCert(i,loo_Cert)
    Write-Debug "hasPrivateKey=" + string(loo_Cert.HasPrivateKey()) + ", " + loo_Cert.SubjectCN
    i = i + 1
loop


destroy loo_CertStore
destroy loo_Cert