大文件MD5计算模块算法源码 最大2GB 稳定不出错 算法核心库实现

QAQ

1. 
   
2. .版本 2
   
3. .支持库 dp1
   
4. 
   
5. .程序集 文件MD5计算
   
6. .程序集变量 AA, 整数型
   
7. .程序集变量 BB, 整数型
   
8. .程序集变量 CC, 整数型
   
9. .程序集变量 DD, 整数型
   
10. .程序集变量 百分比, 双精度小数型
    
11. .程序集变量 旧百分比, 双精度小数型
    
12. .程序集变量 百分比时间, 双精度小数型
    
13. .程序集变量 旧百分比时间, 双精度小数型
    
14. .程序集变量 百分比显示, 逻辑型
    
15. 
    
16. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
    
17. 
    
18. 
    
19. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
20. 返回 (0)  ' 可以根据您的需要返回任意数值
    
21. 
    
22. .子程序 _临时子程序
    
23. .局部变量 长度, 整数型
    
24. .局部变量 字节集, 字节集
    
25. 
    
26. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
27. 百分比显示 ＝ 假
    
28. 
    
29. .计次循环首 (1000, 长度)
    
30.     字节集 ＝ 随机字节集 (长度)
    
31.     .如果真 (MD5_字节集 (字节集) ≠ 取数据摘要 (字节集))
    
32.         暂停 ()
    
33. 
    
34.     .如果真结束
    
35. 
    
36. .计次循环尾 ()
    
37. 
    
38. 输出调试文本 (“完成”)
    
39. 百分比显示 ＝ 真
    
40. 输出调试文本 (MD5_文件 (“D:\file.bin”))
    
41. 
    
42. .子程序 MD5_文件, 文本型, 公开, 计算一个文件的MD5
    
43. .参数 文件名, 文本型, , 提供文件名以及路径，最大2147483647字节
    
44. .局部变量 文件号, 整数型
    
45. .局部变量 长度, 整数型
    
46. .局部变量 块数, 整数型
    
47. .局部变量 计数, 整数型
    
48. .局部变量 MD5块, 字节集
    
49. .局部变量 MD5整数块, 整数型, , "16"
    
50. .局部变量 块计数, 整数型
    
51. .局部变量 索引位置, 整数型
    
52. .局部变量 时间, 整数型
    
53. 
    
54. 长度 ＝ 取文件尺寸 (文件名)
    
55. .如果真 (长度 ＜ 0)
    
56.     输出调试文本 (“获取文件尺寸失败”)
    
57.     返回 (“”)
    
58. .如果真结束
    
59. 
    
60. 文件号 ＝ 打开文件 (文件名, 1, 3)
    
61. .如果真 (文件号 ＝ 0)
    
62.     输出调试文本 (“打开文件失败”)
    
63.     返回 (“”)
    
64. .如果真结束
    
65. .如果真 (百分比显示)
    
66.     百分比 ＝ 0
    
67.     旧百分比 ＝ 0
    
68.     百分比时间 ＝ 0
    
69.     旧百分比时间 ＝ 取启动时间 ()
    
70. 
    
71. .如果真结束
    
72. 
    
73. 块数 ＝ 计算块数 (长度)
    
74. 
    
75. MD5初始化 ()
    
76. .计次循环首 (块数, 计数)
    
77.     MD5块 ＝ MD5_读文件块 (文件号, 计数, 块数, 长度)
    
78.     索引位置 ＝ 1
    
79.     .计次循环首 (16, 块计数)
    
80.         MD5整数块 [块计数] ＝ 取字节集数据 (MD5块, 3, 索引位置)
    
81.     .计次循环尾 ()
    
82.     主要循环 (MD5整数块)
    
83. .计次循环尾 ()
    
84. 返回 (级联 (AA, BB, CC, DD))
    
85. 
    
86. 
    
87. 
    
88. .子程序 MD5_字节集, 文本型
    
89. .参数 字节集, 字节集
    
90. .局部变量 文件名, 文本型
    
91. .局部变量 返回值, 文本型
    
92. 
    
93. 文件名 ＝ 取临时文件名 ()
    
94. 写到文件 (文件名, 字节集)
    
95. 返回值 ＝ MD5_文件 (文件名)
    
96. 删除文件 (文件名)
    
97. 返回 (返回值)
    
98. 
    
99. .子程序 MD5初始化
    
100. 
     
101. AA ＝ 1732584193
     
102. BB ＝ -271733879
     
103. CC ＝ -1732584194
     
104. DD ＝ 271733878
     
105. 
     
