Classic ASP
SSH Keyboard Authentication

Demonstrates how to implement keyboard authentication with an SSH server.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

set ssh = Server.CreateObject("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.
hostname = "sftp.example.com"
port = 22
success = ssh.Connect(hostname,port)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>"
    Response.End
End If

' Begin keyboard authentication..
xmlResponse = ssh.StartKeyboardAuth("myLogin")
If (ssh.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>"
    Response.End
End If

' If a user authentication banner was received, then your app
' may display it prior to prompting for the password.
Response.Write "<pre>" & Server.HTMLEncode( "UserAuthBanner: " & ssh.UserAuthBanner) & "</pre>"

set xml = Server.CreateObject("Chilkat.Xml")

success = xml.LoadXml(xmlResponse)
' Assume LoadXml succeeds for the example..
If (xml.HasChildWithTag("success") = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "No password required, already authenticated.") & "</pre>"
    Response.End
End If

If (xml.HasChildWithTag("error") = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Authentication already failed.") & "</pre>"
    Response.End
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 <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>"
    Response.End
End If

success = xml.LoadXml(xmlResponse)
' Assume LoadXml succeeds for the example..
If (xml.HasChildWithTag("success") = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "SSH Keyboard Authentication Successful!") & "</pre>"
    Response.End
End If

If (xml.HasChildWithTag("error") = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Authentication failed.") & "</pre>"
    Response.End
End If


%>
</body>
</html>