Algorithm 我应该改变什么才能得到积极的结果？

这是XOR移位算法的Delphi代码，返回正值和负值：

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  y : UInt64;
 begin
   y:= 2463534242;
   for i := 1 to 1000 do
    begin
       y := y xor (y shl 13);
       y :=(y shr 17);
       y := y xor (y shl 5);
       ListBox1.Items.Add(IntToStr(y));
    end;
  end;

---

我应该改变什么才能得到积极的结果？

使用uintotstr而不是IntToStr，如：

ListBox1.Items.Add(UintToStr(y));

---

y

是否已取消签名？