106. .子程序 MD5_读文件块, 字节集, , 自带填充 返回固定64字节
     
107. .参数 文件号, 整数型
     
108. .参数 块, 整数型
     
109. .参数 块数, 整数型
     
110. .参数 长度, 整数型
     
111. .局部变量 字节集, 字节集
     
112. .局部变量 位长, 长整数型
     
113. .局部变量 读到的长度, 整数型
     
114. .局部变量 百分比耗时, 整数型
     
115. .局部变量 剩余时间, 整数型
     
116. 
     
117. 位长 ＝ 长度 × 8
     
118. .如果真 (百分比显示)
     
119. 
     
120.     百分比 ＝ 块 ÷ 块数 × 100
     
121.     .如果真 (取整 (百分比) ≠ 取整 (旧百分比))
     
122.         百分比时间 ＝ 取启动时间 ()
     
123.         百分比耗时 ＝ 百分比时间 － 旧百分比时间
     
124.         剩余时间 ＝ 100 × 百分比耗时 － 百分比 × 百分比耗时
     
125.         输出调试文本 (“已完成 ” ＋ 到文本 (百分比) ＋ “% 大约剩余 ” ＋ 到文本 (剩余时间 ÷ 1000) ＋ “ 秒完成。”)
     
126.         旧百分比时间 ＝ 百分比时间
     
127.     .如果真结束
     
128.     旧百分比 ＝ 百分比
     
129. 
     
130. .如果真结束
     
131. 
     
132. 字节集 ＝ 读入字节集 (文件号, 64)
     
133. 读到的长度 ＝ 取字节集长度 (字节集)
     
134. .判断开始 (读到的长度 ＜ 64 且 块数 ≠ 块)
     
135.     字节集 ＝ 字节集 ＋ 取空白 (64 － 读到的长度, 真)
     
136. .判断 (块数 ＝ 块 且 读到的长度 ＝ 0)
     
137.     字节集 ＝ 字节集 ＋ 取空白 (56 － 读到的长度, 右移 (位与 (长度, 63), 3) ≠ 7) ＋ 到字节集 (位长)
     
138. .判断 (块数 ＝ 块)
     
139.     字节集 ＝ 字节集 ＋ 取空白 (56 － 读到的长度, 真) ＋ 到字节集 (位长)
     
140. .默认
     
141. 
     
142. .判断结束
     
143. 返回 (字节集)
     
144. 
     
145. 
     
146. .子程序 计算填充长度, 整数型
     
147. .参数 填充前长度, 整数型
     
148. 
     
149. 返回 (右移 (填充前长度 ＋ 8, 6) × 64 ＋ 64)
     
150. 
     
151. 
     
152. .子程序 计算块数, 整数型
     
153. .参数 填充前长度, 整数型
     
154. 
     
155. 返回 ((填充前长度 ＋ 8) ＼ 64 ＋ 1)
     
156. 
     
157. 
     
158. .子程序 循环左移, 整数型
     
159. .参数 欲移动的整数, 整数型
     
160. .参数 欲移动的位数, 字节型
     
161. 
     
162. 置入代码 ({ 139, 69, 8, 138, 77, 12, 211, 192, 201, 195 })
     
163. ' mov eax,[ebp+8]
     
164. ' mov cl,[ebp+12]
     
165. ' rol eax,cl
     
166. ' leave
     
167. ' ret
     
168. 返回 (0)
     
169. 
     
170. .子程序 F, 整数型
     
171. .参数 X, 整数型
     
172. .参数 Y, 整数型
     
173. .参数 Z, 整数型
     
174. 
     
175. 返回 (位或 (位与 (X, Y), 位与 (位取反 (X), Z)))
     
176. 
     
177. .子程序 G, 整数型
     
178. .参数 X, 整数型
     
179. .参数 Y, 整数型
     
180. .参数 Z, 整数型
     
181. 
     
182. 返回 (位或 (位与 (X, Z), 位与 (Y, 位取反 (Z))))
     
183. 
     
184. .子程序 H, 整数型
     
185. .参数 X, 整数型
     
186. .参数 Y, 整数型
     
187. .参数 Z, 整数型
     
188. 
     
189. 返回 (位异或 (X, Y, Z))
     
190. 
     
191. .子程序 I, 整数型
     
192. .参数 X, 整数型
     
193. .参数 Y, 整数型
     
194. .参数 Z, 整数型
     
195. 
     
196. 返回 (位异或 (Y, 位或 (X, 位取反 (Z))))
     
197. 
     
198. .子程序 FF
     
199. .参数 a, 整数型, 参考
     
