(PureBasic) Find a Certificate by it's SHA-1 Thumbprint

Finds a certificate by it's SHA-1 hex thumbprint. Parts of this example are specific to Windows because it searches the Windows Current User certificate store.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"
IncludeFile "CkCertStore.pb"

Procedure ChilkatExample()

    certStore.i = CkCertStore::ckCreate()
    If certStore.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    thumbprint.s = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2"

    ; This part of the example is specific to Windows because it is opening the Windows Current-User certificate store.
    bReadOnly.i = 1
    success.i = CkCertStore::ckOpenCurrentUserStore(certStore,bReadOnly)
    If success <> 1
        Debug CkCertStore::ckLastErrorText(certStore)
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    ; Find the certificate with the desired thumbprint
    cert.i = CkCertStore::ckFindCertBySha1Thumbprint(certStore,thumbprint)
    If CkCertStore::ckLastMethodSuccess(certStore) <> 1
        Debug "Failed to find the certificate."
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    Debug "Found: " + CkCert::ckSubjectCN(cert)
    CkCert::ckDispose(cert)

    ; -------------------------------------------------------------------------------------
    ; Alternatively, one could load a certificate store object with certs from a PEM file,
    ; and do the same thing..
    certStorePem.i = CkCertStore::ckCreate()
    If certStorePem.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkCertStore::ckLoadPemFile(certStorePem,"pemFiles/certificates.pem")
    If success <> 1
        Debug CkCertStore::ckLastErrorText(certStorePem)
        CkCertStore::ckDispose(certStore)
        CkCertStore::ckDispose(certStorePem)
        ProcedureReturn
    EndIf

    cert = CkCertStore::ckFindCertBySha1Thumbprint(certStorePem,thumbprint)
    If CkCertStore::ckLastMethodSuccess(certStorePem) <> 1
        Debug "Failed to find the certificate."
        CkCertStore::ckDispose(certStore)
        CkCertStore::ckDispose(certStorePem)
        ProcedureReturn
    EndIf

    Debug "Found: " + CkCert::ckSubjectCN(cert)
    CkCert::ckDispose(cert)



    CkCertStore::ckDispose(certStore)
    CkCertStore::ckDispose(certStorePem)


    ProcedureReturn
EndProcedure