Tcl

Apple Keychain - Get Certificate by Common Name

See more Apple Keychain Examples

Retrieves the certificate from the Apple Keychain that matches the specified common name (CN).

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

Tcl

load ./chilkat.dll

set success 0

# On MacOS or iOS, this searches both the Default keychains and System keychains for the certificate
# having the specified CN.
set cert [new_CkCert]

set success [CkCert_LoadByCommonName $cert "Certum CA"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

puts [CkCert_subjectDN $cert]

# Note: In the Apple Keychain, a certificate with its private key represents an identity because it combines the certificate and its private key.
# When Chilkat loads a certificate from the Apple Keychain, it also gets the associated private key.
# You can simply use the cert in other places in Chilkat where a cert w/ private key is required.
set cert2 [new_CkCert]

set success [CkCert_LoadByCommonName $cert2 "Chilkat Software, Inc."]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert2]
    delete_CkCert $cert
    delete_CkCert $cert2
    exit
}

puts [CkCert_subjectDN $cert2]
set hasPrivKey [CkCert_HasPrivateKey $cert2]
puts "Has private key: $hasPrivKey"

puts "Success."

delete_CkCert $cert
delete_CkCert $cert2