(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCsp
LOCAL loSt
LOCAL lnSuccess
LOCAL i
LOCAL lnNumProviders
LOCAL loCertStore
LOCAL lnNumContainers
LOCAL lcKeyContainerName
LOCAL loCert

* 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:

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Csp')
loCsp = CreateObject('Chilkat.Csp')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringTable')
loSt = CreateObject('Chilkat.StringTable')

lnSuccess = loCsp.GetProviders(loSt)
IF (lnSuccess = 0) THEN
    ? loCsp.LastErrorText
    RELEASE loCsp
    RELEASE loSt
    CANCEL
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..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')
lnSuccess = loCertStore.OpenCurrentUserStore(1)
IF (lnSuccess = 0) THEN
    ? loCertStore.LastErrorText
    RELEASE loCsp
    RELEASE loSt
    RELEASE loCertStore
    CANCEL
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 = 1) THEN
        ? "Certificate in reader: " + loCert.SubjectCN
        RELEASE loCert
    ENDIF

    i = i + 1
ENDDO

RELEASE loCsp
RELEASE loSt
RELEASE loCertStore