Delphi ActiveX

Start SSH Tunnel Keyboard-Interactive Authentication

Demonstrates the Chilkat SshTunnel.StartKeyboardAuth method, which begins keyboard-interactive authentication. The only argument is the login name. It returns XML describing the server's prompts, which are answered with ContinueKeyboardAuth.

Background: Keyboard-interactive is the prompt-driven authentication method: the server sends one or more questions — a password, a one-time code, a security question — and the client answers each. This is how a tunnel supports two-factor and other challenge-response schemes. The returned XML says exactly what to ask and whether to mask the input.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
tunnel: TChilkatSshTunnel;
sshPort: Integer;
infoRequestXml: WideString;
waitForThreadExit: Integer;

begin
success := 0;

//  Demonstrates the SshTunnel.StartKeyboardAuth method, which begins keyboard-interactive
//  authentication.  The only argument is the login name.  It returns XML describing the server's
//  prompts, which are answered with ContinueKeyboardAuth.

tunnel := TChilkatSshTunnel.Create(Self);

//  The tunnel forwards accepted local connections to this destination through the SSH server.
tunnel.DestHostname := 'db.internal.example.com';
tunnel.DestPort := 5432;

//  Connect to the SSH server.  This performs the TCP/proxy connection and SSH handshake, but
//  does not authenticate yet.
sshPort := 22;
success := tunnel.Connect('ssh.example.com',sshPort);
if (success = 0) then
  begin
    Memo1.Lines.Add(tunnel.LastErrorText);
    Exit;
  end;

//  Begin keyboard-interactive authentication.  The returned XML describes the server's prompts.
infoRequestXml := tunnel.StartKeyboardAuth('mySshLogin');
if (tunnel.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(tunnel.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(infoRequestXml);

//  Answer the prompt(s) with ContinueKeyboardAuth, then call BeginAccepting.

waitForThreadExit := 1;
success := tunnel.CloseTunnel(waitForThreadExit);
if (success = 0) then
  begin
    Memo1.Lines.Add(tunnel.LastErrorText);
    Exit;
  end;