首页 > Windows开发 > 详细

使用kbmmw中的随机数替换delphi 10.3 自带的随机数

时间:2019-03-02 12:19:31      阅读:308      评论:0      收藏:0      [点我收藏+]

我们在开发中经常会使用随机数模拟各种随机条件,例如生成唯一的密码和令牌。

在计算机中,一般采用PRNG(伪随机序列发生器)模拟真实随机数。既然是随机,就要要没有任何规律,

在取值范围内均匀、独立。以确保尽量不重复。否则生成的密码和令牌碰撞的几率就非常大。

delphi自带的随机数函数,看似随机,实际上当产生次数足够多的话,就会发现重复性非常大,而且向中心域

集中。如果我们用delphi自带的随机数生成一个区域的点,就会很方便的发现这个问题。

技术分享图片

kbmmw 5.8里面 提供了好几种流行的随机数生成实现。例如PCG、 Mersenne Twister、SplitMix、Xoroshiro等。

甚至提供了几个利用CPU 自身功能生成伪随机数的函数。

技术分享图片

技术分享图片

我们可以明显的看出来,这两个图中的点非常随机、均匀。因此,我们在开发中尽量使用kbmmw 提供的随机函数。

喜大普奔,delphi10.3 里面提供了可替换随机数生成的功能。

我们可以很方便的让delphi 不用更改代码(或者没有代码的情况一下),就可以享受这些好的功能和算法。

首先,我们做一个函数,当然记住要引用kbmMWRandom。

function xalionrandom32:UInt32;
begin result:= kbmMWRandom32.Random;

end;

然后在工程文件里面加上三行。

 Application.Initialize;
//加上这三行
  {$IF CompilerVersion >= 33}
     Random32Proc:= xalionrandom32;
  {$ENDIF}

ok, 我们的程序就可以享受这个福利了。

 

使用kbmmw中的随机数替换delphi 10.3 自带的随机数

原文:https://www.cnblogs.com/xalion/p/10460353.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!