纯数值计算实现sha1，MD5，sha256，RC4，HMAC 等等（只用加减乘除和位运算）

落款hMZ

  

子程序名	返回值类型	公开	备 注
binb_sha256
参数名	类 型	参考	可空	数组	备 注
m	整数型
l	整数型
return	整数型

变量名	类 型	静态	数组	备 注
sha256_K	整数型		0
HASH	整数型		0
W	整数型		64
a	整数型
b	整数型
c	整数型
d	整数型
e	整数型
f	整数型
g	整数型
h	整数型
i	整数型
j	整数型
T1	整数型
T2	整数型
tmp	整数型
mlength	整数型

sha256_K ＝ { 1116352408, 1899447441, -1245643825, -373957723, 961987163, 1508970993, -1841331548, -1424204075, -670586216, 310598401, 607225278, 1426881987, 1925078388, -2132889090, -1680079193, -1046744716, -459576895, -272742522, 264347078, 604807628, 770255983, 1249150122, 1555081692, 1996064986, -1740746414, -1473132947, -1341970488, -1084653625, -958395405, -710438585, 113926993, 338241895, 666307205, 773529912, 1294757372, 1396182291, 1695183700, 1986661051, -2117940946, -1838011259, -1564481375, -1474664885, -1035236496, -949202525, -778901479, -694614492, -200395387, 275423344, 430227734, 506948616, 659060556, 883997877, 958139571, 1322822218, 1537002063, 1747873779, 1955562222, 2024104815, -2067236844, -1933114872, -1866530822, -1538233109, -1090935817, -965641998 }
HASH ＝ { 1779033703, -1150833019, 1013904242, -1521486534, 1359893119, -1694144372, 528734635, 1541459225 }
tmp ＝ 左移 (右移 (l ＋ 64, 9), 4) ＋ 16
mlength ＝ 取数组成员数 (m)
如果真 (mlength ＜ tmp)
重定义数组 (m, 真, tmp)
m [右移 (l, 5) ＋ 1] ＝ 位或 (m [右移 (l, 5) ＋ 1], 左移 (128, 24 － l ％ 32))
m [tmp] ＝ l
mlength ＝ 取数组成员数 (m)
变量循环首 (0, mlength, 16, i)
如果真 (i ≥ mlength)
跳出循环 ()

a ＝ HASH [1]
b ＝ HASH [2]
c ＝ HASH [3]
d ＝ HASH [4]
e ＝ HASH [5]
f ＝ HASH [6]
g ＝ HASH [7]
h ＝ HASH [8]
变量循环首 (0, 64, 1, j)
如果真 (j ≥ 64)
跳出循环 ()

如果 (j ＜ 16)
W [j ＋ 1] ＝ m [j ＋ i ＋ 1]
W [j ＋ 1] ＝ safe_add (safe_add (safe_add (sha256_Gamma1256 (W [j － 2 ＋ 1]), W [j － 7 ＋ 1]), sha256_Gamma0256 (W [j － 15 ＋ 1])), W [j － 16 ＋ 1])

T1 ＝ safe_add (safe_add (safe_add (safe_add (h, sha256_Sigma1256 (e)), sha256_Ch (e, f, g)), sha256_K [j ＋ 1]), W [j ＋ 1])
T2 ＝ safe_add (sha256_Sigma0256 (a), sha256_Maj (a, b, c))
h ＝ g
g ＝ f
f ＝ e
e ＝ safe_add (d, T1)
d ＝ c
c ＝ b
b ＝ a
a ＝ safe_add (T1, T2)
变量循环尾 ()
HASH [1] ＝ safe_add (a, HASH [1])
HASH [2] ＝ safe_add (b, HASH [2])
HASH [3] ＝ safe_add (c, HASH [3])
HASH [4] ＝ safe_add (d, HASH [4])
HASH [5] ＝ safe_add (e, HASH [5])
HASH [6] ＝ safe_add (f, HASH [6])
HASH [7] ＝ safe_add (g, HASH [7])
HASH [8] ＝ safe_add (h, HASH [8])
变量循环尾 ()
return ＝ HASH

