(Delphi DLL) 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 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, PrivateKey, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
privKey: HCkPrivateKey;
privKeyHex: PWideChar;
pubKeyHex: PWideChar;
success: Boolean;
privKey2: HCkPrivateKey;
sbPubKeyHex: HCkStringBuilder;

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

privKey := CkPrivateKey_Create();

// 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 := CkPrivateKey_LoadEd25519(privKey,privKeyHex,pubKeyHex);
if (success = False) then
  begin
    Memo1.Lines.Add(CkPrivateKey__lastErrorText(privKey));
    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 := CkPrivateKey_Create();
success := CkPrivateKey_LoadEd25519(privKey2,privKeyHex,'');

// Let's get the public key to see that it computed the same value.
sbPubKeyHex := CkStringBuilder_Create();
privKeyHex := CkPrivateKey__getRawHex(privKey2,sbPubKeyHex);
Memo1.Lines.Add('computed public key = ' + CkStringBuilder__getAsString(sbPubKeyHex));

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

CkPrivateKey_Dispose(privKey);
CkPrivateKey_Dispose(privKey2);
CkStringBuilder_Dispose(sbPubKeyHex);

end;