Delphi DLL

SSH Public Key Authentication

See more SSH Examples

Demonstrates how to authenticate with an SSH server using public key authentication. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
ssh: HCkSsh;
hostname: PWideChar;
port: Integer;
key: HCkSshKey;
privKey: PWideChar;

begin
success := False;

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

ssh := CkSsh_Create();

// Set some timeouts, in milliseconds:
CkSsh_putConnectTimeoutMs(ssh,5000);
CkSsh_putIdleTimeoutMs(ssh,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 := CkSsh_Connect(ssh,hostname,port);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

key := CkSshKey_Create();

// Read the PEM file into a string variable:
// (This does not load the PEM file into the key.  The LoadText
// method is a convenience method for loading the full contents of ANY text
// file into a string variable.)
privKey := CkSshKey__loadText(key,'myPrivateKey.pem');
if (CkSshKey_getLastMethodSuccess(key) <> True) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(key));
    Exit;
  end;

// Load a private key from a PEM string:
// (Private keys may be loaded from OpenSSH and Putty formats.
// Both encrypted and unencrypted private key file formats
// are supported.  This example loads an unencrypted private
// key in OpenSSH format.  PuTTY keys typically use the .ppk
// file extension, while OpenSSH keys use the PEM format.
// (For PuTTY keys, call FromPuttyPrivateKey instead.)
success := CkSshKey_FromOpenSshPrivateKey(key,privKey);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(key));
    Exit;
  end;

// Authenticate with the SSH server using the login and
// private key.  (The corresponding public key should've 
// been installed on the SSH server beforehand.)
success := CkSsh_AuthenticatePk(ssh,'myLogin',key);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;
Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
Memo1.Lines.Add('Public-Key Authentication Successful!');

CkSsh_Dispose(ssh);
CkSshKey_Dispose(key);

end;