SFTP Public-Key Authentication

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

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

#  Important: It is helpful to send the contents of the
#  sftp.LastErrorText property when requesting support.

$sftp = new chilkat::CkSFtp();

#  Any string automatically begins a fully-functional 30-day trial.
$success = $sftp->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

#  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 = "www.my-ssh-server.com";
$port = 22;
$success = $sftp->Connect($hostname,$port);
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

$key = new chilkat::CkSshKey();

#  Load a private key from a PEM file:
#  (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.
$privKey = $key->loadText("myPrivateKey.pem");
if ($privKey eq null ) {
    print $key->lastErrorText() . "\n";
    exit;
}

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

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