TSE-ID auf Verpackung <> Serial ?

[ISMIRSCHLECHT]

Hi,

auf den Verpackungen der Swissbit SD Karten befindet sich ein QR-Code.
Er ist genauso lang wie das, was von
worm_info_tseSerialNumber()
zurückgeliefert wird (32 byte), aber doch verschieden.
Was steht da eigentlich im QR-Code und kann ich diese Nummer auch über die WORM auslesen ?
ism

[hhcm]

Hi,

die Seriennummer muss im Octed Format gespeichert sein werden, kann es sein, dass diese in dem QR Code als Base64 abgelegt ist?
Ich hab nur die USB Variante hier, da ist auch ein QR-Code drauf aber den kann kein Programm oder Handy lesen.

[Neumann]

Ob Octed oder Base64 als TSE-Serienummer verwendet werden soll, da zweifele ich auch noch. Habe schon beides gesehen.

Ich denke eher Base64.

Sicher kann man die auslesen, muss man dann entsprechend umwandeln.

[hhcm]

DSFinV_K Abschnitt 3.2.7

TSE_SERIAL - Seriennummer der TSE (Entspricht laut TR-03153 Abschnitt 7.5. dem Hashwert des im Zertifikat enthaltenen Schlüssels in Octet-String-Darstellung)

Warum zweifeln. Im Zweifel der Dokumentation glauben.

[Neumann]

Ja, das steht da so. Mir ist es eigentlich auch egal.

Habe es aber auch schon so gesehen:

https://www.e-cut.de/download/e-cut-...assenbon-1.pdf

[ISMIRSCHLECHT]

Mahlzeit,

GASTROMIST meint, der QR-Code auf der Blisterverpackung braucht mich nicht zu tangiern, er ist firmenintern.
ism

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