Open an SSH Tunnel

See more Socket/SSL/TLS Examples

Demonstrates Socket.SshOpenTunnel, which connects to an SSH server and initializes an SSH tunneling session, then authenticates it.

var
success: Integer;
socket: TChilkatSocket;
sshPassword: WideString;

begin
success := 0;

socket := TChilkatSocket.Create(Self);

//  Connect to the SSH server and initialize an SSH tunneling session.  Port 22 is conventional but
//  not required.
success := socket.SshOpenTunnel('ssh.example.com',22);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;

//  After the tunnel is open, authenticate before opening forwarded channels.
//  The SSH password should come from a secure source rather than being hard-coded.
sshPassword := 'mySshPassword';
success := socket.SshAuthenticatePw('sshUser',sshPassword);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('SSH tunnel established and authenticated.');