关于MD5算法,求高手指点错误

是要不要骑牛您

今天试着用易语言写了下MD5的处理过程,发现够累的,还有不少问题,输出总是不对,和标准不同,这里特请高手指点迷津

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 MD5
   
5. .程序集变量 A, 整数型
   
6. .程序集变量 B, 整数型
   
7. .程序集变量 C, 整数型
   
8. .程序集变量 D, 整数型
   
9. 
   
10. .子程序 MD5_初始化
    
11. 
    
12. A ＝ 1732584193
    
13. B ＝ 2309737967
    
14. C ＝ 4275878552
    
15. D ＝ 1985229328
    
16. 调试输出 (A, B, C, D)
    
17. ' MD5 ("") = d41d8cd98f00b204e9800998ecf8427e
    
18. ' MD5 ("a") = 0cc175b9c0f1b6a831c399e269772661
    
19. ' MD5 ("abc") = 900150983cd24fb0d6963f7d28e17f72
    
20. 
    
21. 
    
22. 
    
23. .子程序 F, 整数型, , F(X,Y,Z)=(X∧Y)∨((~X)∧Z)
    
24. .参数 X, 整数型
    
25. .参数 Y, 整数型
    
26. .参数 Z, 整数型
    
27. 
    
28. 返回 (位或 (位与 (X, Y), 位与 (位取反 (X), Z)))
    
29. 
    
30. 
    
31. .子程序 G, 整数型, , G(X,Y,Z)=(X∧Z)∨(Y∧(~Z))
    
32. .参数 X, 整数型
    
33. .参数 Y, 整数型
    
34. .参数 Z, 整数型
    
35. 
    
36. 返回 (位或 (位与 (X, Z), 位与 (Y, 位取反 (Z))))
    
37. 
    
38. 
    
39. .子程序 H, 整数型, , H(X,Y,Z)=X⊕Y⊕Z
    
40. .参数 X, 整数型
    
41. .参数 Y, 整数型
    
42. .参数 Z, 整数型
    
43. 
    
44. 返回 (位异或 (位异或 (X, Y), Z))
    
45. 
    
46. 
    
47. .子程序 I, 整数型, , I(X,Y,Z)=Y⊕(X∨( Z))
    
48. .参数 X, 整数型
    
49. .参数 Y, 整数型
    
50. .参数 Z, 整数型
    
51. 
    
52. 返回 (位异或 (Y, 位或 (X, 位取反 (Z))))
    
53. 
    
54. 
    
55. .子程序 FF, , , FF(a,b,c,d,Mj,s,ti)表示a=b+((a+F(b,c,d)+Mj+ti)<<<s)
    
56. .参数 a, 整数型, 参考
    
57. .参数 b, 整数型
    
58. .参数 c, 整数型
    
59. .参数 d, 整数型
    
60. .参数 Mj, 整数型
    
61. .参数 s, 整数型
    
62. .参数 ti, 整数型
    
63. 
    
64. a ＝ b ＋ RL (a ＋ F (b, c, d) ＋ Mj ＋ ti, s)
    
65. 
    
66. 
    
67. .子程序 GG, , , GG(a,b,c,d,Mj,s,ti)表示a=b+((a+G(b,c,d)+Mj+ti)<<<s)
    
68. .参数 a, 整数型, 参考
    
69. .参数 b, 整数型
    
70. .参数 c, 整数型
    
71. .参数 d, 整数型
    
72. .参数 Mj, 整数型
    
73. .参数 s, 整数型
    
74. .参数 ti, 整数型
    
75. 
    
76. a ＝ b ＋ RL (a ＋ G (b, c, d) ＋ Mj ＋ ti, s)
    
77. 
    
78. 
    
79. .子程序 HH, , , HH(a,b,c,d,Mj,s,ti)表示a=b+((a+H(b,c,d)+Mj+ti)<<<s)
    
80. .参数 a, 整数型, 参考
    
81. .参数 b, 整数型
    
82. .参数 c, 整数型
    
83. .参数 d, 整数型
    
84. .参数 Mj, 整数型
    
85. .参数 s, 整数型
    
86. .参数 ti, 整数型
    
87. 
    
88. a ＝ b ＋ RL (a ＋ H (b, c, d) ＋ Mj ＋ ti, s)
    
89. 
    
90. 
    
91. .子程序 II, , , II(a,b,c,d,Mj,s,ti)表示a=b+((a+I(b,c,d)+Mj+ti)<<<s)
    
92. .参数 a, 整数型, 参考
    
93. .参数 b, 整数型
    
94. .参数 c, 整数型
    
95. .参数 d, 整数型
    
96. .参数 Mj, 整数型
    
97. .参数 s, 整数型
    
98. .参数 ti, 整数型
    
99. 
    
