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

See more Cert Store Examples

Finds a certificate by it's SHA-1 hex thumbprint.

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loCertStore
LOCAL lcThumbprint
LOCAL lnBReadOnly
LOCAL lnSuccess
LOCAL loJson
LOCAL loCert
LOCAL loCertStorePem

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')

lcThumbprint = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2"

* This opens the Current User certificate store on Windows,
* On MacOS and iOS it opens the default Keychain.
lnBReadOnly = 1
lnSuccess = loCertStore.OpenCurrentUserStore(lnBReadOnly)
IF (lnSuccess = 0) THEN
    ? loCertStore.LastErrorText
    RELEASE loCertStore
    CANCEL
ENDIF

* Find the certificate having a specific SHA1 thumbprint.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("thumbprint",lcThumbprint)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCertStore.FindCert(loJson,loCert)
IF (lnSuccess = 0) THEN
    ? "Failed to find the certificate."
    RELEASE loCertStore
    RELEASE loJson
    RELEASE loCert
    CANCEL
ENDIF

? "Found: " + loCert.SubjectCN

* -------------------------------------------------------------------------------------
* Alternatively, one could load a certificate store object with certs from a PEM file,
* and do the same thing..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStorePem = CreateObject('Chilkat.CertStore')

lnSuccess = loCertStorePem.LoadPemFile("pemFiles/certificates.pem")
IF (lnSuccess = 0) THEN
    ? loCertStorePem.LastErrorText
    RELEASE loCertStore
    RELEASE loJson
    RELEASE loCert
    RELEASE loCertStorePem
    CANCEL
ENDIF

lnSuccess = loCertStore.FindCert(loJson,loCert)
IF (lnSuccess = 0) THEN
    ? "Failed to find the certificate."
    RELEASE loCertStore
    RELEASE loJson
    RELEASE loCert
    RELEASE loCertStorePem
    CANCEL
ENDIF

? "Found: " + loCert.SubjectCN

RELEASE loCertStore
RELEASE loJson
RELEASE loCert
RELEASE loCertStorePem