BAS64 Decode mit TIdDecoderMIME.DecodeString: ein Zeichen fehlt

[mjustin]

Hallo,

Mit TIdDecoderMIME.DecodeString ergibt dieser Base64 String

Delphi-Quellcode:

'eyJhbGciOiJSUzI1NiIsImtpZCI6ImNmMDIyYTQ5ZTk3ODYxNDhhZDBlMzc5Y2M4NTQ4NDRlMzZjM2VkYzEiLCJ0eXAiOiJKV1QifQ'

dekodiert:

Delphi-Quellcode:

'{"alg":"RS256","kid":"cf022a49e9786148ad0e379cc854844e36c3edc1","typ":"JWT"'

Richtig wäre aber dieser, mit einem abschliessenden "}"

Delphi-Quellcode:

'{"alg":"RS256","kid":"cf022a49e9786148ad0e379cc854844e36c3edc1","typ":"JWT"}'

Beispielcode zum Testen:

Delphi-Quellcode:

uses
   ... IdCoderMIME, IdGlobal, ...


  Assert('{"alg":"RS256","kid":"cf022a49e9786148ad0e379cc854844e36c3edc1","typ":"JWT"}' =
    TIdDecoderMIME.DecodeString('eyJhbGciOiJSUzI1NiIsImtpZCI6ImNmMDIyYTQ5ZTk3ODYxNDhhZDBlMzc5Y2M4NTQ4NDRlMzZjM2VkYzEiLCJ0eXAiOiJKV1QifQ', IndyTextEncoding_UTF8));

Wo liegt der Fehler?

p.s. ok sehe dass der Input-String eine ungültige Länge hat ...