(Lianja) Load PFX (PKCS#12) and List Certificates

Loads a PFX file (.pfx, .p12) and iterates over the certificates found within.

Chilkat Lianja Extension Download Chilkat Lianja Extension

loCertStore = createobject("CkCertStore")

lcPfxPath = "/Users/chilkat/testData/pfx/chilkat_ssl.pfx"
lcPfxPassword = "test"
llSuccess = loCertStore.LoadPfxFile(lcPfxPath,lcPfxPassword)
if (llSuccess <> .T.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

lnNumCerts = loCertStore.NumCertificates

? "PFX contains " + str(lnNumCerts) + " certificates"

i = 0
do while i < lnNumCerts
    loCert = loCertStore.GetCertificate(i)

    ? str(i) + ": (Common Name) " + loCert.SubjectCN
    ? str(i) + ": (Serial Number) " + loCert.SerialNumber
    ? str(i) + ": (Distinguished Name) " + loCert.SubjectDN
    release loCert

    i = i + 1
enddo


release loCertStore