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

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"
IncludeFile "CkCertStore.pb"

Procedure ChilkatExample()

    certStore.i = CkCertStore::ckCreate()
    If certStore.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    pfxPath.s = "/Users/chilkat/testData/pfx/chilkat_ssl.pfx"
    pfxPassword.s = "test"
    success = CkCertStore::ckLoadPfxFile(certStore,pfxPath,pfxPassword)
    If success <> 1
        Debug CkCertStore::ckLastErrorText(certStore)
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    numCerts.i = CkCertStore::ckNumCertificates(certStore)

    Debug "PFX contains " + Str(numCerts) + " certificates"

    i.i = 0
    While i < numCerts
        cert.i = CkCertStore::ckGetCertificate(certStore,i)

        Debug Str(i) + ": (Common Name) " + CkCert::ckSubjectCN(cert)
        Debug Str(i) + ": (Serial Number) " + CkCert::ckSerialNumber(cert)
        Debug Str(i) + ": (Distinguished Name) " + CkCert::ckSubjectDN(cert)
        CkCert::ckDispose(cert)

        i = i + 1
    Wend


    CkCertStore::ckDispose(certStore)


    ProcedureReturn
EndProcedure