(PureBasic) Find Certificate for Email Address in Current-User Certificate Store (Windows-Only)

This is a Windows-only example to find a certificate for a given email address in the current-user certificate store (located in the Windows Registry).

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"
IncludeFile "CkCertStore.pb"

Procedure ChilkatExample()

    ; This is a Windows-only example because it lists the certificates
    ; stored in the Windows Current User Certificate Store located in the
    ; Windows Registry.

    certStore.i = CkCertStore::ckCreate()
    If certStore.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    readOnly.i = 1
    success.i = CkCertStore::ckOpenCurrentUserStore(certStore,readOnly)
    If success = 0
        Debug CkCertStore::ckLastErrorText(certStore)
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    emailAddr.s = "support@chilkatsoft.com"
    cert.i = CkCertStore::ckFindCertBySubjectE(certStore,emailAddr)
    If CkCertStore::ckLastMethodSuccess(certStore) <> 1
        Debug "No certificate found for " + emailAddr
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    Debug "Found: " + CkCert::ckSubjectDN(cert)
    CkCert::ckDispose(cert)

    ; It should be case-insensitive, however it was found not to be.
    ; The case-insensitive search is fixed starting in Chilkat v9.5.0.65.
    emailAddr = "SUPPORT@chilkatsoft.com"
    cert = CkCertStore::ckFindCertBySubjectE(certStore,emailAddr)
    If CkCertStore::ckLastMethodSuccess(certStore) <> 1
        Debug "No certificate found for " + emailAddr
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    Debug "Found: " + CkCert::ckSubjectDN(cert)
    CkCert::ckDispose(cert)



    CkCertStore::ckDispose(certStore)


    ProcedureReturn
EndProcedure