Zitat:
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).... // geht so nicht!
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?
IntToHex liefert Dir einen String mit den HexDigits und nicht den
Ascii-Wert des Zeichens.
Aus der Hilfe:
Zitat:
function IntToHex(Value: Integer; Digits: Integer): string; overload;
Um die Zeichen mit XOR zu verknüpfen müssen diese in ihrem
Ascii Wert verknüpft werden
Aus der Hilfe:
Zitat:
xor bitwise xor integer integer X xor Y
Grüße
Klaus