(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCertStore
    Boolean iSuccess
    String sPfxPath
    String sPfxPassword
    Integer iNumCerts
    Integer i
    Variant vCert
    Handle hoCert
    String sTemp1

    Get Create (RefClass(cComChilkatCertStore)) To hoCertStore
    If (Not(IsComObjectCreated(hoCertStore))) Begin
        Send CreateComObject of hoCertStore
    End

    Move "/Users/chilkat/testData/pfx/chilkat_ssl.pfx" To sPfxPath
    Move "test" To sPfxPassword
    Get ComLoadPfxFile Of hoCertStore sPfxPath sPfxPassword To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumCertificates Of hoCertStore To iNumCerts

    Showln "PFX contains " iNumCerts " certificates"

    Move 0 To i
    While (i < iNumCerts)
        Get ComGetCertificate Of hoCertStore i To vCert
        If (IsComObject(vCert)) Begin
            Get Create (RefClass(cComChilkatCert)) To hoCert
            Set pvComObject Of hoCert To vCert
        End

        Get ComSubjectCN Of hoCert To sTemp1
        Showln i ": (Common Name) " sTemp1
        Get ComSerialNumber Of hoCert To sTemp1
        Showln i ": (Serial Number) " sTemp1
        Get ComSubjectDN Of hoCert To sTemp1
        Showln i ": (Distinguished Name) " sTemp1
        Send Destroy of hoCert

        Move (i + 1) To i
    Loop



End_Procedure