{
Calculate Xor checksum.
}
function XorCheckSum(data:String):Integer;
var i,k:Integer;
begin
 k:=0; for i:=1 to Length(data) do k:=iXor(k,Ord(data[i]));
 XorCheckSum:=k;
end;
