(Xojo Plugin) 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 a feature introduced in Chilkat v9.5.0.79

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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.
Dim key As New Chilkat.SshKey
key.Password = "key_password"

Dim success As Boolean
success = key.FromOpenSshPrivateKey(key.LoadText("qa_data/my_private_key_file"))
If (success <> True) Then
    System.DebugLog(key.LastErrorText)
    Return
End If

Dim ssh As New Chilkat.Ssh

success = ssh.Connect("ssh.example.com",22)
If (success <> True) Then
    System.DebugLog(ssh.LastErrorText)
    Return
End If

// Authenticate using both a password and private key.
success = ssh.AuthenticatePwPk("myLogin","myPassword",key)
If (success = True) Then
    System.DebugLog("Authentication is successful!")
    Return
End If

// If we get here, it means the authentication failed.
// To find out why, get the LastJsonData
// This is a feature added in Chilkat v9.5.0.79

Dim json As Chilkat.JsonObject
json = ssh.LastJsonData()
json.EmitCompact = False

// 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:
System.DebugLog("authResult: " + json.StringOf("authResult"))
System.DebugLog("authFailReason: " + json.StringOf("authFailReason"))