真随机数生成的方法易语言源码，绝对真的种子。

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 真随机数生成模块
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. 
    
11. 
    
12. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
13. 返回 (0)  ' 可以根据您的需要返回任意数值
    
14. 
    
15. .子程序 _临时子程序
    
16. .局部变量 随机数, 整数型
    
17. .局部变量 最小值, 整数型
    
18. .局部变量 最大值, 整数型
    
19. 
    
20. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
21. 置随机数种子 ()
    
22. 取随机字节 (真)
    
23. .计次循环首 (1000000, )
    
24.     最小值 ＝ 取随机数 (0, 10000)
    
25.     最大值 ＝ 取随机数 (0, 10000)
    
26.     .如果真 (位与 (取随机数 (, ), 1) ＝ 1)
    
27.         最小值 ＝ 0 － 最小值
    
28.     .如果真结束
    
29.     .如果真 (位与 (取随机数 (, ), 1) ＝ 1)
    
30.         最大值 ＝ 0 － 最大值
    
31.     .如果真结束
    
32.     .如果真 (最小值 ＞ 最大值)
    
33.         交换变量 (最小值, 最大值)
    
34.     .如果真结束
    
35.     随机数 ＝ 取正负随机整数 (最小值, 最大值)
    
36.     .如果真 (随机数 ＜ 最小值 或 随机数 ＞ 最大值)
    
37.         调试输出 (随机数)
    
38.         调试输出 (“错误”)
    
39.         结束 ()
    
40.     .如果真结束
    
41. 
    
42. .计次循环尾 ()
    
43. 调试输出 (“成功”)
    
44. 结束 ()
    
45. 
    
46. .子程序 取随机字节, 字节型, 公开, 该算法可返回一个0~255范围随机的字节型数据
    
47. .参数 置随机数种子, 逻辑型, 可空
    
48. .局部变量 随机数种子, 整数型, 静态
    
49. .局部变量 随机数, 字节型, 静态, "9"
    
50. 
    
51. .如果真 (置随机数种子 ＝ 真)
    
52.     随机数种子 ＝ 取绝对值 (到整数 (取CPU从0加到1亿需要的毫秒数 () × 到整数 (取数字时间 ()) × 取鼠标水平位置 () × 取鼠标垂直位置 ()))
    
53.     随机数种子 ＝ 取绝对值 (随机数种子)
    
54.     随机数 [2] ＝ 到字节 (位与 (随机数种子, 255) × 3 ＋ 3)
    
55.     随机数 [3] ＝ 到字节 (右移 (位与 (随机数种子, 65280), 8) × 5 － 5)
    
56.     随机数 [4] ＝ 到字节 (右移 (位与 (随机数种子, 16711680), 16) × 7 ＋ 7)
    
57.     随机数 [5] ＝ 到字节 (位与 (随机数种子, 255) × 9 ＋ 9)
    
58.     随机数 [6] ＝ 到字节 (右移 (位与 (随机数种子, 65280), 8) × 11 － 11)
    
59.     随机数 [7] ＝ 到字节 (右移 (位与 (随机数种子, 16711680), 16) × 13 ＋ 13)
    
60.     随机数 [8] ＝ 到字节 (右移 (位与 (随机数种子, 16711680), 16) × 15 － 15)
    
61. .如果真结束
    
62. 
    
63. 
    
64. 随机数 [2] ＝ (随机数 [3] ＋ 3) × 3
    
65. 随机数 [3] ＝ (随机数 [4] － 3) × 3
    
66. 随机数 [4] ＝ (随机数 [5] ＋ 3) × 3
    
67. 随机数 [5] ＝ (随机数 [6] － 3) × 3
    
68. 随机数 [6] ＝ (随机数 [7] ＋ 3) × 3
    
69. 随机数 [7] ＝ (随机数 [8] － 3) × 3
    
70. 随机数 [8] ＝ (随机数 [9] ＋ 3) × 3
    
71. 随机数 [9] ＝ (随机数 [2] － 3) × 3
    
72. .如果真 (随机数 [2] ＞ 127)
    
73.     随机数 [3] ＝ 位异或 (随机数 [3], 127)
    
74. .如果真结束
    
75. .如果真 (随机数 [3] ＜ 127)
    
76.     随机数 [4] ＝ 位异或 (随机数 [4], 127)
    
77. .如果真结束
    
78. .如果真 (随机数 [4] ＞ 127)
    
79.     随机数 [5] ＝ 位异或 (随机数 [5], 127)
    
80. .如果真结束
    
81. .如果真 (随机数 [5] ＜ 127)
    
82.     随机数 [6] ＝ 位异或 (随机数 [6], 127)
    
