Delphi DLL

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

See more ECC Examples

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.

Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, PrivateKey, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
json: HCkJsonObject;
jwkStr: PWideChar;
privKey: HCkPrivateKey;

begin
success := False;

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

// First build a JWK sample to load..
json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'kty','EC');
CkJsonObject_UpdateString(json,'crv','P-256');
CkJsonObject_UpdateString(json,'x','oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE');
CkJsonObject_UpdateString(json,'y','vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU');
CkJsonObject_UpdateString(json,'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.
CkJsonObject_putEmitCompact(json,False);

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

privKey := CkPrivateKey_Create();
success := CkPrivateKey_LoadJwk(privKey,jwkStr);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkPrivateKey__lastErrorText(privKey));
    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(CkPrivateKey__getXml(privKey));

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

Memo1.Lines.Add(CkPrivateKey__getPkcs8EncryptedPem(privKey,'secret'));

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

CkJsonObject_Dispose(json);
CkPrivateKey_Dispose(privKey);

end;