(Delphi DLL) Get SSH Server Authentication Methods

Demonstrates how to get the authentication methods of an SSH server.

This example requires Chilkat v9.5.0.78 or greater.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Ssh;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ssh: HCkSsh;
success: Boolean;
authMethods: PWideChar;
success: Boolean;

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

ssh := CkSsh_Create();

// To get the authentication methods offered by an SSH server, we first connect.
success := CkSsh_Connect(ssh,'example.com',22);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

// Next, we call GetAuthMethods to receive a comma separated list of authentication methods
authMethods := CkSsh__getAuthMethods(ssh);
if (CkSsh_getLastMethodSuccess(ssh) <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

// For example: publickey,password,keyboard-interactive
Memo1.Lines.Add('Authentication methods suported by this serve: ' + authMethods);

// IMPORTANT:
// Getting the authentication methods will intentionally disconnect from the server.
// We'll need to re-connect, etc. to continue..

// For example..
success := CkSsh_Connect(ssh,'example.com',22);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;
success := CkSsh_AuthenticatePw(ssh,'myLogin','myPassword');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

Memo1.Lines.Add('SSH Authentication successful.');

// ...

CkSsh_Disconnect(ssh);

CkSsh_Dispose(ssh);

end;