Pascal (Lazarus/Delphi)

Validate JWS Using RSASSA-PKCS1-v1_5 SHA-256

See more JSON Web Signatures (JWS) Examples

Validates a JSON Web Signature (JWS) that uses RSASSA-PKCS1-v1_5 SHA-256. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.StringBuilder,
  Chilkat.Jws,
  Chilkat.PublicKey,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  sbPubKey: TStringBuilder;
  pubKey: TPublicKey;
  jws: TJws;
  signatureIndex: Integer;
  sbJws: TStringBuilder;
  v: Integer;
  joseHeader: TJsonObject;

begin
  success := False;

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

  //  This example takes a JSON signature in compact serialization format,
  //  and uses an RSA public key to validate and recover the protected header and payload.

  //  We only need a public key for signature validation.  This is the RSA public key
  //  that is used:

  //       {"kty":"RSA", 
  //        "n":"ofgWCuLjybRlzo0tZWJjNiuSfb4p4fAkd_wWJcyQoTbji9k0l8W26mPddx
  //             HmfHQp-Vaw-4qPCJrcS2mJPMEzP1Pt0Bm4d4QlL-yRT-SFd2lZS-pCgNMs
  //             D1W_YpRPEwOWvG6b32690r2jZ47soMZo9wGzjb_7OMg0LOL-bSf63kpaSH
  //             SXndS5z5rexMdbBYUsLA9e-KXBdQOS-UTo7WTBEMa2R2CapHg665xsmtdV
  //             MTBQY4uDZlxvb3qCo5ZwKh9kG4LT6_I5IhlJH7aGhyxXFvUK-DWNmoudF8
  //             NAco9_h9iaGNj8q2ethFkMLs91kzk2PAcDTW9gb54h4FRWyuXpoQ", 
  //        "e":"AQAB"
  //       }

  sbPubKey := TStringBuilder.Create;
  sbPubKey.Append('{"kty":"RSA",');
  sbPubKey.Append('"n":"ofgWCuLjybRlzo0tZWJjNiuSfb4p4fAkd_wWJcyQoTbji9k0l8W26mPddx');
  sbPubKey.Append('HmfHQp-Vaw-4qPCJrcS2mJPMEzP1Pt0Bm4d4QlL-yRT-SFd2lZS-pCgNMs');
  sbPubKey.Append('D1W_YpRPEwOWvG6b32690r2jZ47soMZo9wGzjb_7OMg0LOL-bSf63kpaSH');
  sbPubKey.Append('SXndS5z5rexMdbBYUsLA9e-KXBdQOS-UTo7WTBEMa2R2CapHg665xsmtdV');
  sbPubKey.Append('MTBQY4uDZlxvb3qCo5ZwKh9kG4LT6_I5IhlJH7aGhyxXFvUK-DWNmoudF8');
  sbPubKey.Append('NAco9_h9iaGNj8q2ethFkMLs91kzk2PAcDTW9gb54h4FRWyuXpoQ",');
  sbPubKey.Append('"e":"AQAB"');
  sbPubKey.Append('}');

  pubKey := TPublicKey.Create;
  success := pubKey.LoadFromString(sbPubKey.GetAsString());
  if (success = False) then
    begin
      WriteLn(pubKey.LastErrorText);
      Exit;
    end;

  jws := TJws.Create;

  //  Set the RSA public key:
  signatureIndex := 0;
  jws.SetPublicKey(signatureIndex,pubKey);

  //  Load the JWS.
  sbJws := TStringBuilder.Create;
  sbJws.Append('eyJhbGciOiJSUzI1NiJ9');
  sbJws.Append('.');
  sbJws.Append('eyJpc3MiOiJqb2UiLA0KICJleHAiOjEzMDA4MTkzODAsDQogImh0dHA6Ly9leGFt');
  sbJws.Append('cGxlLmNvbS9pc19yb290Ijp0cnVlfQ');
  sbJws.Append('.');
  sbJws.Append('cC4hiUPoj9Eetdgtv3hF80EGrhuB__dzERat0XF9g2VtQgr9PJbu3XOiZj5RZmh7');
  sbJws.Append('AAuHIm4Bh-0Qc_lF5YKt_O8W2Fp5jujGbds9uJdbF9CUAr7t1dnZcAcQjbKBYNX4');
  sbJws.Append('BAynRFdiuB--f_nZLgrnbyTyWzO75vRK5h6xBArLIARNPvkSjtQBMHlb1L07Qe7K');
  sbJws.Append('0GarZRmB_eSN9383LcOLn6_dO--xi12jzDwusC-eOkHWEsqtFZESc6BfI7noOPqv');
  sbJws.Append('hJ1phCnvWh6IeYI2w9QOYEUipUTI8np6LbgGY9Fs98rqVt5AXLIhWkWywlVmtVrB');
  sbJws.Append('p0igcN_IoypGlUPQGe77Rw');

  success := jws.LoadJwsSb(sbJws);
  if (success = False) then
    begin
      WriteLn(jws.LastErrorText);
      Exit;
    end;

  //  Validate the 1st (and only) signature at index 0..
  v := jws.Validate(signatureIndex);
  if (v < 0) then
    begin
      //  Perhaps Chilkat was not unlocked or the trial expired..
      WriteLn('Method call failed for some other reason.');
      WriteLn(jws.LastErrorText);
      Exit;
    end;
  if (v = 0) then
    begin
      WriteLn('Invalid signature.  The RSA key was incorrect, the JWS was invalid, or both.');
      Exit;
    end;

  //  If we get here, the signature was validated..
  WriteLn('Signature validated.');
  WriteLn('--');

  //  Recover the original content:
  WriteLn('Recovered content:');
  WriteLn(jws.GetPayload('utf-8'));
  WriteLn('--');

  //  Examine the protected header:

  joseHeader := TJsonObject.Create;
  success := jws.GetProtectedH(signatureIndex,joseHeader);
  if (success = False) then
    begin
      WriteLn(jws.LastErrorText);
      Exit;
    end;
  joseHeader.EmitCompact := False;

  WriteLn('Protected (JOSE) header:');
  WriteLn(joseHeader.Emit());

  //  Output:

  //  	Signature validated.
  //  	--
  //  	Recovered content:
  //  	{"iss":"joe", 
  //  	 "exp":1300819380,
  //  	 "http://example.com/is_root":true}
  //  	--
  //  	Protected (JOSE) header:
  //  	{ 
  //  	  "alg": "RS256"
  //  	}


  sbPubKey.Free;
  pubKey.Free;
  jws.Free;
  sbJws.Free;
  joseHeader.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.