Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Convert PuTTY Private Key (ppk) to OpenSSH (pem)Convert a PuTTY format private key file (.ppk) to OpenSSH (.pem).
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; |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.