Delphi DLL Requires Chilkat v11.0.0+

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 DLL

var
success: Boolean;
sbJwk: HCkStringBuilder;
pubkey: HCkPublicKey;
sbJwk2: HCkStringBuilder;
json: HCkJsonObject;
jsonJwk: HCkJsonObject;
pubkey2: HCkPublicKey;

begin
success := False;

//  Imagine we have this JWK:

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

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

//  Loading it into a Chilkat public key object is easy:
pubkey := CkPublicKey_Create();
success := CkPublicKey_LoadFromString(pubkey,CkStringBuilder__getAsString(sbJwk));
if (success = False) then
  begin
    Memo1.Lines.Add(CkPublicKey__lastErrorText(pubkey));
    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 := CkStringBuilder_Create();
success := CkStringBuilder_LoadFile(sbJwk2,'qa_data/jwk/contained_jwk_rsa.json','utf-8');
if (success = False) then
  begin
    Memo1.Lines.Add(CkStringBuilder__lastErrorText(sbJwk2));
    Exit;
  end;

//  Get the "jwk" part of the JSON..
json := CkJsonObject_Create();
CkJsonObject_Load(json,CkStringBuilder__getAsString(sbJwk2));

jsonJwk := CkJsonObject_Create();
success := CkJsonObject_ObjectOf2(json,'jwk',jsonJwk);
if (success = False) then
  begin
    Memo1.Lines.Add(CkJsonObject__lastErrorText(json));
    Exit;
  end;

pubkey2 := CkPublicKey_Create();
success := CkPublicKey_LoadFromString(pubkey2,CkJsonObject__emit(jsonJwk));
if (success = False) then
  begin
    Memo1.Lines.Add(CkPublicKey__lastErrorText(pubkey2));
    Exit;
  end;

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

CkStringBuilder_Dispose(sbJwk);
CkPublicKey_Dispose(pubkey);
CkStringBuilder_Dispose(sbJwk2);
CkJsonObject_Dispose(json);
CkJsonObject_Dispose(jsonJwk);
CkPublicKey_Dispose(pubkey2);