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

* Patch from Andrew Haines to fix creating signature. Fixes issue #41058

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-08 15:31:27 +01:00
parent 8488c87b20
commit d6efbfb2bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/jwt/fpjwaes256.pp
View File

@ -51,7 +51,7 @@ Var
begin begin
Result:=''; Result:='';
aPrivateKey:=Default(TECCPrivateKey); aPrivateKey:=Default(TECCPrivateKey);
Move(aKey.AsPointer,aPrivateKey,Sizeof(aPrivateKey)); Move(aKey.AsPointer^,aPrivateKey,Sizeof(aPrivateKey));
B:=GetSignInput(aJWT); B:=GetSignInput(aJWT);
if TECDSA.SignSHA256(B,aPrivateKey,aSignature) then if TECDSA.SignSHA256(B,aPrivateKey,aSignature) then
Result:=Base64URL.Encode(@aSignature[0],Length(aSignature),False); Result:=Base64URL.Encode(@aSignature[0],Length(aSignature),False);