(PureBasic) ScMinidriver - List Certificates on a Smart Card or USB Token

See more ScMinidriver Examples

Gets a list of certificates contained on a smart card or USB token.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkStringTable.pb"
IncludeFile "CkScMinidriver.pb"

Procedure ChilkatExample()

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    ; Reader names (smart card readers or USB tokens) can be discovered
    ; via PCSC List Readers or PCSC Find Smart Cards
    readerName.s = "SCM Microsystems Inc. SCR33x USB Smart Card Reader 0"
    success.i = CkScMinidriver::ckAcquireContext(scmd,readerName)
    If success = 0
        Debug CkScMinidriver::ckLastErrorText(scmd)
        CkScMinidriver::ckDispose(scmd)
        ProcedureReturn
    EndIf

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

    ; We can choose one of the following items of information to get for each certificate:
    ; "subjectDN" -- Return the full distinguished name of the cert.
    ; "subjectDN_withTags" -- Same as above, but in a format that includes the subject part tags, such as the "CN=" in "CN=something"
    ; "subjectCN" -- Return just the common name part of the certificate's subject.
    ; "serial" -- Return the certificate serial number.
    ; "serial:issuerCN" -- return the certificate serial number + the issuer's common name, delimited with a colon char.
    certPart.s = "subjectCN"

    success = CkScMinidriver::ckListCerts(scmd,certPart,stCerts)
    If success = 0
        Debug CkScMinidriver::ckLastErrorText(scmd)
        CkScMinidriver::ckDispose(scmd)
        CkStringTable::ckDispose(stCerts)
        ProcedureReturn
    EndIf

    numCerts.i = CkStringTable::ckCount(stCerts)
    i.i = 0
    While i < numCerts
        Debug Str(i) + ": " + CkStringTable::ckStringAt(stCerts,i)
        i = i + 1
    Wend

    ; Delete the context when finished with the card.
    success = CkScMinidriver::ckDeleteContext(scmd)
    If success = 0
        Debug CkScMinidriver::ckLastErrorText(scmd)
    EndIf



    CkScMinidriver::ckDispose(scmd)
    CkStringTable::ckDispose(stCerts)


    ProcedureReturn
EndProcedure