paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 14:50:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-web: fixed compile tcjwt

Browse Source
This commit is contained in:
mattias 2022-04-26 13:17:34 +02:00
parent c2e9642b27
commit bf2d0853b6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,7 +54,7 @@ type
implementation
uses
basenenc, sha256, fpjwasha256, sha512, fpjwasha512, fpjwasha384, fpjwaes256, fpecc, fppem;
basenenc, fpsha256, fpjwasha256, fpsha512, fpjwasha512, fpjwasha384, fpjwaes256, fpecc, fppem;
{ TMyJWT }
@ -100,7 +100,7 @@ begin
P1:=FJWT.JOSE.AsEncodedString;
P2:=FJWT.Claims.AsEncodedString;
B:=TEncoding.UTF8.GetAnsiBytes(P1+'.'+P2);
if not TSHA256.HMAC(FKey.AsPointer,FKey.Length,PByte(B),Length(B),aDigest) then
if not TSHA256.HMAC(FKey.AsPointer,FKey.Length,PByte(B),Length(B),aDigest{%H-}) then
Fail('Could not HMAC');
Sign:=Base64URL.Encode(@aDigest[0],Length(aDigest),False);
// Writeln('Signed: ',P1+'.'+P2+'.'+Sign);
@ -137,7 +137,7 @@ begin
P1:=FJWT.JOSE.AsEncodedString;
P2:=FJWT.Claims.AsEncodedString;
B:=TEncoding.UTF8.GetAnsiBytes(P1+'.'+P2);
if not TSHA512.HMAC(FKey.AsPointer,FKey.Length,PByte(B),Length(B),aDigest) then
if not TSHA512.HMAC(FKey.AsPointer,FKey.Length,PByte(B),Length(B),aDigest{%H-}) then
Fail('Could not HMAC');
Sign:=Base64URL.Encode(@aDigest[0],Length(aDigest),False);
// Writeln('Signed: ',P1+'.'+P2+'.'+Sign);