Delphi DLL

Get SSH Server Authentication Methods

See more SSH Examples

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

This example requires Chilkat v9.5.0.78 or greater.

Delphi 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
success: Boolean;
ssh: HCkSsh;
authMethods: PWideChar;

begin
success := False;

// 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;