XOR Verknüpfung, wie?

[sminds]

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