function CheckSum(const s: string): string;
var
 j, t: Integer;
begin
 t := Ord(s[1]);
 for j := 2 to Length(s) do
  t := t xor Ord(s[j]);
 result := IntToHex(StrToInt(Inttostr(t)), 2);
end;
[10:26:42 PM EEST] Mustafa Sert: ---
[10:27:00 PM EEST] Mustafa Sert: object-pascal (delphi) kodunu veriyorum