Delphi中如何获取64位随机值？

Question

如何在 Delphi 2006 中创建随机 64 位整数值？内置的基于整数的 Random() 函数似乎只返回 0 到 2^31 之间的值。

Answer 1

您可以使用我的 GpRandomGen 。它实现了 Marsaglia/Zaman/James 算法，速度非常快，而且据说非常随机。作为免费软件发布。

Answer 2

生成两个 32 位随机数并将它们拼接在一起。

编辑

与@Andreas的答案类似，我喜欢以下（等效）实现：

function Random64: UInt64;
var
  Overlay: packed record
    a, b: UInt32;
  end absolute Result;
begin
  Assert(SizeOf(Overlay)=SizeOf(Result));
  Overlay.a := Random32;
  Overlay.b := Random32;
end;

Answer 3

为了回答我自己的问题，我想出了以下代码：

function GetRandomInt64() : int64;
begin
   Int64Rec(result).Words[0] := Random(High(Word));
   Int64Rec(result).Words[1] := Random(High(Word));
   Int64Rec(result).Words[2] := Random(High(Word));
   Int64Rec(result).Words[3] := Random(High(Word));
end;

不确定这是否是一个有效的解决方案，或者它总是会在给定结果编号 X 之后创建相同的后续编号 X+1。

Answer 4

您可以生成 64 个随机位并将结果解释为整数。 （如果您使用有符号整数并希望结果为非负，则为 63 位。）同样，您可以采用 0..2^31-1 范围内的两个随机整数，加上两个额外的随机位，并将它们连接到获取一个随机 64 位整数。

编辑：我对通过连接伪随机组件生成的伪随机数的统计特性感到好奇，并发现（显然）这种方法可能无法很好地工作，具体取决于您的伪随机生成器（当然对于真正的随机数生成，如大气噪声，连接随机位没有问题）。对于娱乐用途，各种统计属性的损失可能是可以接受的，但对于更严肃的用途，您可能最终需要一个自定义伪随机生成器，如 @gabr 建议的那样。这是一个相关的问题： 最佳方法生成一个 256 个随机位的数字？

Answer 5

创建 GUID（例如 CoCreateGuid）并强制转换它为 Int64。

Answer 6

简单：

function Random64: UInt64;
begin
  PCardinal(@result)^ := Random32;
  PCardinal(cardinal(@result) + 4)^ := Random32;
end;

其中 Random32 是您最喜欢的 32 位无符号整数随机数函数。