Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi ActiveX) Generate DSA SSH KeyGenerates a DSA SSH key and saves to various public and private key file formats (OpenSSH and PuTTY).
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var key: TChilkatSshKey; success: Integer; numBits: Integer; exportedKey: WideString; exportEncrypted: Integer; begin key := TChilkatSshKey.Create(Self); // numBits should be a minimum of 1024 and // a multiple of 64. Typical values are // 1024 or 2048. numBits := 2048; success := key.GenerateDsaKey(numBits); if (success <> 1) then begin Memo1.Lines.Add('Invalid numBits passed to DSA key generation method.'); Exit; end; // Note: Generating a public/private key pair is CPU intensive // and may take a short amount of time (more than few seconds, // but less than a minute). // Export the DSA private key to OpenSSH, PuTTY, and XML and save. exportEncrypted := 0; exportedKey := key.ToOpenSshPrivateKey(exportEncrypted); // Chilkat provides a SaveText method for convenience... success := key.SaveText(exportedKey,'privkey_openssh_unencrypted.pem'); // Export with encryption to OpenSSH private key format: key.Password := 'secret'; exportEncrypted := 1; exportedKey := key.ToOpenSshPrivateKey(exportEncrypted); success := key.SaveText(exportedKey,'privkey_openssh_encrypted.pem'); // Export the DSA private key to unencrypted PuTTY format: exportEncrypted := 0; exportedKey := key.ToPuttyPrivateKey(exportEncrypted); success := key.SaveText(exportedKey,'privkey_putty_unencrypted.ppk'); // Export the DSA private key to encrypted PuTTY format: key.Password := 'secret'; exportEncrypted := 1; exportedKey := key.ToPuttyPrivateKey(exportEncrypted); success := key.SaveText(exportedKey,'privkey_putty_encrypted.ppk'); // Export private key to XML: exportedKey := key.ToXml(); success := key.SaveText(exportedKey,'privkey.xml'); // ---------------------------------------------------- // Now for the public key.... // ---------------------------------------------------- // The Secure Shell (SSH) Public Key File Format // is documented in RFC 4716. exportedKey := key.ToRfc4716PublicKey(); success := key.SaveText(exportedKey,'pubkey_rfc4716.pub'); // OpenSSH has a separate public-key file format, which // is also supported by Chilkat SshKey: exportedKey := key.ToOpenSshPublicKey(); success := key.SaveText(exportedKey,'pubkey_openSsh.pub'); Memo1.Lines.Add('Finished.'); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.