(Perl) SSH Auth Failure Reason (AuthenticatePwPk)

This example demonstrates how to determine the failure reason for the case where both a password and private key are required for authentication. If authentication fails, was it because of an invalid private key, or an invalid password?

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

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

# Load a private key to be used for SSH authentication.
$key = chilkat::CkSshKey->new();
$key->put_Password("key_password");

$success = $key->FromOpenSshPrivateKey($key->loadText("qa_data/my_private_key_file"));
if ($success == 0) {
    print $key->lastErrorText() . "\r\n";
    exit;
}

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

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

# Authenticate using both a password and private key.
$success = $ssh->AuthenticatePwPk("myLogin","myPassword",$key);
if ($success == 1) {
    print "Authentication is successful!" . "\r\n";
    exit;
}

# If we get here, it means the authentication failed.
# Examine the last JSON data to get information..

$json = chilkat::CkJsonObject->new();
$ssh->GetLastJsonData($json);

$json->put_EmitCompact(0);

# This is the JSON if the key is correct, but the password is incorrect:

# {
#   "public_key_type": "rsa",
#   "partialAuthResult": "publickey success. continue to authenticate with password...",
#   "authResult": "failed",
#   "authFailReason": "Password is incorrect"
# }

# This is the JSON if the key is incorrect.  We won't know if the password is also incorrect until
# the key is made correct so that authentication proceeds to check the password.

# {
#   "public_key_type": "rsa",
#   "authResult": "failed",
#   "authFailReason": "Key is incorrect"
# }

# To get the authResult anbd authFailReason:
print "authResult: " . $json->stringOf("authResult") . "\r\n";
print "authFailReason: " . $json->stringOf("authFailReason") . "\r\n";