(Tcl) Export Digital Certificate's Public Key

The ExportPublicKey method can be called to get a certificate's public key. It can then be saved to any of a number of formats: (1) OpenSSL DER, (2) OpenSSL PEM, (3) RSA DER, (4) XML.

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.
set success [CkCert_LoadFromFile $cert "/Users/chilkat/testData/cer/chilkat.cer"]
if {$success != 1} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

# Get the public key:
# pubkey is a CkPublicKey

set pubkey [CkCert_ExportPublicKey $cert]
if {[CkCert_get_LastMethodSuccess $cert] == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

# Save to various formats:
set success [CkPublicKey_SaveDerFile $pubkey 0 "/Users/chilkat/testData/pubkeys/chilkat_pkcs8.der"]
if {$success != 1} then {
    puts [CkPublicKey_lastErrorText $pubkey]
    delete_CkPublicKey $pubkey

    delete_CkCert $cert
    exit
}

set success [CkPublicKey_SavePemFile $pubkey 0 "/Users/chilkat/testData/pubkeys/chilkat.pem"]
if {$success != 1} then {
    puts [CkPublicKey_lastErrorText $pubkey]
    delete_CkPublicKey $pubkey

    delete_CkCert $cert
    exit
}

set success [CkPublicKey_SaveDerFile $pubkey 1 "/Users/chilkat/testData/pubkeys/chilkat_pkcs1.der"]
if {$success != 1} then {
    puts [CkPublicKey_lastErrorText $pubkey]
    delete_CkPublicKey $pubkey

    delete_CkCert $cert
    exit
}

set success [CkPublicKey_SaveXmlFile $pubkey "/Users/chilkat/testData/pubkeys/chilkat.xml"]
if {$success != 1} then {
    puts [CkPublicKey_lastErrorText $pubkey]
    delete_CkPublicKey $pubkey

    delete_CkCert $cert
    exit
}

delete_CkPublicKey $pubkey

puts "Public key exported to all file formats."

delete_CkCert $cert