(Tcl) Generate RSA Key and return Base64 PKCS8 Private Key

Demonstrates how to generate a new 2048-bit RSA private key and returns the Base64 encoded PKCS8 representation of the private key.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set rsa [new_CkRsa]

# Generate a 2048-bit key.  Chilkat RSA supports
# key sizes ranging from 512 bits to 8192 bits.
set success [CkRsa_GenerateKey $rsa 2048]
if {$success != 1} then {
    puts [CkRsa_lastErrorText $rsa]
    delete_CkRsa $rsa
    exit
}

# privKey is a CkPrivateKey
set privKey [CkRsa_ExportPrivateKeyObj $rsa]

# Get the private key in PKCS8 Base64 format
set privKeyPkcs8Base64 [CkPrivateKey_getPkcs8ENC $privKey "base64"]

# The key in base64 format will start similar to this:
# MIIEvAIBADANBgkqhkiG9w0BA...
puts "$privKeyPkcs8Base64"

delete_CkRsa $rsa