(Delphi DLL) Load PuTTY Private Key

Loads a PuTTY private key into an SSH key object.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
sb: HCkStringBuilder;
bCrlf: Boolean;
sshKey: HCkSshKey;
success: Boolean;

begin
sb := CkStringBuilder_Create();
bCrlf := True;
CkStringBuilder_AppendLine(sb,'PuTTY-User-Key-File-2: ssh-rsa',bCrlf);
CkStringBuilder_AppendLine(sb,'Encryption: aes256-cbc',bCrlf);
CkStringBuilder_AppendLine(sb,'Comment: rsa-key-20161121',bCrlf);
CkStringBuilder_AppendLine(sb,'Public-Lines: 6',bCrlf);
CkStringBuilder_AppendLine(sb,'AAAAB3NzaC1yc2EAAAABJQAAAQEArIVxZTGYjqqNegJeMqgZzXKuX3YtxmD4DPnQ',bCrlf);
CkStringBuilder_AppendLine(sb,'K01SXoR9UA4wl6RJK5FGonI5spVnddr6HJny0eY5/RmV1dyL0fNdH2pfnHHoTd9B',bCrlf);
CkStringBuilder_AppendLine(sb,'uXG0PcTn4BqJFlybC6NNaGaByqpNPaOgjJIMHXTaeCuDuzwP02f3UKSfLAFdvUNP',bCrlf);
CkStringBuilder_AppendLine(sb,'fX3yrMRabjVcHJpgUn535Y9Y3ZphSFssiElLpp1vo6QLsdiAl0wgU4HLw9Dfg8sh',bCrlf);
CkStringBuilder_AppendLine(sb,'p3zgAufYUUIx2HChITJ7OO/PH5GEbPvJFbYH4Wx33GEe56JCF9QxxDCqNxsPMrvu',bCrlf);
CkStringBuilder_AppendLine(sb,'mqkSIPIELFl5zVYSFD9PiL8RZQcPJGq5zbF9+szsS/6DSH8biw==',bCrlf);
CkStringBuilder_AppendLine(sb,'Private-Lines: 14',bCrlf);
CkStringBuilder_AppendLine(sb,'SVqUm9zBUN6zaAaUY6TLnIXAhxqv4s1UhzukcN7Ns0Fs1EqdDP4nVMKgmiDxHaAj',bCrlf);
CkStringBuilder_AppendLine(sb,'ucb1PLv7uj2eGt69E+HKH4AC2LtJZNH4qLw+p8QKqdN79oRAMHwtS4cU88eeQ91t',bCrlf);
CkStringBuilder_AppendLine(sb,'2W3wzmTzvYFlE6VbUr3bNl3f68OCQHz+7YJuL8g0eclNuveHB/VmBqnek1LL/cRY',bCrlf);
CkStringBuilder_AppendLine(sb,'wmk8wyzHRl7X8fyjGX0PiOPyVwXBDJFNjjKAdrRCRS0Cc4PWAb/18qrA9ApArQVk',bCrlf);
CkStringBuilder_AppendLine(sb,'a5miOMfrXFF2Vg3JyNgfdDilNKkry9x5oTtfueZkFgu/6pofP5qrTstr+BmB16mu',bCrlf);
CkStringBuilder_AppendLine(sb,'MxcDRF+jOm9XvU1OnrzQ9rBzuaHEfhSHqlKyMGTDuzRtNyxlDBgK4DaZ2z1FJQGF',bCrlf);
CkStringBuilder_AppendLine(sb,'63p36KgVqx571PUJ8P/28VUb6s/OtXcjhxxvhC8Eo0wrTdjzDiX+IovdjOhWgn4v',bCrlf);
CkStringBuilder_AppendLine(sb,'xugaYocotTbhqq+O1w9xYtmG8fP921+TIpHzCkE8QTJzLJ40pemKZ+TAOmhb0OUQ',bCrlf);
CkStringBuilder_AppendLine(sb,'jemqmRohcxx7NEoZ0TsoAe6i+GQJ2cEE7LcNcSX3V66AkyTsTieqk1nSxyHyoF+l',bCrlf);
CkStringBuilder_AppendLine(sb,'rTaVOhFM5H8Etzv94SP3c1if3Qa9cmZaEmfaqrS94bzX+OY/zRIFweT0BeMo3Uac',bCrlf);
CkStringBuilder_AppendLine(sb,'fP6gBDBiLYZeRURcx0mYRdNYlssaKoYLA6c7F3ggo34VfgD6LP+ZYnG8yAXGXSPr',bCrlf);
CkStringBuilder_AppendLine(sb,'lgrfdg/szqSsOKVdkoGTkVy+BgrhITnFIs8TLZsrtSEPmXjEa+QvdP6FPsyN5u6P',bCrlf);
CkStringBuilder_AppendLine(sb,'8s0i8EC0KT0YA77Ps29DEU3fxsXVSc9Xd9qdiWfJ0ce2hOsTwxL1gxtXUKP4xCzm',bCrlf);
CkStringBuilder_AppendLine(sb,'oXaWLFajiws2EjgBbwREj12v0I2N4xrpf/PeJq22EvWLYm9H94DdFrkm0b4p6Kmu',bCrlf);
CkStringBuilder_AppendLine(sb,'Private-MAC: ef04289f158f498b8050e19f1630b4764fe64ab9',bCrlf);

sshKey := CkSshKey_Create();

// Must specify a password for this PuTTY private key because it is encrypted.
CkSshKey_putPassword(sshKey,'secret');

success := CkSshKey_FromPuttyPrivateKey(sshKey,CkStringBuilder__getAsString(sb));
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(sshKey));
    Memo1.Lines.Add('Failed.');
  end;

Memo1.Lines.Add('success = ' + IntToStr(Ord(success)));

CkStringBuilder_Dispose(sb);
CkSshKey_Dispose(sshKey);

end;