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

* Fix bug #37830, always append dot even if signature empty

Browse Source 
git-svn-id: trunk@46984 -
This commit is contained in:
michael 2020-09-28 07:50:08 +00:00
parent 9f8417ba52
commit b9158ed311
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/base/fpjwt.pp
View File

@ -165,8 +165,10 @@ function TJWT.GetAsString: TJSONStringType;
begin
Result:=Base64ToBase64URL(EncodeStringBase64(JOSE.AsString));
Result:=Result+'.'+Base64ToBase64URL(EncodeStringBase64(Claims.AsString));
If (Signature<>'') then
Result:=Result+'.'+Signature;
// Dot must always be present, even if signature is empty.
// https://tools.ietf.org/html/rfc7519#section-6.1
// (See also Bug ID 37830)
Result:=Result+'.'+Signature;
end;