SSH Public Key Authentication

Demonstrates how to authenticate with an SSH server using public key 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 sending email
#  to support@chilkatsoft.com

$ssh = new chilkat::CkSsh();

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

#  Set some timeouts, in milliseconds:
$ssh->put_ConnectTimeoutMs(5000);
$ssh->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 = $ssh->Connect($hostname,$port);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\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.  PuTTY keys typically use the .ppk
#  file extension, while OpenSSH keys use the PEM format.
$privKey = $key->loadText("myPrivateKey.pem");
if ($privKey eq null ) {
    print $key->lastErrorText() . "\r\n";
    exit;
}

#  (For PuTTY keys, call FromPuttyPrivateKey instead.)
$success = $key->FromOpenSshPrivateKey($privKey);
if ($success != 1) {
    print $key->lastErrorText() . "\r\n";
    exit;
}

#  Authenticate with the SSH server using the login and
#  private key.  (The corresponding public key should've
#  been installed on the SSH server beforehand.)
$success = $ssh->AuthenticatePk("myLogin",$key);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

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