83. .如果真结束
    
84. .如果真 (随机数 [6] ＞ 127)
    
85.     随机数 [7] ＝ 位异或 (随机数 [7], 127)
    
86. .如果真结束
    
87. .如果真 (随机数 [7] ＜ 127)
    
88.     随机数 [8] ＝ 位异或 (随机数 [8], 127)
    
89. .如果真结束
    
90. .如果真 (随机数 [8] ＞ 127)
    
91.     随机数 [9] ＝ 位异或 (随机数 [9], 127)
    
92. .如果真结束
    
93. .如果真 (随机数 [9] ＜ 127)
    
94.     随机数 [2] ＝ 位异或 (随机数 [2], 127)
    
95. .如果真结束
    
96. 随机数 [1] ＝ 位异或 (随机数 [2], 随机数 [3], 随机数 [4], 随机数 [5], 随机数 [6], 随机数 [7], 随机数 [8], 随机数 [9])
    
97. 返回 (随机数 [1])
    
98. 
    
99. .子程序 取正负随机整数, 整数型, 公开, 最大取值范围:-2147483648~2147483647
    
100. .参数 最小值, 整数型, 可空, 默认为-2147483648
     
101. .参数 最大值, 整数型, 可空, 默认为2147483647
     
102. .局部变量 随机数A, 整数型
     
103. .局部变量 随机数B, 整数型
     
104. .局部变量 正随机数, 整数型
     
105. .局部变量 正负标志, 字节型
     
106. .局部变量 随机数, 整数型
     
107. .局部变量 数间隔, 长整数型
     
108. 
     
109. 随机数A ＝ 取颜色值 (取随机字节 (), 取随机字节 (), 取随机字节 ())
     
110. 随机数B ＝ 取颜色值 (取随机字节 (), 取随机字节 (), 取随机字节 ())
     
111. 正随机数 ＝ 取绝对值 (左移 (随机数A, 24) ＋ 随机数B)
     
112. .如果真 (是否为空 (最小值))
     
113.     最小值 ＝ -2147483648
     
114. .如果真结束
     
115. .如果真 (是否为空 (最大值))
     
116.     最大值 ＝ 2147483647
     
117. .如果真结束
     
118. .如果真 (最小值 ＝ 最大值)
     
119.     返回 (最小值)
     
120. .如果真结束
     
121. .如果真 (最小值 ＞ 最大值)
     
122.     交换变量 (最小值, 最大值)
     
123. .如果真结束
     
124. 数间隔 ＝ 最大值 － 最小值
     
125. 随机数 ＝ 正随机数 ％ 数间隔 ＋ 最小值
     
126. 返回 (随机数)
     
127. 
     
128. 
     
129. 
     
130. 
     
131. 
     
132. .子程序 取数字时间, 长整数型, 公开
     
133. .局部变量 文本时间, 文本型
     
134. 
     
135. 文本时间 ＝ 到文本 (取现行时间 ())
     
136. 文本时间 ＝ 子文本替换 (文本时间, “年”, , , , 真)
     
137. 文本时间 ＝ 子文本替换 (文本时间, “月”, , , , 真)
     
138. 文本时间 ＝ 子文本替换 (文本时间, “日”, , , , 真)
     
139. 文本时间 ＝ 子文本替换 (文本时间, “时”, , , , 真)
     
140. 文本时间 ＝ 子文本替换 (文本时间, “分”, , , , 真)
     
141. 文本时间 ＝ 子文本替换 (文本时间, “秒”, , , , 真)
     
142. 返回 (到长整数 (文本时间))
     
143. 
     
144. 
     
145. 
     
146. 
     
147. 
     
148. 
     
149. .子程序 取CPU从0加到1亿需要的毫秒数, 整数型, 公开, 由于CPU频率的不稳定性受到温度等环境以及硬件配置的影响，每次累加需要的时间都会不同，真随机数通过此函数产生的。
     
150. .局部变量 开始时间, 整数型
     
151. .局部变量 计数, 整数型
     
152. 
     
153. 开始时间 ＝ 取启动时间 ()
     
154. .判断循环首 (计数 ≤ 100000000)
     
155.     计数 ＝ 计数 ＋ 1
     
156. .判断循环尾 ()
     
157. 返回 (取启动时间 () － 开始时间)
     
158. 
     
159. 
     

复制代码

demon

帮忙暖(水)贴。消灭零回复。真随机？我发现楼主的帖子很多都有大夸奇效的成分。吸引眼球吗？其实得不偿失。

Kuni7wa

可以啊，老帖子就1个回复

主人

楼上半年没水了的帖子了。