Delphi ActiveX

Load JWK into PublicKey Object

See more JSON Web Signatures (JWS) Examples

Demonstrates how to load a Java Web Key (JWK) into a Chilkat public key object. Delphi ActiveX

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;
sbJwk: TChilkatStringBuilder;
pubkey: TPublicKey;
sbJwk2: TChilkatStringBuilder;
json: TChilkatJsonObject;
jsonJwk: TChilkatJsonObject;
pubkey2: TPublicKey;

begin
success := 0;

// Imagine we have this JWK:

// {
// "kty":"RSA",
// "kid":"bilbo.baggins@hobbiton.example",
// "use":"sig",
// "n":"26381066103266289976070039679240841999340706859156341823971393693544846472963839705790075117105560154606562987481050889935247188300178764426769543782451174831475924241862817098997865881169498995546309260357488285676768114714548754913374731868063116787903918383610614912211576698081222844057810710088656983077876282582286966085572172471849443305250452393766960762340311496052418952315081937000716222751229644449475751932222180738210988190709824209639002026650048655399108647971010890335494074025258268035713167380057822555485524738518699437692145859633592396626258745090144803752145540471688039673495588314804430463791",
// "e":"65537"
// }
// 

sbJwk := TChilkatStringBuilder.Create(Self);
success := sbJwk.LoadFile('qa_data/jwk/simple_jwk_rsa.json','utf-8');
if (success <> 1) then
  begin
    Memo1.Lines.Add('Failed to load simple JWK file.');
    Exit;
  end;

// Loading it into a Chilkat public key object is easy:
pubkey := TPublicKey.Create(Self);
success := pubkey.LoadFromString(sbJwk.GetAsString());
if (success = 0) then
  begin
    Memo1.Lines.Add(pubkey.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Simple JWK loaded into public key object.');

// ----------------------------------------------------------------------------------------------------------
// Demonstrate how to load a JWK that is contained within JSON into a public key object.

// {
//   "alg":"RS256",
//   "jwk":  {
//           "kty":"RSA",
//           "kid":"bilbo.baggins@hobbiton.example",
//           "use":"sig",
//           "n":"26381066103266289976070039679240841999340706859156341823971393693544846472963839705790075117105560154606562987481050889935247188300178764426769543782451174831475924241862817098997865881169498995546309260357488285676768114714548754913374731868063116787903918383610614912211576698081222844057810710088656983077876282582286966085572172471849443305250452393766960762340311496052418952315081937000716222751229644449475751932222180738210988190709824209639002026650048655399108647971010890335494074025258268035713167380057822555485524738518699437692145859633592396626258745090144803752145540471688039673495588314804430463791",
//           "e":"65537"
//           }
// }

sbJwk2 := TChilkatStringBuilder.Create(Self);
success := sbJwk2.LoadFile('qa_data/jwk/contained_jwk_rsa.json','utf-8');
if (success = 0) then
  begin
    Memo1.Lines.Add(sbJwk2.LastErrorText);
    Exit;
  end;

// Get the "jwk" part of the JSON..
json := TChilkatJsonObject.Create(Self);
json.Load(sbJwk2.GetAsString());

jsonJwk := TChilkatJsonObject.Create(Self);
success := json.ObjectOf2('jwk',jsonJwk.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(json.LastErrorText);
    Exit;
  end;

pubkey2 := TPublicKey.Create(Self);
success := pubkey2.LoadFromString(jsonJwk.Emit());
if (success = 0) then
  begin
    Memo1.Lines.Add(pubkey2.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Contained JWK loaded into public key object.');
end;