(Xojo Plugin) SSH Keyboard Authentication

Demonstrates how to implement keyboard authentication with an SSH server.

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.

Dim ssh As New Chilkat.Ssh

// Set some timeouts, in milliseconds:
ssh.ConnectTimeoutMs = 5000
ssh.IdleTimeoutMs = 15000

// Connect to the SSH server.  
// The standard SSH port = 22
// The hostname may be a hostname or IP address.
Dim hostname As String
hostname = "sftp.example.com"
Dim port As Int32
port = 22
Dim success As Boolean
success = ssh.Connect(hostname,port)
If (success <> True) Then
    System.DebugLog(ssh.LastErrorText)
    Return
End If

// Begin keyboard authentication..
Dim xmlResponse As String
xmlResponse = ssh.StartKeyboardAuth("myLogin")
If (ssh.LastMethodSuccess <> True) Then
    System.DebugLog(ssh.LastErrorText)
    Return
End If

// If a user authentication banner was received, then your app
// may display it prior to prompting for the password.
System.DebugLog("UserAuthBanner: " + ssh.UserAuthBanner)

Dim xml As New Chilkat.Xml

success = xml.LoadXml(xmlResponse)
// Assume LoadXml succeeds for the example..
If (xml.HasChildWithTag("success") = True) Then
    System.DebugLog("No password required, already authenticated.")
    Return
End If

If (xml.HasChildWithTag("error") = True) Then
    System.DebugLog("Authentication already failed.")
    Return
End If

// See the online reference documentation for Chilkat SSH.
// The XML returned by StartKeyboardAuth will contain an infoRequest
// with one or more prompts that your application may choose to display.

// Call ContinueKeyboardAuth, passing in the whatever information is requires (such as the password).
// Typically, keyboard authentication requires one call to ContinueKeyboardAuth 
// using the password.  Theoretically, the SSH server could prompt for additional pieces
// of information.  The authentication is completed when the XML returned contains
// either a "success" or "error" child node.

// This example asumes only one call to ContinueKeyboardAuth is required.
xmlResponse = ssh.ContinueKeyboardAuth("myPassword")
If (ssh.LastMethodSuccess <> True) Then
    System.DebugLog(ssh.LastErrorText)
    Return
End If

success = xml.LoadXml(xmlResponse)
// Assume LoadXml succeeds for the example..
If (xml.HasChildWithTag("success") = True) Then
    System.DebugLog("SSH Keyboard Authentication Successful!")
    Return
End If

If (xml.HasChildWithTag("error") = True) Then
    System.DebugLog("Authentication failed.")
    Return
End If