Sample code for 30+ languages & platforms
Tcl

Export Public Key from USB Token or Smartcard using the Apple Keychain

See more Apple Keychain Examples

Demonstrates how to export a public key from a USB token or smart card via the Apple Keychain.

Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

set success 0

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

set cert [new_CkCert]

# On MacOS and iOS, the LoadByCommonName function will search the Apple Keychain for the matching certificate.

# A digital certificate's Common Name (CN) is a field in the certificate that specifies the name of the entity the 
# certificate is issued to. It is often used to identify the domain name, hostname, or organization the certificate represents. 

# For example:
# - In an SSL/TLS certificate for a website, the CN typically contains the domain name (e.g., "www.example.com").
# - For certificates representing individuals or organizations, the CN might include the person's name or the organization's name.

# The CN is part of the certificate's Subject field and is crucial for verifying that the certificate corresponds 
# to the intended entity, especially in SSL/TLS communications.

set success [CkCert_LoadByCommonName $cert "Test 2048 bit RSA"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

set pubKey [new_CkPublicKey]

CkCert_GetPublicKey $cert $pubKey

set success [CkPublicKey_SavePemFile $pubKey 0 "rsaKeys/Test2048Rsa.pem"]
if {$success == 0} then {
    puts [CkPublicKey_lastErrorText $pubKey]
}


delete_CkCert $cert
delete_CkPublicKey $pubKey