(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 {[expr $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 {[expr [CkCert_get_LastMethodSuccess $cert] == 0]} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

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

    delete_CkCert $cert
    exit
}

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

    delete_CkCert $cert
    exit
}

set success [CkPublicKey_SaveRsaDerFile $pubkey "/Users/chilkat/testData/pubkeys/chilkat_rsa.der"]
if {[expr $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 {[expr $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