Authenticate an SSH Tunnel with a Password

See more Socket/SSL/TLS Examples

Demonstrates Socket.SshAuthenticatePw, which authenticates an SSH tunnel session using a login and password. Call SshOpenTunnel first.

var
success: Boolean;
socket: HCkSocket;
sshPassword: PWideChar;

begin
success := False;

socket := CkSocket_Create();

success := CkSocket_SshOpenTunnel(socket,'ssh.example.com',22);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    Exit;
  end;

//  Authenticate the SSH tunnel session with a login and password.
//  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 authentication succeeded.');

CkSocket_Dispose(socket);