易语言SHA1计算模块纯核心库算法源码 - 不调用DLL和其他支持库实现实现字节集SHA1计算

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
15. 输出调试文本 (字节集_取SHA1 (到字节集 (“Hello World!”), 真))
    
16. 
    
17. 
    
18. .子程序 字节集_取SHA1, 文本型, 公开
    
19. .参数 数据, 字节集
    
20. .参数 大写, 逻辑型, 可空
    
21. .局部变量 容器, 整数型, , "0"
    
22. .局部变量 位置, 整数型
    
23. .局部变量 字长, 整数型
    
24. .局部变量 容器2, 整数型, , "80"
    
25. .局部变量 a, 整数型
    
26. .局部变量 b, 整数型
    
27. .局部变量 c, 整数型
    
28. .局部变量 d, 整数型
    
29. .局部变量 e, 整数型
    
30. .局部变量 成员数, 整数型
    
31. .局部变量 旧a, 整数型
    
32. .局部变量 旧b, 整数型
    
33. .局部变量 旧c, 整数型
    
34. .局部变量 旧d, 整数型
    
35. .局部变量 旧e, 整数型
    
36. .局部变量 位置2, 整数型
    
37. .局部变量 t, 整数型
    
38. .局部变量 返回, 整数型, , "0"
    
39. .局部变量 临时, 整数型
    
40. 
    
41. 临时 ＝ 1
    
42. 字长 ＝ 取字节集长度 (数据)
    
43. 成员数 ＝ 右移 (字长, 2)
    
44. 重定义数组 (容器, 假, 0)
    
45. .循环判断首 ()
    
46.     加入成员 (容器, 大小端转换 (取字节集数据 (数据, 3, 临时)))
    
47. .循环判断尾 (临时 ≠ -1)
    
48. 字长 ＝ 左移 (字长, 3)
    
49. 临时 ＝ 左移 (右移 (字长 ＋ 64, 9), 4) ＋ 16
    
50. .如果真 (成员数 ＜ 临时)
    
51.     重定义数组 (容器, 真, 临时)
    
52. .如果真结束
    
53. 容器 [右移 (字长, 5) ＋ 1] ＝ 位或 (容器 [右移 (字长, 5) ＋ 1], 左移 (128, 位与 (24 － 字长, 31)))
    
54. 容器 [左移 (右移 (字长 ＋ 64, 9), 4) ＋ 16] ＝ 字长
    
55. 成员数 ＝ 取数组成员数 (容器)
    
56. a ＝ 1732584193
    
57. b ＝ -271733879
    
58. c ＝ -1732584194
    
59. d ＝ 271733878
    
60. e ＝ -1009589776
    
61. .变量循环首 (0, 成员数, 16, 位置)
    
62.     .如果真 (位置 ≥ 成员数)
    
63.         跳出循环 ()
    
64.     .如果真结束
    
65.     旧a ＝ a
    
66.     旧b ＝ b
    
67.     旧c ＝ c
    
68.     旧d ＝ d
    
69.     旧e ＝ e
    
70.     .变量循环首 (0, 80, 1, 位置2)
    
71.         .如果真 (位置2 ≥ 80)
    
72.             跳出循环 ()
    
73.         .如果真结束
    
74.         .如果 (位置2 ＜ 16)
    
75.             容器2 [位置2 ＋ 1] ＝ 容器 [位置 ＋ 位置2 ＋ 1]
    
76.         .否则
    
77.             容器2 [位置2 ＋ 1] ＝ 循环左移 (位异或 (容器2 [位置2 － 3 ＋ 1], 容器2 [位置2 － 8 ＋ 1], 容器2 [位置2 － 14 ＋ 1], 容器2 [位置2 － 16 ＋ 1]), 1)
    
78.         .如果结束
    
79.         t ＝ 循环左移 (a, 5) ＋ sha1_ft (位置2, b, c, d) ＋ e ＋ 容器2 [位置2 ＋ 1] ＋ sha1_kt (位置2)
    
80.         e ＝ d
    
81.         d ＝ c
    
82.         c ＝ 循环左移 (b, 30)
    
83.         b ＝ a
    
84.         a ＝ t
    
85. 
    
86.     .变量循环尾 ()
    
