(AutoIt) SSH Keyboard Authentication

Demonstrates how to implement keyboard authentication with an SSH server.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oSsh = ObjCreate("Chilkat.Ssh")

; Set some timeouts, in milliseconds:
$oSsh.ConnectTimeoutMs = 5000
$oSsh.IdleTimeoutMs = 15000

; Connect to the SSH server.  
; The standard SSH port = 22
; The hostname may be a hostname or IP address.
Local $sHostname = "sftp.example.com"
Local $iPort = 22
Local $bSuccess = $oSsh.Connect($sHostname,$iPort)
If ($bSuccess <> True) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; Begin keyboard authentication..
Local $sXmlResponse = $oSsh.StartKeyboardAuth("myLogin")
If ($oSsh.LastMethodSuccess <> True) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; If a user authentication banner was received, then your app
; may display it prior to prompting for the password.
ConsoleWrite("UserAuthBanner: " & $oSsh.UserAuthBanner & @CRLF)

$oXml = ObjCreate("Chilkat.Xml")

$bSuccess = $oXml.LoadXml($sXmlResponse)
; Assume LoadXml succeeds for the example..
If ($oXml.HasChildWithTag("success") = True) Then
    ConsoleWrite("No password required, already authenticated." & @CRLF)
    Exit
EndIf

If ($oXml.HasChildWithTag("error") = True) Then
    ConsoleWrite("Authentication already failed." & @CRLF)
    Exit
EndIf

; 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.
$sXmlResponse = $oSsh.ContinueKeyboardAuth("myPassword")
If ($oSsh.LastMethodSuccess <> True) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oXml.LoadXml($sXmlResponse)
; Assume LoadXml succeeds for the example..
If ($oXml.HasChildWithTag("success") = True) Then
    ConsoleWrite("SSH Keyboard Authentication Successful!" & @CRLF)
    Exit
EndIf

If ($oXml.HasChildWithTag("error") = True) Then
    ConsoleWrite("Authentication failed." & @CRLF)
    Exit
EndIf