Use a PuTTY Key for SSH Authentication

See more SSH Examples

Demonstrates authenticating with an SSH server using a username and a PuTTY (.ppk) private key. The key is imported with FromPuttyPrivateKey — setting Password first if it is encrypted — and passed to AuthenticatePk.

Note: The file paths are relative to the application's current working directory. Supply the paths to your own files.

var
success: Boolean;
ssh: HCkSsh;
puttyKey: HCkSshKey;
ppkText: PWideChar;
sshHostname: PWideChar;
sshPort: Integer;

begin
success := False;

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

//  Demonstrates authenticating with an SSH server using a username and a PuTTY (.ppk) private
//  key.  The private key serves as the credential; the username identifies the account on the
//  server.

ssh := CkSsh_Create();

//  LoadText is a convenience method that reads any text file into a string.  It does not itself
//  load the key.
puttyKey := CkSshKey_Create();
ppkText := CkSshKey__loadText(puttyKey,'qa_data/ppk/putty_private_secret.ppk');
if (CkSshKey_getLastMethodSuccess(puttyKey) = False) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(puttyKey));
    Exit;
  end;

//  Set the password before importing an encrypted .ppk.  This should come from a secure source
//  rather than being hard-coded.
CkSshKey_putPassword(puttyKey,'myKeyPassword');

success := CkSshKey_FromPuttyPrivateKey(puttyKey,ppkText);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(puttyKey));
    Exit;
  end;

sshHostname := 'ssh.example.com';
sshPort := 22;
success := CkSsh_Connect(ssh,sshHostname,sshPort);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

//  The corresponding public key must already be installed on the SSH server for the account.
success := CkSsh_AuthenticatePk(ssh,'mySshLogin',puttyKey);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

Memo1.Lines.Add('Connection and authentication with the SSH server completed.');

CkSsh_Disconnect(ssh);

CkSsh_Dispose(ssh);
CkSshKey_Dispose(puttyKey);