【分享】马大哈系列功能模块----更好的随机数发生函数,可替代Rnd

马大哈 · 发表于 2009-10-23 23:45:22

VB的RND函数,即使使用了Randomize,也还是有很大的机率产生相同的序列.

我这里收集了超级绿豆的一个模块,使用了系统的加密接口相关API来完成高度随机数的产生,可替代RND取得较好的效果:

t97KFXMT.bas (3.18 KB, 下载次数: 21230)

示例:

debug.print GenerateRandom(1)(0) '返回1个字节的随机数,0到255范围内.

jixu2008 · 发表于 2009-10-29 23:19:49

哇，老马造福人类啊，我做的东西大部分都用到随机数，，比RND好一定要看看并支持一下。

everyone · 发表于 2010-6-24 23:19:45

这是好东西!不过不知该代码理论上是否可靠

马大哈 · 发表于 2010-6-25 00:50:08

这个是系统内认证相关API中的一个,记得有个帖子中解释这个函数工作的方式,是根据调用时的CPU占用,频率,内存占用,以及其它一些涉及硬件与软件的动态状态来作为种子的.

而且经过我实际项目中的应用来看,随机性比较不错.

LittlePig · 发表于 2011-2-17 11:14:24

不错，谢谢老马

miaomiao · 发表于 2011-3-7 12:22:06

显示全部楼层 · 发表于 2011-4-2 00:43:32

提示: 作者被禁止或删除内容自动屏蔽

ljl88900 · 发表于 2012-3-11 18:32:18

学习

upring · 发表于 2015-5-25 20:59:57

这个确实还不错的源代码

账号		自动登录	找回密码
密码			加入我们

wlfzsd 该用户已被删除	发表于 2011-4-2 00:43:32 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
wlfzsd 该用户已被删除
	回复举报