Perl Requires Chilkat v11.0.0+

SFTP Auth Failure Reason (AuthenticatePwPk)

See more SFTP Examples

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? Perl

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;
}

$sftp = chilkat::CkSFtp->new();

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

#  Authenticate using both a password and private key.
$success = $sftp->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..

$json = chilkat::CkJsonObject->new();
$sftp->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";