Load and Validate a JWS from a String

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.LoadJws, which loads a JWS from its compact serialization string. The example then supplies the MAC key and validates the signature.

var
success: Integer;
jws: TChilkatJws;
jwsCompact: WideString;
base64Key: WideString;
v: Integer;

begin
success := 0;

jws := TChilkatJws.Create(Self);

//  Load the JWS compact serialization.
jwsCompact := 'eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>';
success := jws.LoadJws(jwsCompact);
if (success = 0) then
  begin
    Memo1.Lines.Add(jws.LastErrorText);
    Exit;
  end;

//  Provide the HMAC key for signer 0, then validate the signature.  Validate returns 1 when the
//  signature is cryptographically valid, 0 when it is not, or a negative value on error.
base64Key := 'YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=';
success := jws.SetMacKey(0,base64Key,'base64');
if (success = 0) then
  begin
    Memo1.Lines.Add(jws.LastErrorText);
    Exit;
  end;

v := jws.Validate(0);
if (v < 0) then
  begin
    Memo1.Lines.Add(jws.LastErrorText);
    Exit;
  end;
if (v <> 1) then
  begin
    Memo1.Lines.Add('The signature is not valid.');
    Exit;
  end;
Memo1.Lines.Add('The signature is valid.');