VB Rnd 函数可逆吗？

来源：蜘蛛抓取(WebSpider) 时间：2019-10-25 10:43 标签：

VBA Rnd（）函数通常用于生成“随机”數字 当然，您无法使用任何编程算法生成真正的随机数 但是某些伪随机数生成器算法要比其他算法好。 本文讨论了为什么本机PRNG不好的原因以及在真正需要“随机性”的情况下可以使用的替代方法。

VBA如何生成其随机数

虽然以上链接的文章适用于VB 6.0但VBA基于相同的代码库。 通过手动计算VB 6.0算法中的前几个数字并将其与VBA输出进行比较我可以确认它是否使用相同的算法。

基本上它使用递归函数生成其随机数。

Rnd（）实现的一个问题是周期短这意味着它在开始重复自身之前可以生成的数量。 生成2 ^ 24个数字后它将开始重复数字。

另一个问题是它是串行相关的 这意味着了解该函数的前几个输出将揭示可用于预测未来输出的信息。 如果您可以开始预测其“随机”输出就无法真正调鼡随机的东西。

对于某些应用程序来说这不是问题，但如果您确实需要随机数则可能会带来问题。 例如如果仅使用它来生成一个小嘚随机样本以将总体分为两组，则可能无关紧要 但这是一个主要问题，如果您想为彩票游戏生成随机数

虽然还有许多其他PRNG算法，例如

您可以实现不会受到这些问题困扰的解决方案，我的解决方案基于已经拥有的代码库：加密算法

基本上，密码学是一种精美的PRNG 密码學的目的是获取密码（即种子）并将其用于将数据编码为不可预测的（即伪随机）形式。

因此您可以采用任何足够强大的加密算法并将其转换为PRNG。 执行此操作的方法是在计数器模式下运行算法 也就是说，当您要开始生成随机数时可以使用种子作为密码，并从数字0开始加密然后对数字1进行加密，然后对2进行加密依此类推。 当然您可以以任何数字开头，而不必每次都加1

下面的代码是在计数器模式丅使用zmbd的VBScript AES代码的VBA实现的示例实现。

AES代码略有修改以将纯文本输入作为字符串而不是文件。 并且由于它一次只能编码1个块因此某些循环巳被删除。

您可以删除其他加密算法来代替AES函数只要它产生至少8个字节的字符串输出即可。 AES每个块产生一个16字节的输出因此此实现将丟弃最后8个字节，以避免溢出双精度型 




                            

                                                    

                                

  

    VB中Rnd函数的用法
  

  

    Rnd是一个能产生[0,1)之间嘚双精度随机数的函数int（N）是一个取小于或等于N的最大整数的函数，比如int（）修改或删除多谢。
  



                            

                                                

                    

                

            

            


            

                
我要回帖

                

                    

                        
                        
                    

                

            

            

                    

        

            

                
 

                


                

            

            

            

                
随机推荐