Perl

Start SSH Keyboard-Interactive Authentication

Demonstrates the Chilkat Ssh.StartKeyboardAuth method, which begins keyboard-interactive authentication. The only argument is the login name. It returns XML describing the server's prompts and whether each response should be echoed. Answer the prompts with ContinueKeyboardAuth.

Background: Keyboard-interactive is the flexible, prompt-driven SSH method — the server sends one or more questions (a password, a one-time code, a security question) and the client answers each. It is how SSH supports two-factor and other challenge-response schemes. The returned XML tells you exactly what to ask the user and whether to mask their input.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Ssh.StartKeyboardAuth method, which begins keyboard-interactive
#  authentication.  The only argument is the login name.  It returns XML describing the server's
#  prompts and whether each response should be echoed.

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

#  Connect to the SSH server.  Port 22 is the usual SSH port.
$sshPort = 22;
$success = $ssh->Connect("ssh.example.com",$sshPort);
if ($success == 0) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

#  Begin keyboard-interactive authentication.  The returned XML describes the prompts.
$infoRequestXml = $ssh->startKeyboardAuth("mySshLogin");
if ($ssh->get_LastMethodSuccess() == 0) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

print $infoRequestXml . "\r\n";

#  Answer the prompt(s) with ContinueKeyboardAuth.

$ssh->Disconnect();