(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCertStore
LOCAL lcThumbprint
LOCAL lnBReadOnly
LOCAL lnSuccess
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 part of the example is specific to Windows because it is opening the Windows Current-User certificate store.
lnBReadOnly = 1
lnSuccess = loCertStore.OpenCurrentUserStore(lnBReadOnly)
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    RELEASE loCertStore
    CANCEL
ENDIF

* Find the certificate with the desired thumbprint
loCert = loCertStore.FindCertBySha1Thumbprint(lcThumbprint)
IF (loCertStore.LastMethodSuccess <> 1) THEN
    ? "Failed to find the certificate."
    RELEASE loCertStore
    CANCEL
ENDIF

? "Found: " + loCert.SubjectCN
RELEASE loCert

* -------------------------------------------------------------------------------------
* 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 <> 1) THEN
    ? loCertStorePem.LastErrorText
    RELEASE loCertStore
    RELEASE loCertStorePem
    CANCEL
ENDIF

loCert = loCertStorePem.FindCertBySha1Thumbprint(lcThumbprint)
IF (loCertStorePem.LastMethodSuccess <> 1) THEN
    ? "Failed to find the certificate."
    RELEASE loCertStore
    RELEASE loCertStorePem
    CANCEL
ENDIF

? "Found: " + loCert.SubjectCN
RELEASE loCert

RELEASE loCertStore
RELEASE loCertStorePem