.版本 2<br /> <br /> .子程序 binb_sha256<br /> .参数 m, 整数型, 数组<br /> .参数 l, 整数型<br /> .参数 return, 整数型, 参考 数组<br /> .局部变量 sha256_K, 整数型, , "0"<br /> .局部变量 HASH, 整数型, , "0"<br /> .局部变量 W, 整数型, , "64"<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 e, 整数型<br /> .局部变量 f, 整数型<br /> .局部变量 g, 整数型<br /> .局部变量 h, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 T1, 整数型<br /> .局部变量 T2, 整数型<br /> .局部变量 tmp, 整数型<br /> .局部变量 mlength, 整数型<br /> <br /> sha256_K ＝ { 1116352408, 1899447441, -1245643825, -373957723, 961987163, 1508970993, -1841331548, -1424204075, -670586216, 310598401, 607225278, 1426881987, 1925078388, -2132889090, -1680079193, -1046744716, -459576895, -272742522, 264347078, 604807628, 770255983, 1249150122, 1555081692, 1996064986, -1740746414, -1473132947, -1341970488, -1084653625, -958395405, -710438585, 113926993, 338241895, 666307205, 773529912, 1294757372, 1396182291, 1695183700, 1986661051, -2117940946, -1838011259, -1564481375, -1474664885, -1035236496, -949202525, -778901479, -694614492, -200395387, 275423344, 430227734, 506948616, 659060556, 883997877, 958139571, 1322822218, 1537002063, 1747873779, 1955562222, 2024104815, -2067236844, -1933114872, -1866530822, -1538233109, -1090935817, -965641998 }<br /> HASH ＝ { 1779033703, -1150833019, 1013904242, -1521486534, 1359893119, -1694144372, 528734635, 1541459225 }<br /> tmp ＝ 左移 (右移 (l ＋ 64, 9), 4) ＋ 16<br /> mlength ＝ 取数组成员数 (m)<br /> .如果真 (mlength ＜ tmp)<br /> 重定义数组 (m, 真, tmp)<br /> .如果真结束<br /> m [右移 (l, 5) ＋ 1] ＝ 位或 (m [右移 (l, 5) ＋ 1], 左移 (128, 24 － l ％ 32))<br /> m [tmp] ＝ l<br /> mlength ＝ 取数组成员数 (m)<br /> <br /> .变量循环首 (0, mlength, 16, i)<br /> .如果真 (i ≥ mlength)<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> a ＝ HASH [1]<br /> b ＝ HASH [2]<br /> c ＝ HASH [3]<br /> d ＝ HASH [4]<br /> e ＝ HASH [5]<br /> f ＝ HASH [6]<br /> g ＝ HASH [7]<br /> h ＝ HASH [8]<br /> .变量循环首 (0, 64, 1, j)<br /> .如果真 (j ≥ 64)<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> .如果 (j ＜ 16)<br /> W [j ＋ 1] ＝ m [j ＋ i ＋ 1]<br /> .否则<br /> W [j ＋ 1] ＝ safe_add (safe_add (safe_add (sha256_Gamma1256 (W [j － 2 ＋ 1]), W [j － 7 ＋ 1]), sha256_Gamma0256 (W [j － 15 ＋ 1])), W [j － 16 ＋ 1])<br /> .如果结束<br /> <br /> T1 ＝ safe_add (safe_add (safe_add (safe_add (h, sha256_Sigma1256 (e)), sha256_Ch (e, f, g)), sha256_K [j ＋ 1]), W [j ＋ 1])<br /> T2 ＝ safe_add (sha256_Sigma0256 (a), sha256_Maj (a, b, c))<br /> <br /> h ＝ g<br /> g ＝ f<br /> f ＝ e<br /> e ＝ safe_add (d, T1)<br /> d ＝ c<br /> c ＝ b<br /> b ＝ a<br /> a ＝ safe_add (T1, T2)<br /> .变量循环尾 ()<br /> HASH [1] ＝ safe_add (a, HASH [1])<br /> HASH [2] ＝ safe_add (b, HASH [2])<br /> HASH [3] ＝ safe_add (c, HASH [3])<br /> HASH [4] ＝ safe_add (d, HASH [4])<br /> HASH [5] ＝ safe_add (e, HASH [5])<br /> HASH [6] ＝ safe_add (f, HASH [6])<br /> HASH [7] ＝ safe_add (g, HASH [7])<br /> HASH [8] ＝ safe_add (h, HASH [8])<br /> .变量循环尾 ()<br /> return ＝ HASH

  

