(Tcl) Generate RSA SSH Key

See more SSH Key Examples

Generates an RSA SSH key and saves to various public and private key file formats (OpenSSH and PuTTY).

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set key [new_CkSshKey]

# numBits may range from 384 to 4096.  Typical values are
# 1024 or 2048.  (must be a multiple of 64)
# A good choice for the exponent is 65537.  Chilkat recommends
# always using this value.
set numBits 2048
set exponent 65537
set success [CkSshKey_GenerateRsaKey $key $numBits $exponent]
if {$success != 1} then {
    puts "Bad params passed to RSA key generation method."
    delete_CkSshKey $key
    exit
}

# Note: Generating a public/private key pair is CPU intensive
# and may take a short amount of time (more than few seconds,
# but less than a minute).

# Export the RSA private key to OpenSSH, PuTTY, and XML and save. 
set exportEncrypted 0
set exportedKey [CkSshKey_toOpenSshPrivateKey $key $exportEncrypted]
# Chilkat provides a SaveText method for convenience...
set success [CkSshKey_SaveText $key $exportedKey "privkey_openssh_unencrypted.pem"]

# Export with encryption to OpenSSH private key format:
CkSshKey_put_Password $key "secret"
set exportEncrypted 1
set exportedKey [CkSshKey_toOpenSshPrivateKey $key $exportEncrypted]
set success [CkSshKey_SaveText $key $exportedKey "privkey_openssh_encrypted.pem"]

# Export the RSA private key to unencrypted PuTTY format:
set exportEncrypted 0
set exportedKey [CkSshKey_toPuttyPrivateKey $key $exportEncrypted]
set success [CkSshKey_SaveText $key $exportedKey "privkey_putty_unencrypted.ppk"]

# Export the RSA private key to encrypted PuTTY format:
CkSshKey_put_Password $key "secret"
set exportEncrypted 1
set exportedKey [CkSshKey_toPuttyPrivateKey $key $exportEncrypted]
set success [CkSshKey_SaveText $key $exportedKey "privkey_putty_encrypted.ppk"]

# Export private key to XML:
set exportedKey [CkSshKey_toXml $key]
set success [CkSshKey_SaveText $key $exportedKey "privkey.xml"]

# ----------------------------------------------------
# Now for the public key....
# ----------------------------------------------------

# The Secure Shell (SSH) Public Key File Format
# is documented in RFC 4716.
set exportedKey [CkSshKey_toRfc4716PublicKey $key]
set success [CkSshKey_SaveText $key $exportedKey "pubkey_rfc4716.pub"]

# OpenSSH has a separate public-key file format, which 
# is also supported by Chilkat SshKey:
set exportedKey [CkSshKey_toOpenSshPublicKey $key]
set success [CkSshKey_SaveText $key $exportedKey "pubkey_openSsh.pub"]

puts "Finished."

delete_CkSshKey $key