真随机数生成模块源码第2版

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. .程序集变量 二进制1的数量表, 字节型, , "256"
   
7. 
   
8. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
9. 
   
10. 
    
11. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
12. 返回 (0)  ' 可以根据您的需要返回任意数值
    
13. 
    
14. .子程序 _临时子程序
    
15. 
    
16. 调试输出 (取真随机字节集序列 ())
    
17. 
    
18. 
    
19. .子程序 取实际延时时间, 整数型
    
20. .局部变量 时间, 整数型
    
21. 
    
22. 时间 ＝ 取启动时间 ()
    
23. 延时 (1)
    
24. 
    
25. 
    
26. 返回 (取启动时间 () － 时间)
    
27. 
    
28. .子程序 逻辑型数组到字节集, 字节集
    
29. .参数 逻辑型数组, 逻辑型, 数组
    
30. .局部变量 逻辑组长度, 整数型
    
31. .局部变量 字节集数据, 字节集
    
32. .局部变量 字节集长度, 整数型
    
33. .局部变量 计数, 整数型
    
34. .局部变量 移位计数, 整数型
    
35. .局部变量 逻辑计数, 整数型
    
36. 
    
37. 逻辑组长度 ＝ 取数组成员数 (逻辑型数组)
    
38. .如果真 (逻辑组长度 ％ 8 ≠ 0)
    
39.     输出调试文本 (“数组成员数必须是8的倍数才可以导出字节集数据。”)
    
40.     返回 ({  })
    
41. .如果真结束
    
42. 字节集数据 ＝ 取空白字节集 (逻辑组长度 ÷ 8)
    
43. 字节集长度 ＝ 取字节集长度 (字节集数据)
    
44. .计次循环首 (字节集长度, 计数)
    
45.     .变量循环首 (7, 0, -1, 移位计数)
    
46.         .如果真 (逻辑型数组 [逻辑计数 ＋ 1] ＝ 真)
    
47.             字节集数据 [计数] ＝ 位或 (左移 (1, 移位计数), 字节集数据 [计数])
    
48.         .如果真结束
    
49.         逻辑计数 ＝ 逻辑计数 ＋ 1
    
50.     .变量循环尾 ()
    
51. .计次循环尾 ()
    
52. 返回 (字节集数据)
    
53. 
    
54. 
    
55. .子程序 取真随机字节集序列, 字节集, 公开
    
56. .局部变量 计数, 整数型
    
57. .局部变量 逻辑数组, 逻辑型, , "8,256"
    
58. .局部变量 逻辑数组2, 逻辑型, , "256,8"
    
59. .局部变量 移位计数, 整数型
    
60. .局部变量 移位值, 整数型
    
61. .局部变量 字节集, 字节集
    
62. .局部变量 字节集2, 字节集
    
63. .局部变量 字节集3, 字节集
    
64. .局部变量 整数数组, 整数型, , "0"
    
65. .局部变量 结果, 整数型
    
66. .局部变量 值, 整数型
    
67. 
    
68. 
    
69. .变量循环首 (0, 255, 1, 计数)
    
70.     结果 ＝ 0
    
71.     .变量循环首 (0, 7, 1, 移位计数)
    
72.         .如果真 (位与 (左移 (1, 移位计数), 计数) ≠ 0)
    
73.             结果 ＝ 结果 ＋ 1
    
74.         .如果真结束
    
75. 
    
76.     .变量循环尾 ()
    
77.     二进制1的数量表 [计数 ＋ 1] ＝ 结果
    
78. .变量循环尾 ()
    
79. 字节集3 ＝ 取空白字节集 (256)
    
80. .计次循环首 (256, 计数)
    
81.     值 ＝ 取实际延时时间 ()
    
82. 
    
83.     字节集3 [计数] ＝ 值
    
84.     .变量循环首 (1, 8, 1, 移位计数)
    
85.         移位值 ＝ 左移 (1, 移位计数 － 1)
    
86.         逻辑数组 [移位计数] [计数] ＝ 位与 (值, 移位值) ＝ 移位值
    
87.         逻辑数组2 [计数] [移位计数] ＝ 位与 (值, 移位值) ＝ 移位值
    
88. 
    
89.     .变量循环尾 ()
    
90. .计次循环尾 ()
    
91. 字节集 ＝ 逻辑型数组到字节集 (逻辑数组)
    
92. 字节集2 ＝ 逻辑型数组到字节集 (逻辑数组2)
    
