(DataFlex) Load PFX/P12 File into Certificate Store Object

Demonstrates how to load a .pfx/.p12 into a certificate store object.

Note: This example requires Chilkat v10.1.2 or greater.

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

Use ChilkatAx-win32.pkg

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

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

    // This only loads the contents of the PFX file into the certStore object.
    // It is not importing the PFX into the Windows certificate stores.
    Move "badssl.com" To sPfxPassword
    Get ComLoadPfxFile Of hoCertStore "qa_data/pfx/badssl.com-client.p12" sPfxPassword To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Examine each certificate (loaded from the PFX) in this certStore object
    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End
    Get ComNumCertificates Of hoCertStore To iNumCerts
    Move 0 To i
    While (i < iNumCerts)
        Get pvComObject of hoCert to vCert
        Get ComGetCert Of hoCertStore i vCert To iSuccess
        Get ComHasPrivateKey Of hoCert To bTemp1
        Get ComSubjectCN Of hoCert To sTemp1
        Showln "hasPrivateKey=" bTemp1 ", " sTemp1
        Move (i + 1) To i
    Loop



End_Procedure