(Tcl) Generate RSA Public/Private Key

Tcl example code showing how to generate an RSA public/private key.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set rsa [new_CkRsa]

# Generate a 1024-bit key.  Chilkat RSA supports
# key sizes ranging from 512 bits to 4096 bits.
# Note: Starting in Chilkat v9.5.0.49, RSA key sizes can be up to 8192 bits.
# It takes a considerable amount of time and processing power to generate
# an 8192-bit key.
set success [CkRsa_GenerateKey $rsa 1024]
if {$success != 1} then {
    puts [CkRsa_lastErrorText $rsa]
    delete_CkRsa $rsa
    exit
}

# Keys are exported in XML format:
set publicKey [CkRsa_exportPublicKey $rsa]
puts "$publicKey"

set privateKey [CkRsa_exportPrivateKey $rsa]
puts "$privateKey"

delete_CkRsa $rsa