(Delphi DLL) Generate an Ed25519 Key Pair

Demonstrates how to generate a new Ed25519 public/private key pair.

Note: This example requires Chilkat v9.5.0.83 or greater.

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, EdDSA, Prng, JsonObject, PrivateKey;

...

procedure TForm1.Button1Click(Sender: TObject);
var
eddsa: HCkEdDSA;
prng: HCkPrng;
privKey: HCkPrivateKey;
success: Boolean;
jwk: PWideChar;
json: HCkJsonObject;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

eddsa := CkEdDSA_Create();
prng := CkPrng_Create();
privKey := CkPrivateKey_Create();

// Generates a new eddsa key and stores it in privKey.
success := CkEdDSA_GenEd25519Key(eddsa,prng,privKey);
if (success = False) then
  begin
    Memo1.Lines.Add(CkEdDSA__lastErrorText(eddsa));
    Exit;
  end;

// Examine the ed25519 key in JWK format;
jwk := CkPrivateKey__getJwk(privKey);

json := CkJsonObject_Create();
CkJsonObject_Load(json,jwk);
CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

// Sample output:
// {
//   "kty": "OKP",
//   "crv": "Ed25519",
//   "x": "SE2Kne5xt51z1eciMH2T2ftDQp96Gl6FhY6zSQujiP0",
//   "d": "O-eRXewadF0sNyB0U9omcnt8Qg2ZmeK3WSXPYgqe570",
//   "use": "sig"
// }

// In the above JWK, x is the public key, y is the private key.
// Both are 32 bytes and are base64-url encoded.

CkEdDSA_Dispose(eddsa);
CkPrng_Dispose(prng);
CkPrivateKey_Dispose(privKey);
CkJsonObject_Dispose(json);

end;