(Delphi ActiveX) Load an Ed25519 Private Key from Hex

Demonstrates how to load an Ed25519 private key from raw hex bytes.

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

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
privKey: TPrivateKey;
privKeyHex: WideString;
pubKeyHex: WideString;
success: Integer;
privKey2: TPrivateKey;
sbPubKeyHex: TChilkatStringBuilder;

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

privKey := TPrivateKey.Create(Self);

// We have the hexidecimal encoded bytes of the private key and public key:
privKeyHex := 'd4ee72dbf913584ad5b6d8f1f769f8ad3afe7c28cbf1d4fbe097a88f44755842';
pubKeyHex := '19bf44096984cdfe8541bac167dc3b96c85086aa30b6b6cb0c5c38ad703166e1';

// Load these values into the Chilkat private key object:
success := privKey.LoadEd25519(privKeyHex,pubKeyHex);
if (success = 0) then
  begin
    Memo1.Lines.Add(privKey.LastErrorText);
    Exit;
  end;

// ---------------------------------------------------------------
// We don't actually need the public key.  If we pass an empty string for the public key,
// Chilkat will automatically compute it.
privKey2 := TPrivateKey.Create(Self);
success := privKey2.LoadEd25519(privKeyHex,'');

// Let's get the public key to see that it computed the same value.
sbPubKeyHex := TChilkatStringBuilder.Create(Self);
privKeyHex := privKey2.GetRawHex(sbPubKeyHex.ControlInterface);
Memo1.Lines.Add('computed public key = ' + sbPubKeyHex.GetAsString());

// The output should be:
// computed public key = 19bf44096984cdfe8541bac167dc3b96c85086aa30b6b6cb0c5c38ad703166e1
end;