这个用易语言要怎么写？

youyuan18

  Q.getToken = function() {
    var str = Q.getCookie('p_skey') || '',
      hash = 5381;
    for (var i = 0, len = str.length; i < len; ++i) {
      hash += (hash << 5) + str.charCodeAt(i);
    }
    return hash & 0x7fffffff;
  };
只知道要打赏多少精币，有大佬解答再加吧

Wod

Wod 发表于 2024-7-10 16:51
这个是完整的易语言和PHP方法。

[e=1].版本 2

不知道为啥，注释给我转换成链接了。

youyuan18

.版本 2 .支持库 RegEx  .子程序 取g_tk, 文本型, 公开, 取g_tk .参数 str, 文本型 .局部变量 hash, 整数型 .局部变量 i, 整数型 .局部变量 a, 正则表达式 .局部变量 jg, 搜索结果, , "0" .局部变量 b, 文本型 .局部变量 结果, 整数型 .局部变量 转换数据, 整数型  a.创建 (“skey=(.*?);”, ) jg ＝ a.搜索全部 (str) .如果真 (取数组成员数 (jg) ≠ 0)     b ＝ jg [1].取子匹配文本 (str, 1, )     输出调试文本 (“skey值：” ＋ b) .如果真结束 hash ＝ 5381 .变量循环首 (1, 取文本长度 (b), 1, i)     hash ＝ hash ＋ hash × 求次方 (2, 5) ＋ 取字节集数据 (编码_Ansi到Unicode (取文本中间 (b, i, 1)), 3, ) .变量循环尾 () 返回 (StrToIntEx (“0x” ＋ “7fffffff”, 1, 结果))

youyuan18

  

子程序名	返回值类型	公开	备 注
取g_tk	文本型		取g_tk
参数名	类 型	参考	可空	数组	备 注
str	文本型

变量名	类 型	静态	数组	备 注
hash	整数型
i	整数型
a	正则表达式
jg	搜索结果		0
b	文本型
结果	整数型
转换数据	整数型

a.创建 (“skey=(.*?);”, )
jg ＝ a.搜索全部 (str)
如果真 (取数组成员数 (jg) ≠ 0)
b ＝ jg [1].取子匹配文本 (str, 1, )
输出调试文本 (“skey值：” ＋ b)
hash ＝ 5381
变量循环首 (1, 取文本长度 (b), 1, i)
hash ＝ hash ＋ hash × 求次方 (2, 5) ＋ 取字节集数据 (编码_Ansi到Unicode (取文本中间 (b, i, 1)), 3, )
变量循环尾 ()
返回 (StrToIntEx (“0x” ＋ “7fffffff”, 1, 结果))

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .子程序 取g_tk, 文本型, 公开, 取g_tk<br /> .参数 str, 文本型<br /> .局部变量 hash, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 a, 正则表达式<br /> .局部变量 jg, 搜索结果, , "0"<br /> .局部变量 b, 文本型<br /> .局部变量 结果, 整数型<br /> .局部变量 转换数据, 整数型<br /> <br /> a.创建 (“skey=(.*?);”, )<br /> jg ＝ a.搜索全部 (str)<br /> .如果真 (取数组成员数 (jg) ≠ 0)<br />     b ＝ jg [1].取子匹配文本 (str, 1, )<br />     输出调试文本 (“skey值：” ＋ b)<br /> .如果真结束<br /> hash ＝ 5381<br /> .变量循环首 (1, 取文本长度 (b), 1, i)<br />     hash ＝ hash ＋ hash × 求次方 (2, 5) ＋ 取字节集数据 (编码_Ansi到Unicode (取文本中间 (b, i, 1)), 3, )<br /> .变量循环尾 ()<br /> 返回 (StrToIntEx (“0x” ＋ “7fffffff”, 1, 结果))

自己找到答案了

剧终0616

youyuan18 发表于 2024-7-10 14:09
[e=1].版本 2
.支持库 RegEx

这个和你的JS不一样。。你的JS还有一个取cookie的函数，应该也在这个Q对象里面！

youyuan18

剧终0616 发表于 2024-7-10 14:51
这个和你的JS不一样。。你的JS还有一个取cookie的函数，应该也在这个Q对象里面！ ...

返回 (到文本 (位与 (hash, 结果)))
但是少了个pt_oauth_token
这个不知道怎么来的

Wod

这个是完整的易语言和PHP方法。

  

子程序名	返回值类型	公开	备 注
计算G_tk	文本型
参数名	类 型	参考	可空	数组	备 注
skey	文本型

变量名	类 型	静态	数组	备 注
基值	整数型
计数	整数型
长度	整数型
结果	整数型

基值 ＝ 5381
计数 ＝ 0
长度 ＝ 取文本长度 (skey)
判断循环首 (计数 ＜ 长度)
基值 ＝ 基值 ＋ 左移 (基值, 5) ＋ 取代码 (skey, 计数 ＋ 1)
计数 ＝ 计数 ＋ 1
判断循环尾 ()
结果 ＝ 位与 (基值, 2147483647)
返回 (到文本 (结果))

.版本 2<br /> <br /> .子程序 计算G_tk, 文本型, 公开<br /> .参数 skey, 文本型<br /> .局部变量 基值, 整数型<br /> .局部变量 计数, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> 基值 ＝ 5381<br /> 计数 ＝ 0<br /> 长度 ＝ 取文本长度 (skey)<br /> .判断循环首 (计数 ＜ 长度)<br />     基值 ＝ 基值 ＋ 左移 (基值, 5) ＋ 取代码 (skey, 计数 ＋ 1)<br />     计数 ＝ 计数 ＋ 1<br /> .判断循环尾 ()<br /> 结果 ＝ 位与 (基值, 2147483647)<br /> 返回 (到文本 (结果))

[PHP] 纯文本查看 复制代码

/**
 * QQ相关加密方法
 *
 * @param $skey
 * @Return int
 */
function Get_G_tk($skey)
{
    $arskey = str_split($skey);
    $Base = 5381;
    $count = 0;
    $length = strlen($skey);
    while ($count < $length) {
        $Base = $Base + ($Base<<5)+ord($arskey[$count]);
        $count++;
    }
    $result = $Base&2147483647;
    return $result;
}