(Tcl) SFTP Public-Key Authentication

Demonstrates how to authenticate with an SSH/SFTP server using publickey authentication.

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 sftp [new_CkSFtp]

# Set some timeouts, in milliseconds:
CkSFtp_put_ConnectTimeoutMs $sftp 5000
CkSFtp_put_IdleTimeoutMs $sftp 15000

# Connect to the SSH server.  
# The standard SSH port = 22
# The hostname may be a hostname or IP address.
set hostname "sftp.example.com"
set port 22
set success [CkSFtp_Connect $sftp $hostname $port]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

set key [new_CkSshKey]

# Load a PEM file into a string variable:
# (This does not load the PEM file into the key.  The LoadText
# method is a convenience method for loading the full contents of ANY text
# file into a string variable.)
set privKey [CkSshKey_loadText $key "myPrivateKey.pem"]
if {[CkSshKey_get_LastMethodSuccess $key] != 1} then {
    puts [CkSshKey_lastErrorText $key]
    delete_CkSFtp $sftp
    delete_CkSshKey $key
    exit
}

# Load a private key from a PEM string:
# (Private keys may be loaded from OpenSSH and Putty formats.
# Both encrypted and unencrypted private key file formats
# are supported.  This example loads an unencrypted private
# key in OpenSSH format.
set success [CkSshKey_FromOpenSshPrivateKey $key $privKey]
if {$success != 1} then {
    puts [CkSshKey_lastErrorText $key]
    delete_CkSFtp $sftp
    delete_CkSshKey $key
    exit
}

# Authenticate with the SSH server.  Chilkat SFTP supports
# both password-based authenication as well as public-key
# authentication.  
set success [CkSFtp_AuthenticatePk $sftp "myLogin" $key]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    delete_CkSshKey $key
    exit
}

puts [CkSFtp_lastErrorText $sftp]
puts "Public-Key Authentication Successful!"

delete_CkSFtp $sftp
delete_CkSshKey $key