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). Tcl

load ./chilkat.dll

set success 0

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