(Tcl) Get Issuer Certificate Information

See more Certificates Examples

A certificate contains information about its issuer. This example demonstrates how to get the issuer information from a certificate.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set cert [new_CkCert]

set success [CkCert_LoadFromFile $cert "qa_data/certs/sample.cer"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

# Get issuer information:

# -----------------------------------------------------------------------
# (Not all subject fields may exist depending on the issuer certificate.)
# -----------------------------------------------------------------------

# Issuer DN (Distinguished Name, i.e. all the Issuer subject parts)
puts "DN: [CkCert_issuerDN $cert]"

# Common Subject parts:
# Issuer Common Name
puts "CN: [CkCert_issuerCN $cert]"

# Issuer Country
puts "C: [CkCert_issuerC $cert]"

# Issuer Email address
puts "E: [CkCert_issuerE $cert]"

# Issuer Locality
puts "L: [CkCert_issuerL $cert]"

# Issuer Organization
puts "O: [CkCert_issuerO $cert]"

# Issuer Organizational Unit
puts "OU: [CkCert_issuerOU $cert]"

# Issuer State
puts "S: [CkCert_issuerS $cert]"

delete_CkCert $cert