100. a ＝ b ＋ RL (a ＋ I (b, c, d) ＋ Mj ＋ ti, s)
     
101. 
     
102. 
     
103. .子程序 RL, 整数型, , x向左循环移y位
     
104. .参数 x, 整数型
     
105. .参数 y, 整数型
     
106. 
     
107. 返回 (位或 (左移 (x, y), 右移 (x, 32 － y)))
     
108. 
     
109. 
     
110. .子程序 PP, 整数型, , 将x高低位互换
     
111. .参数 x, 整数型
     
112. 
     
113. 返回 (位或 (位或 (位或 (左移 (x, 24), 位与 (左移 (x, 8), 16711680)), 位与 (右移 (x, 8), 65280)), 右移 (x, 24)))
     
114. 
     
115. 
     
116. .子程序 MD5_轮运算, , , MD5核心算法,共64轮
     
117. .参数 a, 整数型, 参考
     
118. .参数 b, 整数型, 参考
     
119. .参数 c, 整数型, 参考
     
120. .参数 d, 整数型, 参考
     
121. .参数 x, 整数型, 数组
     
122. .局部变量 aa, 整数型
     
123. .局部变量 bb, 整数型
     
124. .局部变量 cc, 整数型
     
125. .局部变量 dd, 整数型
     
126. 
     
127. aa ＝ a
     
128. bb ＝ b
     
129. cc ＝ c
     
130. dd ＝ d
     
131. 
     
132. FF (a, b, c, d, x [1], 7, 3614090360)
     
133. FF (d, a, b, c, x [2], 12, 3905402710)
     
134. FF (c, d, a, b, x [3], 17, 606105819)
     
135. FF (b, c, d, a, x [4], 22, 3250441966)
     
136. 
     
137. FF (a, b, c, d, x [5], 7, 4118548399)
     
138. FF (d, a, b, c, x [6], 12, 1200080426)
     
139. FF (c, d, a, b, x [7], 17, 2821735955)
     
140. FF (b, c, d, a, x [8], 22, 4249261313)
     
141. 
     
142. FF (a, b, c, d, x [9], 7, 1770035416)
     
143. FF (d, a, b, c, x [10], 12, 2336552879)
     
144. FF (c, d, a, b, x [11], 17, 4294925233)
     
145. FF (b, c, d, a, x [12], 22, 2304563134)
     
146. 
     
147. FF (a, b, c, d, x [13], 7, 1804603682)
     
148. FF (d, a, b, c, x [14], 12, 4254626195)
     
149. FF (c, d, a, b, x [15], 17, 2792965006)
     
150. FF (b, c, d, a, x [16], 22, 1236535329)
     
151. 
     
152. GG (a, b, c, d, x [2], 5, 4129170786)
     
153. GG (d, a, b, c, x [7], 9, 3225465664)
     
154. GG (c, d, a, b, x [12], 14, 643717713)
     
155. GG (b, c, d, a, x [1], 20, 3921069994)
     
156. 
     
157. GG (a, b, c, d, x [6], 5, 3593408605)
     
158. GG (d, a, b, c, x [11], 9, 38016083)
     
159. GG (c, d, a, b, x [16], 14, 3634488961)
     
160. GG (b, c, d, a, x [5], 20, 3889429448)
     
161. 
     
162. GG (a, b, c, d, x [10], 5, 568446438)
     
163. GG (d, a, b, c, x [15], 9, 3275163606)
     
164. GG (c, d, a, b, x [4], 14, 4107603335)
     
165. GG (b, c, d, a, x [9], 20, 1163531501)
     
166. 
     
167. GG (a, b, c, d, x [14], 5, 2850285829)
     
168. GG (d, a, b, c, x [3], 9, 4243563512)
     
169. GG (c, d, a, b, x [8], 14, 1735328473)
     
170. GG (b, c, d, a, x [13], 20, 2368359562)
     
171. 
     
172. HH (a, b, c, d, x [6], 4, 4294588738)
     
173. HH (d, a, b, c, x [9], 11, 2272392833)
     
174. HH (c, d, a, b, x [12], 16, 1839030562)
     
175. HH (b, c, d, a, x [15], 23, 4259657740)
     
176. 
     
177. HH (a, b, c, d, x [2], 4, 2763975236)
     
178. HH (d, a, b, c, x [5], 11, 1272893353)
     
179. HH (c, d, a, b, x [8], 16, 4139469664)
     
180. HH (b, c, d, a, x [11], 23, 3200236656)
     
181. 
     
182. HH (a, b, c, d, x [14], 4, 681279174)
     
183. HH (d, a, b, c, x [1], 11, 3936430074)
     
184. HH (c, d, a, b, x [4], 16, 3572445317)
     
185. HH (b, c, d, a, x [7], 23, 76029189)
     
