彩虹易支付算法

彩虹易支付，易语言sign算法

支付宝调用校验

.版本 2
.支持库 e2ee
.支持库 iconv

.子程序 辅助_易支付_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 ＝ 校验_取md5 (编码转换 (到字节集 (signpars), #编码_GB2312, #编码_UTF_8, ), 假, 假)  ' 编码转换后进行校验即可
' sign ＝ 校验_取md5 (编码_Ansi到Utf8 (signpars), 假, 假)
返回 (sign)