200. .参数 b, 整数型
     
201. .参数 c, 整数型
     
202. .参数 d, 整数型
     
203. .参数 Mj, 整数型
     
204. .参数 s, 整数型
     
205. .参数 ti, 整数型
     
206. 
     
207. 
     
208. a ＝ b ＋ 循环左移 (a ＋ F (b, c, d) ＋ Mj ＋ ti, s)
     
209. 
     
210. 
     
211. .子程序 GG
     
212. .参数 a, 整数型, 参考
     
213. .参数 b, 整数型
     
214. .参数 c, 整数型
     
215. .参数 d, 整数型
     
216. .参数 Mj, 整数型
     
217. .参数 s, 整数型
     
218. .参数 ti, 整数型
     
219. 
     
220. a ＝ b ＋ 循环左移 (a ＋ G (b, c, d) ＋ Mj ＋ ti, s)
     
221. 
     
222. .子程序 HH
     
223. .参数 a, 整数型, 参考
     
224. .参数 b, 整数型
     
225. .参数 c, 整数型
     
226. .参数 d, 整数型
     
227. .参数 Mj, 整数型
     
228. .参数 s, 整数型
     
229. .参数 ti, 整数型
     
230. 
     
231. a ＝ b ＋ 循环左移 (a ＋ H (b, c, d) ＋ Mj ＋ ti, s)
     
232. 
     
233. .子程序 II
     
234. .参数 a, 整数型, 参考
     
235. .参数 b, 整数型
     
236. .参数 c, 整数型
     
237. .参数 d, 整数型
     
238. .参数 Mj, 整数型
     
239. .参数 s, 整数型
     
240. .参数 ti, 整数型
     
241. 
     
242. a ＝ b ＋ 循环左移 (a ＋ I (b, c, d) ＋ Mj ＋ ti, s)
     
243. 
     
244. .子程序 主要循环
     
245. .参数 x, 整数型, 参考 数组
     
246. .局部变量 A, 整数型
     
247. .局部变量 B, 整数型
     
248. .局部变量 C, 整数型
     
249. .局部变量 D, 整数型
     
250. 
     
251. A ＝ AA
     
252. B ＝ BB
     
253. C ＝ CC
     
254. D ＝ DD
     
255. 
     
256. FF (A, B, C, D, x [1], 7, -680876936)
     
257. FF (D, A, B, C, x [2], 12, -389564586)
     
258. FF (C, D, A, B, x [3], 17, 606105819)
     
259. FF (B, C, D, A, x [4], 22, -1044525330)
     
260. FF (A, B, C, D, x [5], 7, -176418897)
     
261. FF (D, A, B, C, x [6], 12, 1200080426)
     
262. FF (C, D, A, B, x [7], 17, -1473231341)
     
263. FF (B, C, D, A, x [8], 22, -45705983)
     
264. FF (A, B, C, D, x [9], 7, 1770035416)
     
265. FF (D, A, B, C, x [10], 12, -1958414417)
     
266. FF (C, D, A, B, x [11], 17, -42063)
     
267. FF (B, C, D, A, x [12], 22, -1990404162)
     
268. FF (A, B, C, D, x [13], 7, 1804603682)
     
269. FF (D, A, B, C, x [14], 12, -40341101)
     
270. FF (C, D, A, B, x [15], 17, -1502002290)
     
271. FF (B, C, D, A, x [16], 22, 1236535329)
     
272. GG (A, B, C, D, x [2], 5, -165796510)
     
273. GG (D, A, B, C, x [7], 9, -1069501632)
     
274. GG (C, D, A, B, x [12], 14, 643717713)
     
275. GG (B, C, D, A, x [1], 20, -373897302)
     
276. GG (A, B, C, D, x [6], 5, -701558691)
     
277. GG (D, A, B, C, x [11], 9, 38016083)
     
278. GG (C, D, A, B, x [16], 14, -660478335)
     
279. GG (B, C, D, A, x [5], 20, -405537848)
     
280. GG (A, B, C, D, x [10], 5, 568446438)
     
281. GG (D, A, B, C, x [15], 9, -1019803690)
     
282. GG (C, D, A, B, x [4], 14, -187363961)
     
283. GG (B, C, D, A, x [9], 20, 1163531501)
     
284. GG (A, B, C, D, x [14], 5, -1444681467)
     
285. GG (D, A, B, C, x [3], 9, -51403784)
     
286. GG (C, D, A, B, x [8], 14, 1735328473)
     
287. GG (B, C, D, A, x [13], 20, -1926607734)
     
