易语言代码支付接口sign计算

.版本 2
.支持库 dp1

.子程序 sign, 文本型
.参数 param, 文本型
.参数 key, 文本型
.局部变量 signpars, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 k, 文本型
.局部变量 v, 文本型
.局部变量 sign, 文本型

分割 ＝ 分割文本 (param, “&”, )
数组_排序 (分割, 0, )
.计次循环首 (取数组成员数 (分割), x)
    k ＝ 文本_取左边 (分割 [x], “=”, , )
    v ＝ 文本_取右边 (分割 [x], “=”, , )
    .如果真 (k ≠ “sign” 且 v ≠ “”)
        .如果 (x ＝ 取数组成员数 (分割))
            signpars ＝ signpars ＋ k ＋ “=” ＋ v
        .否则
            signpars ＝ signpars ＋ k ＋ “=” ＋ v ＋ “&”
        .如果结束

    .如果真结束

.计次循环尾 ()
signpars ＝ signpars ＋ key
sign ＝ 取数据摘要 (到字节集 (signpars))
返回 (sign)