子程序名	返回值类型	公开	备 注
binb_sha1
参数名	类 型	参考	可空	数组	备 注
x	整数型
len	整数型
return	整数型

变量名	类 型	静态	数组	备 注
w	整数型		80
a	整数型
b	整数型
c	整数型
d	整数型
e	整数型
i	整数型
xlength	整数型
olda	整数型
oldb	整数型
oldc	整数型
oldd	整数型
olde	整数型
j	整数型
t	整数型
ret	文本型
tmp	整数型

xlength ＝ 取数组成员数 (x)
tmp ＝ 左移 (右移 (len ＋ 64, 9), 4) ＋ 16
如果真 (xlength ＜ tmp)
重定义数组 (x, 真, tmp)

x [右移 (len, 5) ＋ 1] ＝ 位或 (x [右移 (len, 5) ＋ 1], 左移 (128, 24 － len ％ 32))
x [左移 (右移 (len ＋ 64, 9), 4) ＋ 16] ＝ len
xlength ＝ 取数组成员数 (x)
a ＝ 1732584193
b ＝ -271733879
c ＝ -1732584194
d ＝ 271733878
e ＝ -1009589776
变量循环首 (0, xlength, 16, i)
如果真 (i ≥ xlength)
跳出循环 ()
olda ＝ a
oldb ＝ b
oldc ＝ c
oldd ＝ d
olde ＝ e
变量循环首 (0, 80, 1, j)
如果真 (j ≥ 80)
跳出循环 ()
如果 (j ＜ 16)
w [j ＋ 1] ＝ x [i ＋ j ＋ 1]
' 调试输出 (w [j ＋ 1], j ＋ 1)
w [j ＋ 1] ＝ bit_rol (位异或 (w [j － 3 ＋ 1], w [j － 8 ＋ 1], w [j － 14 ＋ 1], w [j － 16 ＋ 1]), 1)
' 调试输出 (w [j ＋ 1], j ＋ 1)
' w [j ＋ 1] ＝ 0
t ＝ safe_add (safe_add (bit_rol (a, 5), sha1_ft (j, b, c, d)), safe_add (safe_add (e, w [j ＋ 1]), sha1_kt (j)))
e ＝ d
d ＝ c
c ＝ bit_rol (b, 30)
b ＝ a
a ＝ t
变量循环尾 ()
a ＝ safe_add (a, olda)
b ＝ safe_add (b, oldb)
c ＝ safe_add (c, oldc)
d ＝ safe_add (d, oldd)
e ＝ safe_add (e, olde)
变量循环尾 ()
重定义数组 (return, 假, 5)
return [1] ＝ a
return [2] ＝ b
return [3] ＝ c
return [4] ＝ d
return [5] ＝ e

