BugFix with arbitrary Base64 padding (trailing '=' chars)

andrea-magni · May 28, 2019 · 2fc2a1b · 2fc2a1b
1 parent e927c54
commit 2fc2a1b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/ThirdParty/delphi-jose-jwt/Source/JOSE.Encoding.Base64.pas b/ThirdParty/delphi-jose-jwt/Source/JOSE.Encoding.Base64.pas
@@ -88,8 +88,7 @@ class function TBase64.URLEncode(const ASource: TSuperBytes): TSuperBytes;
   LBase64Str := StringReplace(LBase64Str, #13#10, '', [rfReplaceAll]);
   LBase64Str := StringReplace(LBase64Str, #13, '', [rfReplaceAll]);
   LBase64Str := StringReplace(LBase64Str, #10, '', [rfReplaceAll]);
-
-  LBase64Str := TrimRight(LBase64Str);
+  LBase64Str := LBase64Str.TrimRight(['=']);
 
   LBase64Str := StringReplace(LBase64Str, '+', '-', [rfReplaceAll]);
   LBase64Str := StringReplace(LBase64Str, '/', '_', [rfReplaceAll]);