(Lianja) Find Certificate on Smartcard Currenty in Reader

Finds the certificates on smartcards currently in readers.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// This newer example is a much better way to get the certificate on a smartcard or USB token

// This example requires that we already know the name of the CSP (Cryptographic Service Provider) for the smartcard.
// It is often the "Microsoft Base Smart Card Crypto Provider".  You can see what CSP's are registered on your system with this code:

loCsp = createobject("CkCsp")
loSt = createobject("CkStringTable")

llSuccess = loCsp.GetProviders(loSt)
if (llSuccess = .F.) then
    ? loCsp.LastErrorText
    release loCsp
    release loSt
    return
endif

// Iterate over the CSP names..
i = 0
lnNumProviders = loSt.Count
do while i < lnNumProviders
    ? str(i) + ": " + loSt.StringAt(i)
    i = i + 1
enddo

// --------------------------
// This newer example is a much better way to get the certificate on a smartcard or USB token

// We'll assume our smartcard is accessed through the "Microsoft Base Smart Card Crypto Provider"
// Also, we'll assume that the certificate has been installed into the default current user Windows
// certificate store by following the instructions provided by the smartcard vendor.
// (The certificate does not contain the private key.  The certificate should be installed in the
// Windows current user certificate store.  It will also be on the smartcard, and the associated private
// key is only on the smartcard.)
// 

// First open the Current User Certificate Store.  We'll need it soon..
loCertStore = createobject("CkCertStore")
llSuccess = loCertStore.OpenCurrentUserStore(.T.)
if (llSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loCsp
    release loSt
    release loCertStore
    return
endif

// Create a Csp object and set the ProviderName equal to our desired CSP name.
// (setting the ProviderName selects the desired CSP.)
loCsp.ProviderName = "Microsoft Base Smart Card Crypto Provider"

// Iterate over the key containers managed by this CSP.
// These will be the key containers for the cards currently inserted into the reader(s).
// If only one smartcard reader exists, and a smartcard is inserted, there should be one
// key container.
lnNumContainers = loCsp.NumKeyContainers

? "numContainers = " + str(lnNumContainers)

i = 0
do while i < lnNumContainers
    // For each key container, get the key container name and then find the certificate
    // in the Current User Certicate Store with the matching key container name.
    lcKeyContainerName = loCsp.NthKeyContainerName(i)

    loCert = loCertStore.FindCertByKeyContainer(lcKeyContainerName)
    if (loCertStore.LastMethodSuccess = .T.) then
        ? "Certificate in reader: " + loCert.SubjectCN
        release loCert
    endif

    i = i + 1
enddo


release loCsp
release loSt
release loCertStore