paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 20:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test for es256 signature, by Andrew Haines

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-08 15:36:06 +01:00
parent d6efbfb2bb
commit 2c03eb2221
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
packages/fcl-web/tests/tcjwt.pp
View File

@ -54,6 +54,7 @@ type
procedure TestVerifySHA384; procedure TestVerifySHA384;
// ES // ES
procedure TestSignES256;
procedure TestVerifyES256; procedure TestVerifyES256;
procedure TestVerifyES256Pem; procedure TestVerifyES256Pem;
@ -296,6 +297,44 @@ begin
AssertEquals('Have correct admin',False,(TMyJWT(FVerifyResult).Claims as TMyClaims).Admin); AssertEquals('Have correct admin',False,(TMyJWT(FVerifyResult).Claims as TMyClaims).Admin);
end; end;
procedure TTestJWT.TestSignES256;
// Private key in PEM format
Const APrivateKeyPem =
'-----BEGIN EC PRIVATE KEY-----'+ #10+
'MHcCAQEEIFzS3/5bCnrlpa4902/zkYzURF6E2D8pazgnJu4smhpQoAoGCCqGSM49'+ #10+
'AwEHoUQDQgAEqTjyg2z65i+zbyUZW8BQ+K87DNsICRaEH7Fy7Rm3MseXy9ItSCQU'+ #10+
'VeJbtO6kYUA00mx7bKoC1sx5sbtFExnYPQ=='+ #10+
'-----END EC PRIVATE KEY-----';
Var
S : TStringStream;
aPrivateKey : TEccPrivateKey;
aPublicKey : TEccPublicKey;
X,Y : AnsiString;
begin
S:=TStringStream.Create(aPrivateKeyPem);
try
PemLoadECDSA(S,aPrivateKey,aPublicKey,X,Y);
finally
S.Free;
end;
FKey:=TJWTKey.Create(@aPrivateKey,SizeOf(TEccPrivateKey));
FJWT.JOSE.alg:='ES256';
//Writeln('JOSE: ',FJWT.JOSE.AsString);
//Writeln('Claims: ',FJWT.Claims.AsString);
FJWT.Sign(FKey);
//WriteLn('Signature: ',FJWT.Signature);
//WriteLn('JWT: ',FJWT.AsEncodedString);
FVerifyResult := TMyJWT.ValidateJWT(FJWT.AsEncodedString, FKey);
AssertNotNull('Have result',FVerifyResult);
AssertEquals('Correct class',TMyJWT,FVerifyResult.ClassType);
AssertNotNull('Have result.claims',FVerifyResult.Claims);
AssertEquals('Correct claims class',TMyClaims,FVerifyResult.Claims.ClassType);
end;
procedure TTestJWT.TestVerifyRS256Pem; procedure TTestJWT.TestVerifyRS256Pem;
begin begin
TestVerifyRSAPem(TJWTSignerRS256); TestVerifyRSAPem(TJWTSignerRS256);