(Lianja) Find Certificate by SHA1 Thumbprint

See more Cert Store Examples

Note: Requires Chilkat v10.1.2 or later.

Chilkat Lianja Extension Download Chilkat Lianja Extension

loCertStore = createobject("CkCertStore")

// This opens the Current User certificate store on Windows,
// On MacOS and iOS it opens the default Keychain.
llReadOnly = .F.
llSuccess = loCertStore.OpenCurrentUserStore(llReadOnly)
if (llSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

// Find the certificate having a specific SHA1 thumbprint.
loJson = createobject("CkJsonObject")
lcHexThumbprint = "767192374BE3C1512D2CB80734926D40E96D6DC2"
loJson.UpdateString("thumbprint",lcHexThumbprint)

loCert = createobject("CkCert")
llSuccess = loCertStore.FindCert(loJson,loCert)
if (llSuccess = .T.) then
    // Show the full distinguished name of the certificate.
    ? "Found: " + loCert.SubjectDN
else
    ? "Not found."
endif



release loCertStore
release loJson
release loCert