(DataFlex) Open Smartcard Certificate Store (or from USB Token)

Demonstrates how to open the certificate store of the smart card currently in the reader (or the USB token). Iterates over the certs found on the smartcard.

Note: This example requires Chilkat v9.5.0.80 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCertStore
    String sCspName
    Boolean iSuccess
    Integer i
    Integer iNumCerts
    Variant vCert
    Handle hoCert
    String sTemp1

    Get Create (RefClass(cComChilkatCertStore)) To hoCertStore
    If (Not(IsComObjectCreated(hoCertStore))) Begin
        Send CreateComObject of hoCertStore
    End

    // To allow Chilkat to automatically choose a CSP,
    // set the CSP name to the empty string.
    Move "" To sCspName

    // Chilkat will choose the 1st 3rd party CSP in the following list
    // that it finds on the system.  If no 3rd party CSP is found, then
    // the "Microsoft Base Smart Card Crypto Provider" is automatically chosen
    // 
    // Bit4id Universal Middleware Provider
    // eToken Base Cryptographic Provider
    // FTSafe ePass1000 RSA Cryptographic Service Provider
    // EnterSafe ePass2003 CSP v2.0
    // Gemalto Classic Card CSP
    // PROXKey CSP India V1.0
    // PROXKey CSP India V2.0
    // TRUST KEY CSP V1.0
    // Watchdata Brazil CSP V1.0
    // Luna Cryptographic Services for Microsoft Windows
    // Luna SChannel Cryptographic Services for Microsoft Windows
    // Safenet RSA Full Cryptographic Provider
    // nCipher Enhanced Cryptographic Provider
    // SafeSign Standard Cryptographic Service Provider
    // SafeSign Standard RSA and AES Cryptographic Service Provider
    // MySmartLogon NFC CSP
    // NFC Connector Enterprise
    // ActivClient Cryptographic Service Provider
    // EnterSafe ePass2003 CSP v1.0
    // Athena ASECard Crypto CSP"

    // To get the list of CSP's on your system, see this example:
    // List Cryptographic Service Providers (CSP's) on a Windows System

    // Access the certificates on the smart card via the Chilkat certificate store class.
    Get ComOpenSmartcard Of hoCertStore sCspName To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Iterate over certificates on the smartcard.
    Move 0 To i
    Get ComNumCertificates Of hoCertStore To iNumCerts
    Showln "numCerts = " iNumCerts

    While (i < iNumCerts)
        Get ComGetCertificate Of hoCertStore i To vCert
        If (IsComObject(vCert)) Begin
            Get Create (RefClass(cComChilkatCert)) To hoCert
            Set pvComObject Of hoCert To vCert
        End
        Get ComSubjectCN Of hoCert To sTemp1
        Showln sTemp1
        Send Destroy of hoCert
        Move (i + 1) To i
    Loop



End_Procedure