.版本 2<br /> <br /> .子程序 binb_sha1<br /> .参数 x, 整数型, 数组<br /> .参数 len, 整数型<br /> .参数 return, 整数型, 参考 数组<br /> .局部变量 w, 整数型, , "80"<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 e, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 xlength, 整数型<br /> .局部变量 olda, 整数型<br /> .局部变量 oldb, 整数型<br /> .局部变量 oldc, 整数型<br /> .局部变量 oldd, 整数型<br /> .局部变量 olde, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 t, 整数型<br /> .局部变量 ret, 文本型<br /> .局部变量 tmp, 整数型<br /> <br /> xlength ＝ 取数组成员数 (x)<br /> tmp ＝ 左移 (右移 (len ＋ 64, 9), 4) ＋ 16<br /> <br /> .如果真 (xlength ＜ tmp)<br /> 重定义数组 (x, 真, tmp)<br /> .如果真结束<br /> <br /> x [右移 (len, 5) ＋ 1] ＝ 位或 (x [右移 (len, 5) ＋ 1], 左移 (128, 24 － len ％ 32))<br /> x [左移 (右移 (len ＋ 64, 9), 4) ＋ 16] ＝ len<br /> xlength ＝ 取数组成员数 (x)<br /> a ＝ 1732584193<br /> b ＝ -271733879<br /> c ＝ -1732584194<br /> d ＝ 271733878<br /> e ＝ -1009589776<br /> <br /> .变量循环首 (0, xlength, 16, i)<br /> .如果真 (i ≥ xlength)<br /> 跳出循环 ()<br /> .如果真结束<br /> olda ＝ a<br /> oldb ＝ b<br /> oldc ＝ c<br /> oldd ＝ d<br /> olde ＝ e<br /> .变量循环首 (0, 80, 1, j)<br /> .如果真 (j ≥ 80)<br /> 跳出循环 ()<br /> .如果真结束<br /> .如果 (j ＜ 16)<br /> w [j ＋ 1] ＝ x [i ＋ j ＋ 1]<br /> ' 调试输出 (w [j ＋ 1], j ＋ 1)<br /> .否则<br /> w [j ＋ 1] ＝ bit_rol (位异或 (w [j － 3 ＋ 1], w [j － 8 ＋ 1], w [j － 14 ＋ 1], w [j － 16 ＋ 1]), 1)<br /> ' 调试输出 (w [j ＋ 1], j ＋ 1)<br /> .如果结束<br /> ' w [j ＋ 1] ＝ 0<br /> t ＝ safe_add (safe_add (bit_rol (a, 5), sha1_ft (j, b, c, d)), safe_add (safe_add (e, w [j ＋ 1]), sha1_kt (j)))<br /> e ＝ d<br /> d ＝ c<br /> c ＝ bit_rol (b, 30)<br /> b ＝ a<br /> a ＝ t<br /> <br /> .变量循环尾 ()<br /> <br /> <br /> a ＝ safe_add (a, olda)<br /> b ＝ safe_add (b, oldb)<br /> c ＝ safe_add (c, oldc)<br /> d ＝ safe_add (d, oldd)<br /> e ＝ safe_add (e, olde)<br /> <br /> .变量循环尾 ()<br /> 重定义数组 (return, 假, 5)<br /> return [1] ＝ a<br /> return [2] ＝ b<br /> return [3] ＝ c<br /> return [4] ＝ d<br /> return [5] ＝ e

这些代码翻译自js和php的源码，部分js源码在常量内
经测试，取MD5和sha1的速度是调用advapi32.dll  API的4倍
b64_hmac_sha1 和 b64_hmac_sha256 是很多开发者平台API的签名算法，以前基本上都是靠js对象方法来实现，效率极低，现在直接用数学方法计算后，效率和兼容性方面都有大大的提高

追梦11177012

前人栽树，后人乘凉

wujinghe

前人栽树，后人乘凉

Send

表示算的 并不准确

police0909

速度怎么样啊

police0909

速度怎么样啊

banik79754

支持，膜拜了~

songli2012

感谢分享

一曲长歌入冬流

#在这里快速回复##在这里快速回复##在这里快速回复#

LIUmmd

前人栽树，后人乘凉

bianyuan456

感谢分享