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: Boolean;
socket: HCkSocket;
sshPassword: PWideChar;

begin
success := False;

socket := CkSocket_Create();

//  Connect to the SSH server and initialize an SSH tunneling session.  Port 22 is conventional but
//  not required.
success := CkSocket_SshOpenTunnel(socket,'ssh.example.com',22);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    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 := CkSocket_SshAuthenticatePw(socket,'sshUser',sshPassword);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    Exit;
  end;
Memo1.Lines.Add('SSH tunnel established and authenticated.');

CkSocket_Dispose(socket);