(Visual FoxPro) Load PFX (PKCS#12) and List Certificates

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
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
    RELEASE loCertStore
    CANCEL
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