Perl

Get SSH Server Authentication Methods

See more SSH Examples

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

This example requires Chilkat v9.5.0.78 or greater.

Perl

use chilkat();

$success = 0;

# 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();