Falls es noch jemanden interessiert, habe es jetzt so gelöst und es scheint zu funktionieren:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
datastring: string;
result, i: integer;
begin
datastring := chr($02)+chr($0A)+chr($53)+chr($54)+chr($4F)+chr($50)+chr($4D)+chr($4F)+chr($03);
result := 0;
for i := 1 to length(datastring) do
begin
result := result xor ord(datastring[i]);
end;
end;
MfG
Florian M.