(PureBasic) Load Certificate from Smart Card by Common Name

See more Certificates Examples

This example requires Chilkat v9.5.0.87 or greater. It uses a Windows-only function named LoadFromSmartcard.

This example loads a certificate specified by its subject common name (CN part of the Subject). The LoadFromSmartcard method will examine the connected smart cards and USB tokens and will find and load the certificate having the specified CN.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"

Procedure ChilkatExample()

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

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

    ; If you know the smart card PIN, set it prior to loading from the smartcard/USB token.
    CkCert::setCkSmartCardPin(cert, "12345678")

    ; To load the certificate specified by CN, pass the string "CN=<subjectCN>".  For example:
    success.i = CkCert::ckLoadFromSmartcard(cert,"CN=Ch application signature (8c9be8e0-5544-4cd0-9062-290fbff353a7)")
    If success = 0
        Debug CkCert::ckLastErrorText(cert)
        Debug "Certificate not loaded."
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    Debug "Found: " + CkCert::ckSubjectDN(cert) + " serial=" + CkCert::ckSerialNumber(cert)

    ; Here's another example:
    cert2.i = CkCert::ckCreate()
    If cert2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkCert::ckLoadFromSmartcard(cert2,"CN=yubikey rsa 1024 authentication")
    If success = 0
        Debug CkCert::ckLastErrorText(cert2)
        Debug "Certificate not loaded."
        CkCert::ckDispose(cert)
        CkCert::ckDispose(cert2)
        ProcedureReturn
    EndIf

    Debug "Found: " + CkCert::ckSubjectDN(cert2) + " serial=" + CkCert::ckSerialNumber(cert2)


    CkCert::ckDispose(cert)
    CkCert::ckDispose(cert2)


    ProcedureReturn
EndProcedure