Load PFX (PKCS#12) and List Certificates

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

LOCAL loCertStore
LOCAL lnSuccess
LOCAL lcPfxPath
LOCAL lcPfxPassword
LOCAL i
LOCAL lnNumCerts
LOCAL loCert

loCertStore = CreateObject('Chilkat.CertStore')

lcPfxPath = "/Users/chilkat/testData/pfx/chilkat_ssl.pfx"

lcPfxPassword = "test"
lnSuccess = loCertStore.LoadPfxFile(lcPfxPath,lcPfxPassword)
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    QUIT
ENDIF

lnNumCerts = loCertStore.NumCertificates

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

IF (lnNumCerts = 0) THEN
    QUIT
ENDIF

FOR i = 0 TO (lnNumCerts - 1)

    loCert = loCertStore.GetCertificate(i)
    IF (NOT (loCert = NULL )) THEN
        ? STR(i) + ": (Common Name) " + loCert.SubjectCN
        ? STR(i) + ": (Serial Number) " + loCert.SerialNumber
        ? STR(i) + ": (Distinguished Name) " + loCert.SubjectDN
        RELEASE loCert
    ENDIF

NEXT