All pastes #2050980 Raw Edit

Someone

public text v1 · immutable
#2050980 ·published 2011-04-26 19:53 UTC
rendered paste body
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