Hallo,
habe ein ähnliches Problem wie DoktorD, nur muß ich die einzelnen Werte als HEX-Werte mit XOR Verknüpfen.
Ich habe z.B. die
HEX-Werte
01 30 31 02 30 32 30 30 43 38 03
das XOR-Ergebnis lautet 78, wenn ich die Werte in einem Taschenrechner unter HEX eingebe.
Mit dieser Funktion erhalte ich 32 ....
Delphi-Quellcode:
VAR
elemente:array[1..11] of byte;
i:Byte;
dummy:Byte;
begin
elemente[1]:=01;
elemente[2]:=30;
elemente[3]:=31;
elemente[4]:=02;
elemente[5]:=30;
elemente[6]:=32;
elemente[7]:=30;
elemente[8]:=30;
elemente[9]:=43;
elemente[10]:=38;
elemente[11]:=03;
dummy:=ord(elemente[1]) XOR ord(elemente[2]);
for i:=3 to length(elemente) DO
begin
dummy:=dummy XOR ord(elemente[i]);
end;
// dummy = 50, hex von 50 = 32
showmessage(IntToHex(dummy,2));
Könnt ihr mir bitte einen Hinweis geben, wie ich diese Funktion ändern kann, damit ich den richtigen Wert 78 erhalte.
Vielen Dank,
egonsa