(Perl) SFTP Public-Key Authentication

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$sftp = chilkat::CkSFtp->new();

# Set some timeouts, in milliseconds:
$sftp->put_ConnectTimeoutMs(5000);
$sftp->put_IdleTimeoutMs(15000);

# Connect to the SSH server.  
# The standard SSH port = 22
# The hostname may be a hostname or IP address.
$hostname = "sftp.example.com";
$port = 22;
$success = $sftp->Connect($hostname,$port);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

$key = chilkat::CkSshKey->new();

# 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.)
$privKey = $key->loadText("myPrivateKey.pem");
if ($key->get_LastMethodSuccess() != 1) {
    print $key->lastErrorText() . "\r\n";
    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.
$success = $key->FromOpenSshPrivateKey($privKey);
if ($success != 1) {
    print $key->lastErrorText() . "\r\n";
    exit;
}

# Authenticate with the SSH server.  Chilkat SFTP supports
# both password-based authenication as well as public-key
# authentication.  
$success = $sftp->AuthenticatePk("myLogin",$key);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

print $sftp->lastErrorText() . "\r\n";
print "Public-Key Authentication Successful!" . "\r\n";