qianran 彩虹易支付算法
彩虹易支付，易语言sign算法
支付宝调用校验
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
.版本 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) |
