这个用易语言要怎么写？ - 精易论坛

子程序名	返回值类型	公开	备注
取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	正则表达式支持库

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

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

基值＝ 5381
计数＝ 0
长度＝取文本长度 (skey)

判断循环首 (计数＜长度)

基值＝基值＋左移 (基值, 5) ＋取代码 (skey, 计数＋ 1)

计数＝计数＋ 1

判断循环尾 ()
结果＝位与 (基值, 2147483647)
返回 (到文本 (结果))

[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;

}