|
发表于 2013-10-25 13:21:05
|
显示全部楼层
四川省南充市
[e]
.版本 2
.程序集 窗口程序集1
.子程序 hash, 文本型
.参数 qq, 文本型
.参数 ptwebqq, 文本型
.局部变量 a, 类_脚本组件
a.执行 (#常量1)
返回 (a.运行 (“hash”, qq, ptwebqq))
.子程序 _按钮1_被单击
信息框 (hash (“453234222”, “feiiwnei”), 0, ) ' 这里传递两个参数 自己QQ号和登录后的 ptwebqq
[/e]
常量1 内容如下- function hash(w, H) {
- w += "";
- var L = [];
- L[0] = w >> 24 & 255;
- L[1] = w >> 16 & 255;
- L[2] = w >> 8 & 255;
- L[3] = w & 255;
- for (var T = [], V = 0; V < H.length; ++V) T.push(H.charCodeAt(V));
- V = [];
- for (V.push(new u(0, T.length - 1)); V.length > 0;) {
- var Q = V.pop();
- if (!(Q.s >= Q.e || Q.s < 0 || Q.e >= T.length)) if (Q.s + 1 == Q.e) {
- if (T[Q.s] > T[Q.e]) {
- var Z = T[Q.s];
- T[Q.s] = T[Q.e];
- T[Q.e] = Z
- }
- } else {
- Z = Q.s;
- for (var U = Q.e, ba = T[Q.s]; Q.s < Q.e;) {
- for (; Q.s < Q.e && T[Q.e] >= ba;) {
- Q.e--;
- L[0] = L[0] + 3 & 255
- }
- if (Q.s < Q.e) {
- T[Q.s] = T[Q.e];
- Q.s++;
- L[1] = L[1] * 13 + 43 & 255
- }
- for (; Q.s < Q.e && T[Q.s] <= ba;) {
- Q.s++;
- L[2] = L[2] - 3 & 255
- }
- if (Q.s < Q.e) {
- T[Q.e] = T[Q.s];
- Q.e--;
- L[3] = (L[0] ^ L[1] ^ L[2] ^ L[3] + 1) & 255
- }
- }
- T[Q.s] = ba;
- V.push(new u(Z, Q.s - 1));
- V.push(new u(Q.s + 1, U))
- }
- }
- T = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"];
- V = "";
- for (Q =
- 0; Q < L.length; Q++) {
- V += T[L[Q] >> 4 & 15];
- V += T[L[Q] & 15]
- }
- return V
- }
- function u(w, H) {
- this.s = w || 0;
- this.e = H || 0
- }
复制代码
hash.zip
(140.44 KB, 下载次数: 0)
|
|