Also ich bin nun fast fertig. Nur die Ergebnisse hauen noch nicht so hin
wieso kann ich denn nicht
Delphi-Quellcode:
vString:=GetString();
strSN:=GrobPath1(vString);
intSN:=StrToInt(strSN);
Ergebnis:= IntToHex(ord(intSN[1]),2) xor IntToHex(ord(intSN[2]),2)....
WriteString();
Checksum:=IntToHex(Ergebnis,2);
Wieso bringt der da einen Fehler? Irgendsoetwas mir Array.
Wichtig ist, dass ich den die Zahl(123456) die ja ein String ist in die einzelnen Ziffern aufteilt und dann diese einzelnen Ziffern in einen Hexwert(
Ascii) umwandelt und dann xor verknüpfe.
Habt Ihr da ne Lösung?