Pascal (Lazarus/Delphi)

Validate a JWS Using ECDSA P-521 SHA-512

See more JSON Web Signatures (JWS) Examples

Validates a JSON Web Signature (JWS) that uses ECDSA P-521 SHA-512 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 ECDSA public key to validate and recover the protected header and payload.

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

  //       {"kty":"EC", 
  //        "crv":"P-521", 
  //        "x":"AekpBQ8ST8a8VcfVOTNl353vSrDCLLJXmPk06wTjxrrjcBpXp5EOnYG_NjFZ6OvLFV1jSfS9tsz4qUxcWceqwQGk", 
  //        "y":"ADSmRA43Z1DSNx_RvcLI87cdL07l6jQyyBXMoxVg_l2Th-x3S1WDhjDly79ajL4Kkd0AZMaZmh9ubmf63e3kyMj2" 
  //       } 

  sbPubKey := TStringBuilder.Create;
  sbPubKey.Append('{"kty":"EC",');
  sbPubKey.Append('"crv":"P-521",');
  sbPubKey.Append('"x":"AekpBQ8ST8a8VcfVOTNl353vSrDCLLJXmPk06wTjxrrjcBpXp5EOnYG_NjFZ6OvLFV1jSfS9tsz4qUxcWceqwQGk",');
  sbPubKey.Append('"y":"ADSmRA43Z1DSNx_RvcLI87cdL07l6jQyyBXMoxVg_l2Th-x3S1WDhjDly79ajL4Kkd0AZMaZmh9ubmf63e3kyMj2"');
  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 ECC public key:
  signatureIndex := 0;
  jws.SetPublicKey(signatureIndex,pubKey);

  //  Load the JWS.
  sbJws := TStringBuilder.Create;
  sbJws.Append('eyJhbGciOiJFUzUxMiJ9');
  sbJws.Append('.');
  sbJws.Append('UGF5bG9hZA');
  sbJws.Append('.');
  sbJws.Append('AdwMgeerwtHoh-l192l60hp9wAHZFVJbLfD_UxMi70cwnZOYaRI1bKPWROc-mZZq');
  sbJws.Append('wqT2SI-KGDKB34XO0aw_7XdtAG8GaSwFKdCAPZgoXD2YBJZCPEX3xKpRwcdOO8Kp');
  sbJws.Append('EHwJjyqOgzDO7iKvU8vcnwNrmxYbSW9ERBXukOXolLzeO_Jn');

  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 ECC 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:
  //  (the string "Payload" was the content that was signed.)

  //  	Signature validated.
  //  	--
  //  	Recovered content:
  //  	Payload
  //  	--
  //  	Protected (JOSE) header:
  //  	{
  //  	  "alg": "ES512"
  //  	}


  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.