186. 
     
187. HH (a, b, c, d, x [10], 4, 3654602809)
     
188. HH (d, a, b, c, x [13], 11, 3873151461)
     
189. HH (c, d, a, b, x [16], 16, 530742520)
     
190. HH (b, c, d, a, x [3], 23, 3299628645)
     
191. 
     
192. II (a, b, c, d, x [1], 6, 4096336452)
     
193. II (d, a, b, c, x [8], 10, 1126891415)
     
194. II (c, d, a, b, x [15], 15, 2878612391)
     
195. II (b, c, d, a, x [6], 21, 4237533241)
     
196. 
     
197. II (a, b, c, d, x [13], 6, 1700485571)
     
198. II (d, a, b, c, x [4], 10, 2399980690)
     
199. II (c, d, a, b, x [11], 15, 4293915773)
     
200. II (b, c, d, a, x [2], 21, 2240044497)
     
201. 
     
202. II (a, b, c, d, x [9], 6, 1873313359)
     
203. II (d, a, b, c, x [16], 10, 4264355552)
     
204. II (c, d, a, b, x [7], 15, 2734768916)
     
205. II (b, c, d, a, x [14], 21, 1309151649)
     
206. 
     
207. II (a, b, c, d, x [5], 6, 4149444226)
     
208. II (d, a, b, c, x [12], 10, 3174756917)
     
209. II (c, d, a, b, x [3], 15, 718787259)
     
210. II (b, c, d, a, x [10], 21, 3951481745)
     
211. 
     
212. a ＝ aa ＋ a
     
213. b ＝ bb ＋ b
     
214. c ＝ cc ＋ c
     
215. d ＝ dd ＋ d
     
216. 
     
217. 
     
218. .子程序 MD5_计算, , 公开
     
219. .参数 参数, 字节集
     
220. .局部变量 len, 长整数型
     
221. .局部变量 j, 整数型
     
222. .局部变量 tmp, 字节集
     
223. .局部变量 x, 整数型, , "16"
     
224. .局部变量 k, 整数型
     
225. .局部变量 aa, 整数型
     
226. .局部变量 bb, 整数型
     
227. .局部变量 cc, 整数型
     
228. .局部变量 dd, 整数型
     
229. .局部变量 临时, 整数型
     
230. .局部变量 ch, 字节型
     
231. 
     
232. aa ＝ A
     
233. bb ＝ B
     
234. cc ＝ C
     
235. dd ＝ D
     
236. len ＝ 取字节集长度 (参数)
     
237. j ＝ len ％ 64
     
238. .如果真 (j ≠ 56)
     
239. .如果 (j ＜ 56)
     
240. tmp ＝ 取空白字节集 (56 － j)
     
241. .否则
     
242. tmp ＝ 取空白字节集 (64 ＋ 56 － j)
     
243. .如果结束
     
244. tmp [1] ＝ 128
     
245. 参数 ＝ 参数 ＋ tmp
     
246. .如果真结束
     
247. tmp ＝ 到字节集 (len)
     
248. ch ＝ tmp [1]
     
249. .计次循环首 (7, j)
     
250. tmp [1] ＝ tmp [8 － j ＋ 1]
     
251. .计次循环尾 ()
     
252. tmp [8] ＝ ch
     
253. 参数 ＝ 参数 ＋ tmp
     
254. 临时 ＝ 打开内存文件 ()
     
255. 写出字节集 (临时, 参数)
     
256. 移到文件首 (临时)
     
257. .变量循环首 (0, len ＼ 64, 1, )
     
258. .计次循环首 (16, j)
     
259. 读入数据 (临时, ch)
     
260. x [j] ＝ 左移 (ch, 24)
     
261. 读入数据 (临时, ch)
     
262. x [j] ＝ 位或 (x [j], 左移 (ch, 16))
     
263. 读入数据 (临时, ch)
     
264. x [j] ＝ 位或 (x [j], 左移 (ch, 8))
     
265. 读入数据 (临时, ch)
     
266. x [j] ＝ 位或 (x [j], ch)
     
267. ' 读入数据 (临时, x [j])
     
268. .计次循环尾 ()
     
269. MD5_轮运算 (aa, bb, cc, dd, x)
     
270. .变量循环尾 ()
     
271. 调试输出 (取十六进制文本 (aa), 取十六进制文本 (bb), 取十六进制文本 (cc), 取十六进制文本 (dd))
     
272. 关闭文件 (临时)
     

复制代码

小宇88

沙发,路过.{:3_228:}

电工涛哥

坐椅子 、。。。。。。。。。。。

电工涛哥

再来一次 嘻嘻嘻嘻

电工涛哥

再来一次 嘻嘻嘻嘻

电工涛哥

再来一次 嘻嘻嘻嘻