288. HH (A, B, C, D, x [6], 4, -378558)
     
289. HH (D, A, B, C, x [9], 11, -2022574463)
     
290. HH (C, D, A, B, x [12], 16, 1839030562)
     
291. HH (B, C, D, A, x [15], 23, -35309556)
     
292. HH (A, B, C, D, x [2], 4, -1530992060)
     
293. HH (D, A, B, C, x [5], 11, 1272893353)
     
294. HH (C, D, A, B, x [8], 16, -155497632)
     
295. HH (B, C, D, A, x [11], 23, -1094730640)
     
296. HH (A, B, C, D, x [14], 4, 681279174)
     
297. HH (D, A, B, C, x [1], 11, -358537222)
     
298. HH (C, D, A, B, x [4], 16, -722521979)
     
299. HH (B, C, D, A, x [7], 23, 76029189)
     
300. HH (A, B, C, D, x [10], 4, -640364487)
     
301. HH (D, A, B, C, x [13], 11, -421815835)
     
302. HH (C, D, A, B, x [16], 16, 530742520)
     
303. HH (B, C, D, A, x [3], 23, -995338651)
     
304. II (A, B, C, D, x [1], 6, -198630844)
     
305. II (D, A, B, C, x [8], 10, 1126891415)
     
306. II (C, D, A, B, x [15], 15, -1416354905)
     
307. II (B, C, D, A, x [6], 21, -57434055)
     
308. II (A, B, C, D, x [13], 6, 1700485571)
     
309. II (D, A, B, C, x [4], 10, -1894986606)
     
310. II (C, D, A, B, x [11], 15, -1051523)
     
311. II (B, C, D, A, x [2], 21, -2054922799)
     
312. II (A, B, C, D, x [9], 6, 1873313359)
     
313. II (D, A, B, C, x [16], 10, -30611744)
     
314. II (C, D, A, B, x [7], 15, -1560198380)
     
315. II (B, C, D, A, x [14], 21, 1309151649)
     
316. II (A, B, C, D, x [5], 6, -145523070)
     
317. II (D, A, B, C, x [12], 10, -1120210379)
     
318. II (C, D, A, B, x [3], 15, 718787259)
     
319. II (B, C, D, A, x [10], 21, -343485551)
     
320. AA ＝ AA ＋ A
     
321. BB ＝ BB ＋ B
     
322. CC ＝ CC ＋ C
     
323. DD ＝ DD ＋ D
     
324. 
     
325. .子程序 级联, 文本型
     
326. .参数 值1, 整数型
     
327. .参数 值2, 整数型
     
328. .参数 值3, 整数型
     
329. .参数 值4, 整数型
     
330. .局部变量 数据, 字节集
     
331. .局部变量 计数, 整数型
     
332. .局部变量 十六进制文本, 文本型
     
333. .局部变量 返回值, 文本型
     
334. 
     
335. 数据 ＝ 到字节集 (值1) ＋ 到字节集 (值2) ＋ 到字节集 (值3) ＋ 到字节集 (值4)
     
336. 十六进制文本 ＝ “0123456789abcdef”
     
337. 返回值 ＝ “”
     
338. .计次循环首 (16, 计数)
     
339.     返回值 ＝ 返回值 ＋ 取文本中间 (十六进制文本, 右移 (数据 [计数], 4) ＋ 1, 1) ＋ 取文本中间 (十六进制文本, 位与 (数据 [计数], 15) ＋ 1, 1)
     
340. .计次循环尾 ()
     
341. 返回 (返回值)
     
342. 
     
343. .子程序 随机字节集, 字节集
     
344. .参数 长度, 整数型
     
345. .局部变量 返回值, 字节集
     
346. .局部变量 计数, 整数型
     
347. 
     
348. 返回值 ＝ 取空白字节集 (长度)
     
349. .计次循环首 (长度, 计数)
     
350.     返回值 [计数] ＝ 取随机数 (, )
     
351. .计次循环尾 ()
     
352. 返回 (返回值)
     
353. 
     
354. .子程序 取空白, 字节集
     
355. .参数 长度, 整数型
     
356. .参数 置128, 逻辑型, 可空
     
357. .局部变量 返回值, 字节集
     
358. 
     
359. 返回值 ＝ 取空白字节集 (长度)
     
360. .如果真 (置128)
     
361.     返回值 [1] ＝ 128
     
362. .如果真结束
     
363. 返回 (返回值)
     
364. 
     

复制代码

GPIO

uid不错

4面8方

哒哒哒 发表于 2018-9-29 20:55
uid不错

来的早的话你也可以有