(Delphi ActiveX) Load ECC Private Key from JWK Format (JSON Web Key)

Demonstrates how to load an ECC private key from JWK (JSON Web Key) format.

Note: This example requires Chilkat v9.5.0.66 or later.

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
success: Integer;
json: TChilkatJsonObject;
jwkStr: WideString;
privKey: TPrivateKey;

begin
// Note: This example requires Chilkat v9.5.0.66 or later.

// First build a JWK sample to load..
json := TChilkatJsonObject.Create(Self);
json.UpdateString('kty','EC');
json.UpdateString('crv','P-256');
json.UpdateString('x','oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE');
json.UpdateString('y','vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU');
json.UpdateString('d','EbVzfPnZPxfAyxqEZV05laAoJAl-_6Xt2O4mOB611sM');

// The JSON contains the following:
// { 
//   "kty": "EC",
//   "crv": "P-256",
//   "x": "oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE",
//   "y": "vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU",
//   "d": "EbVzfPnZPxfAyxqEZV05laAoJAl-_6Xt2O4mOB611sM"
// }

// Note: The JSON can contain other members, such as "use", "kid", or anything else.  These will be ignored.
json.EmitCompact := 0;

// Show the JWK string to be loaded:
jwkStr := json.Emit();

privKey := TPrivateKey.Create(Self);
success := privKey.LoadJwk(jwkStr);
if (success <> 1) then
  begin
    Memo1.Lines.Add(privKey.LastErrorText);
    Exit;
  end;

// OK.. the JWK is loaded.  It can be used in whatever way desired...

// The key can be retrieved in any other format, such as XML or PEM..
Memo1.Lines.Add(privKey.GetXml());

// XML output:
// <ECCKeyValue curve="secp256r1">MHcCAQEEIBG1c3z52T8XwMsahGVdOZWgKCQJfv+l7djuJjgetdbDoAoGCCqGSM49AwEHoEQDQgAEoBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxG+9DLFmRSMlBQ9T/RsLLc+PmpB1+7yPAR+oR5gZn3kJQ==</ECCKeyValue>

Memo1.Lines.Add(privKey.GetPkcs8EncryptedPem('secret'));

// PEM output
// 
// -----BEGIN ENCRYPTED PRIVATE KEY-----
// MIHFMEAGCSqGSIb3DQEFDTAzMBsGCSqGSIb3DQEFDDAOBAiku9rUjavLQQICCAAw
// FAYIKoZIhvcNAwcECGsl/5nLai+JBIGAVIqKAdfcRQNLl1t3x+n8OZ92d1H+qgjS
// Hs83wn2joJK4nlqy+rzosZxQ3e8NTJQyUEWZWcjqMj/N0phS3QWtcD/qbda5oEcv
// QgtU60cZ4ql3truefAmlZz2PdpOfqtYhxlvjJQxnyojn4ntj69OwLOt9SZbaBQQi
// KUL8KXT4Pq8=
// -----END ENCRYPTED PRIVATE KEY-----
end;