(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

loCertStore = createobject("CkCertStore")

lcThumbprint = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2"

// This part of the example is specific to Windows because it is opening the Windows Current-User certificate store.
llBReadOnly = .T.
llSuccess = loCertStore.OpenCurrentUserStore(llBReadOnly)
if (llSuccess <> .T.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

// Find the certificate with the desired thumbprint
loCert = loCertStore.FindCertBySha1Thumbprint(lcThumbprint)
if (loCertStore.LastMethodSuccess <> .T.) then
    ? "Failed to find the certificate."
    release loCertStore
    return
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..
loCertStorePem = createobject("CkCertStore")

llSuccess = loCertStorePem.LoadPemFile("pemFiles/certificates.pem")
if (llSuccess <> .T.) then
    ? loCertStorePem.LastErrorText
    release loCertStore
    release loCertStorePem
    return
endif

loCert = loCertStorePem.FindCertBySha1Thumbprint(lcThumbprint)
if (loCertStorePem.LastMethodSuccess <> .T.) then
    ? "Failed to find the certificate."
    release loCertStore
    release loCertStorePem
    return
endif

? "Found: " + loCert.SubjectCN
release loCert


release loCertStore
release loCertStorePem