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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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.

my $ssh = Chilkat2::Ssh->new;

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

# Begin keyboard-interactive authentication.  The returned XML describes the prompts.
my $infoRequestXml = $ssh->StartKeyboardAuth('mySshLogin');
if (!$ssh->LastMethodSuccess) {
    print $ssh->LastErrorText, "\n";
    exit;
}

print $infoRequestXml, "\n";

# Answer the prompt(s) with ContinueKeyboardAuth.

$ssh->Disconnect();