Ja aber da kommt nur Chinesisch am Ende bei raus.
Delphi-Quellcode:
// Text: string
var
Dest: string;
L: Word;
begin
System.SetLength(Dest, Length(Text) * 3);
EncodeBase64(@Text[1], @Dest[1], Length(Text), Length(Dest), L);
Result := Dest;
end;
Aus ABD sollte eigentlich QUJD werden.