TSE-ID auf Verpackung <> Serial ?

[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;