(Tcl) Load Base64-encoded X.509 Certificate (.cer)

Loads a digital certificate from a base64 encoded DER X.509 Certificate (.cer, .crt) and fetches information about the cert.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set cert [new_CkCert]

# LoadFromFile will load virtually any certificate format file.
# It will auto-recognize the format and load appropiately.
# A base64-encoded DER X.509 certificate file
# contains the binary DER in base64 encoded form.
# Therefore, it is a text file that will begin like this:
# -----BEGIN CERTIFICATE-----
# MIIFbjCCBFagAwIBAgIGdDPNv/L0MA0GCSqGSIb3DQEBBQUAMIHKMQswCQYDVQQG
# EwJVUzEQMA4GA1UECBMHQXJpem9uYTETMBEGA1UEBxMKU2NvdHRzZGFsZTEaMBgG
# ...

set success [CkCert_LoadFromFile $cert "/Users/chilkat/testData/cer/chilkat_base64.cer"]
if {$success != 1} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

# DN = "Distinguished Name"
puts "SubjectDN:[CkCert_subjectDN $cert]"

puts "Common Name:[CkCert_subjectCN $cert]"
puts "Issuer Common Name:[CkCert_issuerCN $cert]"

puts "Serial Number:[CkCert_serialNumber $cert]"

delete_CkCert $cert