(Tcl) Load Certificate from Smart Card by Key Usage

See more Certificates Examples

You may have a smartcard or USB token that contains only 2 certificates, one for signing, and one for authentication, and you wish to load the certificate for signing. This example demonstrates how to load the 1st certificate found on a smartcard that matches the intended key usage.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set cert [new_CkCert]

# If you know the smart card PIN, set it prior to loading from the smartcard/USB token.
CkCert_put_SmartCardPin $cert "12345678"

# To load a certificate matching an intended key usage, specify the type of usage as shown below.
# 
# The possible key usage keywords are:
# 
# digitalsignature
# Use when the public key is used with a digital signature mechanism to support security services other than non-repudiation, certificate signing, or CRL signing. 
# A digital signature is often used for entity authentication and data origin authentication with integrity.

# nonrepudiation
# When a digital certificate's key usage includes "nonrepudiation," it implies that the certificate and its associated private key can be used to 
# create digital signatures that provide proof of the origin and integrity of the signed data, and the signer cannot later deny having signed the data.

# Other less common usages:

# certificatesigning
# keyencipherment
# dataencipherment
# crlsigning
# secureemail
# serverauthentication
# clientauthentication
# codesigning
# timestamping

set success [CkCert_LoadFromSmartcard $cert "keyusage=nonrepudiation"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    puts "Certificate not loaded."
    delete_CkCert $cert
    exit
}

puts "Found: [CkCert_subjectDN $cert] serial=[CkCert_serialNumber $cert]"

delete_CkCert $cert