Tcl

Load an SSH Key from a File (Many Formats Supported)

Demonstrates how to load an SSH public or private key object from a file. The file can be in any of the following formats:

• OpenSSH private key
• OpenSSH public key
• PuTTY private key
• RFC 4716 public key

Tcl

load ./chilkat.dll

set success 0

set sshkey [new_CkSshKey]

# First, use the LoadText convenience method to load a text file (of any SSH key format)
# into a string:
set strKey [CkSshKey_loadText $sshkey "../mySshKeys/myKey.txt"]

# Next, load the key into the SSH key object.

# If the key is an OpenSSH private key:
# (In actuality, the From* methods will automatically detect the format and load
# the key correctly.  For example, if a PuTTY private key is passed to FromOpenSshPrivateKey,
# it  will still load correctly.)
set success [CkSshKey_FromOpenSshPrivateKey $sshkey $strKey]
if {$success != 1} then {
    puts [CkSshKey_lastErrorText $sshkey]
} else {
    puts "Loaded OpenSSH private key."
    delete_CkSshKey $sshkey
    exit
}

# If the key is an OpenSSH public key:
set success [CkSshKey_FromOpenSshPublicKey $sshkey $strKey]
if {$success != 1} then {
    puts [CkSshKey_lastErrorText $sshkey]
} else {
    puts "Loaded OpenSSH public key."
    delete_CkSshKey $sshkey
    exit
}

# If the key is a PuTTY private key:
set success [CkSshKey_FromPuttyPrivateKey $sshkey $strKey]
if {$success != 1} then {
    puts [CkSshKey_lastErrorText $sshkey]
} else {
    puts "Loaded PuTTY private key."
    delete_CkSshKey $sshkey
    exit
}

# If the key is an RFC 4716 public key:
set success [CkSshKey_FromRfc4716PublicKey $sshkey $strKey]
if {$success != 1} then {
    puts [CkSshKey_lastErrorText $sshkey]
} else {
    puts "Loaded RFC 4716 public key."
}


delete_CkSshKey $sshkey