DataFlex

Find Certificate by SHA1 Thumbprint

See more Cert Store Examples

Demonstrates how to find a certificate having the specified hexadecimal SHA1 thumbprint.

Note: Requires Chilkat v10.1.2 or later.

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Variant vCert
Store    Handle hoCertStore
    Boolean iReadOnly
    Variant vJson
    Handle hoJson
    String sHexThumbprint
    Variant vCert
    Handle hoCert
    String sTemp1

    Move False To iSuccess

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

    // This opens the Current User certificate store on Windows,
    // On MacOS and iOS it opens the default Keychain.
    Move False To iReadOnly
    Get ComOpenCurrentUserStore Of hoCertStore iReadOnly To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Find the certificate having a specific SHA1 thumbprint.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Move "767192374BE3C1512D2CB80734926D40E96D6DC2" To sHexThumbprint
    Get ComUpdateString Of hoJson "thumbprint" sHexThumbprint 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 full distinguished name of the certificate.
        Get ComSubjectDN Of hoCert To sTemp1
        Showln "Found: " sTemp1
    End
    Else Begin
        Showln "Not found."
    End



End_Procedure