求帖内一小段php代码用易语言写一下

dannyX

<?php/*** @param $param 需要签名的参数数组* @param $key 用户密钥(用户后台生成的key)* @return string*/function sign($param, $key){         $signPars = "";         ksort($param);         foreach ($param as $k => $v) {                 if ("sign" <> $k && "" != $v) {                         $signPars .= $k . "=" . $v . "&";                 }         }         $signPars = trim($signPars, '&');         $signPars .= $key;         $sign = md5($signPars);         return $sign; }$Key = "9167078df48be0327a33586cd82195b1"; //用户后台生成的对接密钥$DataPost = ['a' => '3','b' => "2",'c' => "1"]; //里面可存放需要传递的参数，如下单信息，订单信息等$Sign = sign($DataPost,$Key); //签名结果$DataPost = array_merge([      'sign' => $Sign   ], $DataPost); //在需要签名的数组里面插入sign签名参数$DataPost; //需要传递的参数数组

求用易语言写一下

Su·

  

.版本 2
.支持库 spec
.支持库 dp1
.子程序 sign计算, 文本型, 公开
.参数 param, 文本型
.参数 key, 文本型
.局部变量 signpars, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 k, 文本型
.局部变量 v, 文本型
.局部变量 sign, 文本型
分割 ＝ 分割文本 (param, “&”, )
数组_排序 (分割, 0, )
计次循环首 (取数组成员数 (分割), x)
k ＝ 文本_取左边 (分割 [x], “=”, , )
v ＝ 文本_取右边 (分割 [x], “=”, , )
如果真 (k ≠ “accessKey” 且 k ≠ “accessID” 且 v ≠ “”)
调试输出 (k, v)
如果 (x ＝ 取数组成员数 (分割))
signpars ＝ signpars ＋ k ＋ “=” ＋ v
signpars ＝ signpars ＋ k ＋ “=” ＋ v ＋ “&”


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

.版本 2<br />         .支持库 spec<br />         .支持库 dp1<br /> <br />         .子程序 sign计算, 文本型, 公开<br />         .参数 param, 文本型<br />         .参数 key, 文本型<br />         .局部变量 signpars, 文本型<br />         .局部变量 分割, 文本型, , "0"<br />         .局部变量 x, 整数型<br />         .局部变量 k, 文本型<br />         .局部变量 v, 文本型<br />         .局部变量 sign, 文本型<br /> <br />         分割 ＝ 分割文本 (param, “&”, )<br />         数组_排序 (分割, 0, )<br /> <br />         .计次循环首 (取数组成员数 (分割), x)<br />             k ＝ 文本_取左边 (分割 [x], “=”, , )<br />             v ＝ 文本_取右边 (分割 [x], “=”, , )<br />             .如果真 (k ≠ “accessKey” 且 k ≠ “accessID” 且 v ≠ “”)<br />                 调试输出 (k, v)<br />                 .如果 (x ＝ 取数组成员数 (分割))<br />                     signpars ＝ signpars ＋ k ＋ “=” ＋ v<br />                 .否则<br />                     signpars ＝ signpars ＋ k ＋ “=” ＋ v ＋ “&”<br />                 .如果结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         signpars ＝ signpars ＋ key<br />         调试输出 (signpars)<br />         sign ＝ 取数据摘要 (到字节集 (signpars))<br />         返回 (sign)

怎么这么像我开发的一个网站的加密key，正好我有易语言版的

Su·

  

.版本 2
.支持库 spec
.支持库 dp1
.子程序 sign计算, 文本型, 公开
.参数 param, 文本型
.参数 key, 文本型
.局部变量 signpars, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 k, 文本型
.局部变量 v, 文本型
.局部变量 sign, 文本型
分割 ＝ 分割文本 (param, “&”, )
数组_排序 (分割, 0, )
计次循环首 (取数组成员数 (分割), x)
k ＝ 文本_取左边 (分割 [x], “=”, , )
v ＝ 文本_取右边 (分割 [x], “=”, , )
如果真 (k ≠ “accessKey” 且 k ≠ “accessID” 且 v ≠ “”)
调试输出 (k, v)
如果 (x ＝ 取数组成员数 (分割))
signpars ＝ signpars ＋ k ＋ “=” ＋ v
signpars ＝ signpars ＋ k ＋ “=” ＋ v ＋ “&”


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

.版本 2<br />         .支持库 spec<br />         .支持库 dp1<br /> <br />         .子程序 sign计算, 文本型, 公开<br />         .参数 param, 文本型<br />         .参数 key, 文本型<br />         .局部变量 signpars, 文本型<br />         .局部变量 分割, 文本型, , "0"<br />         .局部变量 x, 整数型<br />         .局部变量 k, 文本型<br />         .局部变量 v, 文本型<br />         .局部变量 sign, 文本型<br /> <br />         分割 ＝ 分割文本 (param, “&”, )<br />         数组_排序 (分割, 0, )<br /> <br />         .计次循环首 (取数组成员数 (分割), x)<br />             k ＝ 文本_取左边 (分割 [x], “=”, , )<br />             v ＝ 文本_取右边 (分割 [x], “=”, , )<br />             .如果真 (k ≠ “accessKey” 且 k ≠ “accessID” 且 v ≠ “”)<br />                 调试输出 (k, v)<br />                 .如果 (x ＝ 取数组成员数 (分割))<br />                     signpars ＝ signpars ＋ k ＋ “=” ＋ v<br />                 .否则<br />                     signpars ＝ signpars ＋ k ＋ “=” ＋ v ＋ “&”<br />                 .如果结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         signpars ＝ signpars ＋ key<br />         调试输出 (signpars)<br />         sign ＝ 取数据摘要 (到字节集 (signpars))<br />         返回 (sign)

dannyX

Su· 发表于 2021-1-26 18:37
[e=0] .版本 2
        .支持库 spec
        .支持库 dp1

计算签名值参数怎么计算呀

dannyX

Su· 发表于 2021-1-26 19:08
[e=0] .版本 2
        .支持库 spec
        .支持库 dp1

能不能把http://79tian.com/pages/joint/#%E8%AE%A2%E5%8D%95%E6%9F%A5%E8%AF%A2
订单cha询的代码帮我做一下。。。。对接软件急需