87.     a ＝ a ＋ 旧a
    
88.     b ＝ b ＋ 旧b
    
89.     c ＝ c ＋ 旧c
    
90.     d ＝ d ＋ 旧d
    
91.     e ＝ e ＋ 旧e
    
92. .变量循环尾 ()
    
93. 重定义数组 (返回, 假, 5)
    
94. 返回 [1] ＝ 大小端转换 (a)
    
95. 返回 [2] ＝ 大小端转换 (b)
    
96. 返回 [3] ＝ 大小端转换 (c)
    
97. 返回 [4] ＝ 大小端转换 (d)
    
98. 返回 [5] ＝ 大小端转换 (e)
    
99. 返回 (字节集到十六进制 (到字节集 (返回), 大写))
    
100. 
     
101. 
     
102. .子程序 字节集到十六进制, 文本型
     
103. .参数 输入, 字节集
     
104. .参数 大写, 逻辑型, 可空
     
105. .局部变量 字节集长度, 整数型
     
106. .局部变量 返回值, 文本型
     
107. .局部变量 计数, 整数型
     
108. .局部变量 十六进制文本, 文本型
     
109. 
     
110. 字节集长度 ＝ 取字节集长度 (输入)
     
111. .如果 (大写)
     
112.     十六进制文本 ＝ “0123456789ABCDEF”
     
113. .否则
     
114.     十六进制文本 ＝ “0123456789abcdef”
     
115. .如果结束
     
116. .计次循环首 (字节集长度, 计数)
     
117.     返回值 ＝ 返回值 ＋ 取文本中间 (十六进制文本, 右移 (输入 [计数], 4) ＋ 1, 1) ＋ 取文本中间 (十六进制文本, 位与 (输入 [计数], 15) ＋ 1, 1)
     
118. .计次循环尾 ()
     
119. 返回 (返回值)
     
120. 
     
121. 
     
122. .子程序 sha1_kt, 整数型
     
123. .参数 t, 整数型
     
124. 
     
125. .判断开始 (t ＜ 20)
     
126.     返回 (1518500249)
     
127. .判断 (t ＜ 40)
     
128.     返回 (1859775393)
     
129. .判断 (t ＜ 60)
     
130.     返回 (-1894007588)
     
131. .默认
     
132.     返回 (-899497514)
     
133. .判断结束
     
134. 
     
135. 
     
136. .子程序 sha1_ft, 整数型
     
137. .参数 t, 整数型
     
138. .参数 b, 整数型
     
139. .参数 c, 整数型
     
140. .参数 d, 整数型
     
141. 
     
142. .判断开始 (t ＜ 20)
     
143.     返回 (位或 (位与 (b, c), 位与 (位取反 (b), d)))
     
144. .判断 (t ＜ 40)
     
145.     返回 (位异或 (b, c, d))
     
146. .判断 (t ＜ 60)
     
147.     返回 (位或 (位与 (b, c), 位与 (b, d), 位与 (c, d)))
     
148. .默认
     
149. 
     
150. .判断结束
     
151. 返回 (位异或 (b, c, d))
     
152. 
     
153. 
     
154. 
     
155. .子程序 循环左移, 整数型
     
156. .参数 值, 整数型
     
157. .参数 位数, 字节型
     
158. 
     
159. 
     
160. 置入代码 ({ 139, 69, 8, 138, 77, 12, 211, 192, 201, 194, 8, 0 })
     
161. ' mov eax,[ebp+8]
     
162. ' mov cl,[ebp+12]
     
163. ' rol eax,cl
     
164. ' leave
     
165. ' retn 8
     
166. 返回 (0)
     
167. 
     
168. .子程序 大小端转换, 整数型
     
169. .参数 整数, 整数型
     
170. 
     
171. 置入代码 ({ 139, 69, 8, 134, 196, 193, 192, 16, 134, 196, 201, 194, 4, 0 })
     
172. ' mov eax,[ebp+8]
     
173. ' xchg al,ah
     
174. ' rol eax,16
     
175. ' xchg al,ah
     
176. ' leave
     
177. ' retn 4
     
178. 返回 (0)
     
179. 
     

复制代码

lyp82nlf

看不动

1心1亿

谢谢分享一下