(DataFlex) Find Certificate by Serial Number

See more Cert Store Examples

Demonstrates how to find a certificate having the specified hexadecimal serial number.

Note: Requires Chilkat v10.1.2 or later.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vCert
Store    Handle hoCertStore
    String sArgNotUsed
    Boolean iSuccess
    String sHexSerial
    Variant vJson
    Handle hoJson
    Variant vCert
    Handle hoCert
    String sTemp1
    String sTemp2

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

    // This example will search the certs on connected USB tokens and smartcards.
    Move "" To sArgNotUsed
    Get ComOpenSmartcard Of hoCertStore sArgNotUsed To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Find the certificate having a serial number = "48FC93B46055948D36A7C98A89D69416".
    Move "48FC93B46055948D36A7C98A89D69416" To sHexSerial
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "serial" sHexSerial To iSuccess

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End
    Get pvComObject of hoJson to vJson
    Get pvComObject of hoCert to vCert
    Get ComFindCert Of hoCertStore vJson vCert To iSuccess
    If (iSuccess = True) Begin
        // Show the serial number and subject CN
        Get ComSerialNumber Of hoCert To sTemp1
        Get ComSubjectCN Of hoCert To sTemp2
        Showln "Found: " sTemp1 ", " sTemp2
    End
    Else Begin
        Showln "Not found."
    End



End_Procedure