Alexandria: New TBase64URLEncoding encoding and TNetEncoding.Base64URL property

[SPT-EV]

That an alternative version of JOSE.Encoding.Base64.pas

That théorical code, i have only D10 Seattle,

class function TBase64.URLDecode(const ASource: TJOSEBytes): TJOSEBytes;
{$IF CompilerVersion >= 35.0}
begin
  Result := TNetEncoding.Base64URL.Decode(ASource.AsBytes);
{$ELSE}
var
  LBase64Str: string;
begin
  LBase64Str := ASource;

  LBase64Str := LBase64Str + StringOfChar('=', (4 - ASource.Size mod 4) mod 4);
  LBase64Str := StringReplace(LBase64Str, '-', '+', [rfReplaceAll]);
  LBase64Str := StringReplace(LBase64Str, '_', '/', [rfReplaceAll]);
  Result := TBase64.Decode(LBase64Str);
  {$IFEND}
end;

class function TBase64.URLEncode(const ASource: TJOSEBytes): TJOSEBytes;
{$IF CompilerVersion >= 35.0}
begin
  Result := TNetEncoding.Base64URL.Encode(ASource.AsBytes);
{$ELSE}
var
  LBase64Str: string;
begin
{$IF CompilerVersion >= 28}
  with TBase64Encoding.Create(0) do // 0 is infinite line 
  try
    LBase64Str := Encode(ASource.AsString);
  finally
    Free();
  end;

{$ELSE}
  LBase64Str := TBase64.Encode(ASource);

  LBase64Str := StringReplace(LBase64Str, #13#10, '', [rfReplaceAll]);
  LBase64Str := StringReplace(LBase64Str, #13, '', [rfReplaceAll]);
  LBase64Str := StringReplace(LBase64Str, #10, '', [rfReplaceAll]);
{$IFEND}
  LBase64Str := LBase64Str.TrimRight(['=']);

  LBase64Str := StringReplace(LBase64Str, '+', '-', [rfReplaceAll]);
  LBase64Str := StringReplace(LBase64Str, '/', '_', [rfReplaceAll]);

  Result := LBase64Str;
  {$IFEND}
end;

[paolo-rossi]

Hello @SPT-EV

thank you for the suggestion I will review the code and insert into the library...

Paolo.