Perl

Start SSH Tunnel Keyboard-Interactive Authentication

Demonstrates the Chilkat SshTunnel.StartKeyboardAuth method, which begins keyboard-interactive authentication. The only argument is the login name. It returns XML describing the server's prompts, which are answered with ContinueKeyboardAuth.

Background: Keyboard-interactive is the prompt-driven authentication method: the server sends one or more questions — a password, a one-time code, a security question — and the client answers each. This is how a tunnel supports two-factor and other challenge-response schemes. The returned XML says exactly what to ask and whether to mask the input.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the SshTunnel.StartKeyboardAuth method, which begins keyboard-interactive
# authentication.  The only argument is the login name.  It returns XML describing the server's
# prompts, which are answered with ContinueKeyboardAuth.

my $tunnel = Chilkat2::SshTunnel->new;

# The tunnel forwards accepted local connections to this destination through the SSH server.
$tunnel->DestHostname('db.internal.example.com');
$tunnel->DestPort(5432);

# Connect to the SSH server.  This performs the TCP/proxy connection and SSH handshake, but
# does not authenticate yet.
my $sshPort = 22;
my $success = $tunnel->Connect('ssh.example.com', $sshPort);
if (!$success) {
    print $tunnel->LastErrorText, "\n";
    exit;
}

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

print $infoRequestXml, "\n";

# Answer the prompt(s) with ContinueKeyboardAuth, then call BeginAccepting.

my $waitForThreadExit = 1;
$success = $tunnel->CloseTunnel($waitForThreadExit);
if (!$success) {
    print $tunnel->LastErrorText, "\n";
    exit;
}