(Perl) SSH Keyboard Authentication

Demonstrates how to implement keyboard authentication with an SSH server.

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.

$ssh = chilkat::CkSsh->new();

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

# Begin keyboard authentication..
$xmlResponse = $ssh->startKeyboardAuth("myLogin");
if ($ssh->get_LastMethodSuccess() != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# If a user authentication banner was received, then your app
# may display it prior to prompting for the password.
print "UserAuthBanner: " . $ssh->userAuthBanner() . "\r\n";

$xml = chilkat::CkXml->new();

$success = $xml->LoadXml($xmlResponse);
# Assume LoadXml succeeds for the example..
if ($xml->HasChildWithTag("success") == 1) {
    print "No password required, already authenticated." . "\r\n";
    exit;
}

if ($xml->HasChildWithTag("error") == 1) {
    print "Authentication already failed." . "\r\n";
    exit;
}

# See the online reference documentation for Chilkat SSH.
# The XML returned by StartKeyboardAuth will contain an infoRequest
# with one or more prompts that your application may choose to display.

# Call ContinueKeyboardAuth, passing in the whatever information is requires (such as the password).
# Typically, keyboard authentication requires one call to ContinueKeyboardAuth 
# using the password.  Theoretically, the SSH server could prompt for additional pieces
# of information.  The authentication is completed when the XML returned contains
# either a "success" or "error" child node.

# This example asumes only one call to ContinueKeyboardAuth is required.
$xmlResponse = $ssh->continueKeyboardAuth("myPassword");
if ($ssh->get_LastMethodSuccess() != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

$success = $xml->LoadXml($xmlResponse);
# Assume LoadXml succeeds for the example..
if ($xml->HasChildWithTag("success") == 1) {
    print "SSH Keyboard Authentication Successful!" . "\r\n";
    exit;
}

if ($xml->HasChildWithTag("error") == 1) {
    print "Authentication failed." . "\r\n";
    exit;
}