TSE-ID auf Verpackung <> Serial ?

[Timbo]

Hi, habe ein ähnliches Problem, oder liegt das an dem Octet?
Laut Definition soll die SerienNr 64 Zeichen lang sein und A-F a-F sowie 0-9 enthalten.
Ich bekomme das zurück:
NGOPsLIuQtROwv1DapUirrzrEYXTu4zS422r/5/oDXU=

zu kurz und passt überhaupt nicht zur Definition, was mache ich falsch? Benutze worm_info_tseSerialNumber

LG
Tim

[Uwe Raabe]

Das ist vermutlich Base64 und gibt in Hex-Bytes decodiert:

Code:

34638FB0B22E42D44EC2FD436A9522AEBCEB1185D3BB8CD2E36DABFF9FE80D75

[Timbo]

Vielen Dank für die schnelle Antwort Ich glaube das ist die Lösung, mega. Gibt es da auch eine Funktion in Delphi zum umwandeln?

[DeddyH]

Auf die Schnelle:

Delphi-Quellcode:

uses System.NetEncoding;

function Base64ToHex(const AInput: string): string;
var
  lRawData: TArray<Byte>;
  i: integer;
begin
  Result := '';
  lRawData := TNetEncoding.Base64.DecodeStringToBytes(AInput);
  for i := Low(lRawData) to High(lRawData) do
    Result := Result + Format('%.2x', [lRawData[i]]);
end;

[Timbo]

Dankeschön 🤗 sieht nach neuerem Delphi aus, das System ist von 2004 und noch Delphi 7 😇

[DeddyH]

Dann ist dieser Thread evtl. interessant: https://stackoverflow.com/questions/...e-utf-8-base64

[Rolf Frei]

Dann kannst du auch TIdDecoderMIME aus der unit IdCoder von Indy 9 dafür nehmen.

Delphi-Quellcode:

uses IdCoder;

Result := TIdDecoderMIME.DecodeString(AText);

[TurboMagic]

Zitat von Timbo:

Dankeschön 🤗 sieht nach neuerem Delphi aus, das System ist von 2004 und noch Delphi 7 😇

Da verpasst du dann aber sehr viele schöne neue Funktionen!