93. .计次循环首 (256, 计数)
    
94.     字节集 [计数] ＝ H (F (循环右移 (字节集 [计数]), 循环左移 (字节集2 [计数]), 字节高低位颠倒 (字节集3 [计数])), G (字节高低位颠倒 (计数 － 1), 字节集 [循环右移 (字节集2 [循环左移 (计数 － 1) ＋ 1]) ＋ 1], 字节集2 [循环左移 (字节集3 [循环右移 (计数 － 1) ＋ 1]) ＋ 1]), I (字节集3 [半字节交换 (字节集 [字节高低位颠倒 (计数 － 1) ＋ 1]) ＋ 1], 计数 － 1, 右移 (取启动时间 (), 8 ＋ 获取二进制位1的数量 (计数 － 1))))
    
95. .计次循环尾 ()
    
96. 返回 (字节集)
    
97. 
    
98. 
    
99. .子程序 获取二进制位1的数量, 字节型
    
100. .参数 值, 字节型
     
101. 
     
102. 返回 (二进制1的数量表 [值 ＋ 1])
     
103. 
     
104. .子程序 循环左移, 字节型
     
105. .参数 值, 字节型
     
106. 
     
107. 返回 (位或 (右移 (位与 (值, 254), 1), 左移 (位与 (值, 1), 7)))
     
108. 
     
109. 
     
110. .子程序 循环右移, 字节型
     
111. .参数 值, 字节型
     
112. 
     
113. 返回 (位或 (右移 (位与 (值, 128), 7), 左移 (位与 (值, 127), 1)))
     
114. 
     
115. 
     
116. .子程序 半字节交换, 字节型
     
117. .参数 值, 字节型
     
118. 
     
119. 返回 (左移 (位与 (值, 15), 4) ＋ 右移 (值, 4))
     
120. 
     
121. 
     
122. .子程序 字节高低位颠倒, 字节型
     
123. .参数 字节, 字节型
     
124. .局部变量 移位计数, 整数型
     
125. .局部变量 返回值, 字节型
     
126. 
     
127. .变量循环首 (0, 7, 1, 移位计数)
     
128.     .如果真 (位与 (左移 (1, 移位计数), 字节) ＝ 左移 (1, 移位计数))
     
129.         返回值 ＝ 位或 (返回值, 左移 (1, 7 － 移位计数))
     
130. 
     
131.     .如果真结束
     
132. 
     
133. .变量循环尾 ()
     
134. 返回 (返回值)
     
135. 
     
136. 
     
137. .子程序 F, 整数型
     
138. .参数 X, 整数型
     
139. .参数 Y, 整数型
     
140. .参数 Z, 整数型
     
141. 
     
142. 返回 (位或 (位与 (X, Y), 位与 (位取反 (X), Z)))
     
143. 
     
144. .子程序 G, 整数型
     
145. .参数 X, 整数型
     
146. .参数 Y, 整数型
     
147. .参数 Z, 整数型
     
148. 
     
149. 返回 (位或 (位与 (X, Z), 位与 (Y, 位取反 (Z))))
     
150. 
     
151. .子程序 H, 整数型
     
152. .参数 X, 整数型
     
153. .参数 Y, 整数型
     
154. .参数 Z, 整数型
     
155. 
     
156. 返回 (位异或 (X, Y, Z))
     
157. 
     
158. .子程序 I, 整数型
     
159. .参数 X, 整数型
     
160. .参数 Y, 整数型
     
161. .参数 Z, 整数型
     
162. 
     
163. 返回 (位异或 (Y, 位或 (X, 位取反 (Z))))
     

复制代码

222

1小时就3查看

Cute

222 发表于 2018-6-18 13:53
1小时就3查看

我这9小时6查看，这里几乎没什么人来的，只有一些蜘蛛程序进来。

Orange

真随机数就这样生成的么???

222

Cute 发表于 2018-6-18 21:55
我这9小时6查看，这里几乎没什么人来的，只有一些蜘蛛程序进来。

24小时不到20查看

demon

222 发表于 2018-6-20 13:24
24小时不到20查看

趋近于964.7691666667时，28查看

demon

这东西怎么能号称真随机数...
我觉得楼主的程序在相同环境时某种程度数据会趋向一个中心

4面8方

Cute 发表于 2018-6-18 21:55
我这9小时6查看，这里几乎没什么人来的，只有一些蜘蛛程序进来。

4个月不到70查看，你说6不6 ???