XOR Verknüpfung, wie?

[Klaus01]

Delphi-Quellcode:

function checksum(SNr:String):String;
  VAR
    i:Byte;
    dummy:Byte;
begin  
  dummy:=ord(SNr[1] XOR ord (SNr[2]);

  for i:=3 to length(SNr) DO
    begin
      dummy:=dummy XOR ord(SNr[i]);
    end;

  result := IntToHex(dummy);
end;

ungetestet aber sollte so gehen.

Grüße
Klaus