(Tcl) Apple Keychain - List Certs on Smartcards and USB Tokens

See more Apple Keychain Examples

Note: This example requires Chilkat v10.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set certStore [new_CkCertStore]

# On MacOS and iOS, the OpenSmartcard method opens the Keychain.
# The argument passed to OpenSmartcard is ignored.
set success [CkCertStore_OpenSmartcard $certStore ""]
if {$success == 0} then {
    puts [CkCertStore_lastErrorText $certStore]
    delete_CkCertStore $certStore
    exit
}

set numCerts [CkCertStore_get_NumCertificates $certStore]
puts "numCerts = $numCerts"

set i 0
while {$i < $numCerts} {
    # Note: Chilkat also gets the associated private key if it exists.
    # You can simply use the cert in other places in Chilkat where a cert w/ private key is required.
    # cert is a CkCert
    set cert [CkCertStore_GetCertificate $certStore $i]
    puts [CkCert_subjectDN $cert]
    puts [CkCert_subjectCN $cert]
    puts [CkCert_serialNumber $cert]
    if {[CkCert_IsRsa $cert] == 1} then {
        puts "key type is RSA"
    }

    if {[CkCert_IsEcdsa $cert] == 1} then {
        puts "key type is ECDSA"
    }

    puts "has private key: [CkCert_HasPrivateKey $cert]"
    puts "----"
    delete_CkCert $cert

    set i [expr $i + 1]
}

CkCertStore_CloseCertStore $certStore

delete_CkCertStore $certStore