(Delphi DLL) Load a PuTTY Public Key

Demonstrates how to load a PuTTY public key.

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;

...

procedure TForm1.Button1Click(Sender: TObject);
var
puttyKey: HCkSshKey;
pubKeyText: PWideChar;
success: Boolean;
openSshPubKeyStr: PWideChar;
xmlPubKeyStr: PWideChar;

begin
// Load a PuTTY public key.
puttyKey := CkSshKey_Create();
pubKeyText := CkSshKey__loadText(puttyKey,'qa_data/ppk/putty_public.pem');

// The pubKeyText contains this content:

// 	---- BEGIN SSH2 PUBLIC KEY ----
// 	Comment: "rsa-key-20170126"
// 	AAAAB3NzaC1yc2EAAAABJQAAAQEAx+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW
// 	6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8l
// 	fa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4
// 	zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8Vg
// 	bNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hc
// 	bOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w==
// 	---- END SSH2 PUBLIC KEY ----

success := CkSshKey_FromRfc4716PublicKey(puttyKey,pubKeyText);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(puttyKey));
    Exit;
  end;

// If desired, convert to other public key formats:
openSshPubKeyStr := CkSshKey__toOpenSshPublicKey(puttyKey);
Memo1.Lines.Add(openSshPubKeyStr);

// openSshPubKeyStr contains:
// ssh-rsa AAAAB3NzaC1yc2EAAAABJQAAAQEAx+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8lfa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8VgbNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hcbOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w== rsa-key-20170126

// Convert to an XML format:
xmlPubKeyStr := CkSshKey__toXml(puttyKey);
Memo1.Lines.Add(xmlPubKeyStr);

// xmlPubKeyStr contains:
// <RSAPublicKey>
//     <Modulus>x+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8lfa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8VgbNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hcbOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w==</Modulus>
//     <Exponent>JQ==</Exponent>
// </RSAPublicKey>
// 
// 

CkSshKey_Dispose(puttyKey);

end;