(Tcl) Convert RSA Private Key to Public Key

Demonstrates how to get a public RSA key from a private RSA key.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set key [new_CkPrivateKey]

# Step 1: Load the private key from a source.
# (Chilkat can load private keys from all types of formats, and from in-memory bytes or encoded strings.
# see the online reference documentation for more options.)
set success [CkPrivateKey_LoadPemFile $key "qa_data/pem/VP_Private.pem"]
if {$success != 1} then {
    puts [CkPrivateKey_lastErrorText $key]
    delete_CkPrivateKey $key
    exit
}

# Step 2: Get the public key object from the private key object.
# pubKey is a CkPublicKey
set pubKey [CkPrivateKey_GetPublicKey $key]
if {[CkPrivateKey_get_LastMethodSuccess $key] != 1} then {
    puts [CkPrivateKey_lastErrorText $key]
    delete_CkPrivateKey $key
    exit
}

# Step 3: Save the public key in a desired format. 
# (Chilkat can load or save public and private keys in many different formats.  See
# the online reference documentation for more options.)

# Saves to a PKCS8 PEM file.
set bPreferPkcs1 0
set success [CkPublicKey_SavePemFile $pubKey $bPreferPkcs1 "qa_data/pem/VP_Public.pem"]
if {[CkPublicKey_get_LastMethodSuccess $pubKey] != 1} then {
    puts [CkPublicKey_lastErrorText $pubKey]
    delete_CkPrivateKey $key
    exit
}

delete_CkPublicKey $pubKey

puts "Extracted and saved public key from private key."

delete_CkPrivateKey $key