Convert PuTTY Private Key (ppk) to OpenSSH (pem)

Convert a PuTTY format private key file (.ppk) to OpenSSH (.pem).

Download Chilkat SSH / SFTP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATRSALib_TLB,
    CHILKATSSHLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
key: TChilkatSshKey;
success: Integer;
keyStr: String;
unencryptedKeyStr: String;
bEncrypt: Integer;
encryptedKeyStr: String;

begin
key := TChilkatSshKey.Create(Self);

//  Load an unencrypted or encrypted PuTTY private key.

//  If  your PuTTY private key is encrypted, set the Password
//  property before calling FromPuttyPrivateKey.
//  If your PuTTY private key is not encrypted, it makes no diffference
//  if Password is set or not set.
key.Password := 'secret';

//  First load the .ppk file into a string:

keyStr := key.LoadText('putty_private_key.ppk');

//  Import into the SSH key object:
success := key.FromPuttyPrivateKey(keyStr);
if (success <> 1) then
  begin
    ShowMessage(key.LastErrorText);
    Exit;
  end;

//  Convert to an encrypted or unencrypted OpenSSH key.

//  First demonstrate converting to an unencrypted OpenSSH key

bEncrypt := 0;
unencryptedKeyStr := key.ToOpenSshPrivateKey(bEncrypt);
success := key.SaveText(unencryptedKeyStr,'unencrypted_openssh.pem');
if (success <> 1) then
  begin
    ShowMessage(key.LastErrorText);
    Exit;
  end;

//  Save to an encrypted OpenSSH PEM file:

bEncrypt := 1;
key.Password := 'myPassword';
encryptedKeyStr := key.ToOpenSshPrivateKey(bEncrypt);
success := key.SaveText(encryptedKeyStr,'encrypted_openssh.pem');
if (success <> 1) then
  begin
    ShowMessage(key.LastErrorText);
    Exit;
  end;

ShowMessage('Done!');


end;