(Lianja) SSH Keyboard Authentication

Demonstrates how to implement keyboard authentication with an SSH server.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loSsh = createobject("CkSsh")

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

// Connect to the SSH server.  
// The standard SSH port = 22
// The hostname may be a hostname or IP address.
lcHostname = "sftp.example.com"
lnPort = 22
llSuccess = loSsh.Connect(lcHostname,lnPort)
if (llSuccess <> .T.) then
    ? loSsh.LastErrorText
    release loSsh
    return
endif

// Begin keyboard authentication..
lcXmlResponse = loSsh.StartKeyboardAuth("myLogin")
if (loSsh.LastMethodSuccess <> .T.) then
    ? loSsh.LastErrorText
    release loSsh
    return
endif

// If a user authentication banner was received, then your app
// may display it prior to prompting for the password.
? "UserAuthBanner: " + loSsh.UserAuthBanner

loXml = createobject("CkXml")

llSuccess = loXml.LoadXml(lcXmlResponse)
// Assume LoadXml succeeds for the example..
if (loXml.HasChildWithTag("success") = .T.) then
    ? "No password required, already authenticated."
    release loSsh
    release loXml
    return
endif

if (loXml.HasChildWithTag("error") = .T.) then
    ? "Authentication already failed."
    release loSsh
    release loXml
    return
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.
lcXmlResponse = loSsh.ContinueKeyboardAuth("myPassword")
if (loSsh.LastMethodSuccess <> .T.) then
    ? loSsh.LastErrorText
    release loSsh
    release loXml
    return
endif

llSuccess = loXml.LoadXml(lcXmlResponse)
// Assume LoadXml succeeds for the example..
if (loXml.HasChildWithTag("success") = .T.) then
    ? "SSH Keyboard Authentication Successful!"
    release loSsh
    release loXml
    return
endif

if (loXml.HasChildWithTag("error") = .T.) then
    ? "Authentication failed."
    release loSsh
    release loXml
    return
endif



release loSsh
release loXml