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

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

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoCertStore
    String sPfxPassword
    Boolean iSuccess
    Integer iNumCerts
    Integer i
    Variant vCert
    Handle hoCert
    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 ComNumCertificates Of hoCertStore To iNumCerts
    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 ComHasPrivateKey Of hoCert To bTemp1
        Get ComSubjectCN Of hoCert To sTemp1
        Showln "hasPrivateKey=" bTemp1 ", " sTemp1
        Send Destroy of hoCert
        Move (i + 1) To i
    Loop



End_Procedure