|
发表于 2013-7-27 10:57:06
|
显示全部楼层
广东省佛山市
代码:
[e]
.版本 2
.子程序 Qweb_取hash, 文本型, 公开
.参数 qq, 文本型
.参数 ptw, 文本型
.局部变量 密码, 文本型
.局部变量 a, 文本型
.局部变量 j, 文本型, , "0"
.局部变量 s, 文本型
.局部变量 length, 整数型
.局部变量 d, 整数型
.局部变量 c, 文本型, , "16"
s = “”
a = ptw + “password error”
length = 取文本长度 (a)
c = { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }
.判断循环首 (真)
.如果 (取文本长度 (s) ≤ length)
s = s + qq
.如果真 (取文本长度 (s) = length)
跳出循环 ()
.如果真结束
.否则
s = 取文本左边 (s, length)
跳出循环 ()
.如果结束
.判断循环尾 ()
.判断循环首 (d < length)
d = d + 1
加入成员 (j, 到文本 (位异或 (取代码 (s, d), 取代码 (a, d))))
.判断循环尾 ()
d = 0
s = “”
.判断循环首 (d < 取数组成员数 (j))
d = d + 1
s = s + c [位与 (右移 (到整数 (j [d]), 4), 15) + 1]
s = s + c [位与 (到整数 (j [d]), 15) + 1]
.判断循环尾 ()
清除数组 (j)
清除数组 (c)
返回 (s)
[/e] |
|