(Perl) Get SSH Server Authentication Methods

Demonstrates how to get the authentication methods of an SSH server.

This example requires Chilkat v9.5.0.78 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# To get the authentication methods offered by an SSH server, we first connect.
$success = $ssh->Connect("example.com",22);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# Next, we call GetAuthMethods to receive a comma separated list of authentication methods
$authMethods = $ssh->getAuthMethods();
if ($ssh->get_LastMethodSuccess() != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# For example: publickey,password,keyboard-interactive
print "Authentication methods suported by this serve: " . $authMethods . "\r\n";

# IMPORTANT:
# Getting the authentication methods will intentionally disconnect from the server.
# We'll need to re-connect, etc. to continue..

# For example..
$success = $ssh->Connect("example.com",22);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

$success = $ssh->AuthenticatePw("myLogin","myPassword");
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

print "SSH Authentication successful." . "\r\n";

# ...

$ssh->Disconnect();