(Lianja) Find Certificate by Email Address

Locate the certificate containing the specified email address in either the RFC822 Name or the Subject.

Note: This example 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 = .T.
llSuccess = loCertStore.OpenCurrentUserStore(llReadOnly)
if (llSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

// Locate the certificate containing the specified email address in either the RFC822 Name or the Subject.
loJson = createobject("CkJsonObject")
lcEmail_address = "harold@example.com"
loJson.UpdateString("email",lcEmail_address)

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