不会写C# 来个师傅帮我改成易语言的谢谢

爱吃蒜苔的我

using System.IO;using System.Text;using System.Net;using System.Net.Security;using System.Security.Cryptography;using System.Security.Cryptography.X509Certificates;using System;public class CsharpTest{    public static String HMACSHA1Text(String EncryptText, String EncryptKey)    {        HMACSHA1 hmacsha1 = new HMACSHA1();        hmacsha1.Key = System.Text.Encoding.UTF8.GetBytes(EncryptKey);        byte[] dataBuffer = System.Text.Encoding.UTF8.GetBytes(EncryptText);        byte[] hashBytes = hmacsha1.ComputeHash(dataBuffer);        return Convert.ToBase64String(hashBytes);    }    public static void Main(String[] args)    {        String url = "http://service-374wyg8x-1258247023.sh.apigw.tencentcs.com/release/bank_4ele";        String method = "POST";        String querys = "";        String postData = "accountNo=&idCard=&mobile=&name=";        //云市场分配的密钥Id        String secretId = "xxxx";        //云市场分配的密钥Key        String secretKey = "xxxx";        String source = "market";        String dt = DateTime.UtcNow.GetDateTimeFormats('r')[0];        url = url + "?" + querys;        String signStr = "x-date: " + dt + "\n" + "x-source: " + source;        String sign = HMACSHA1Text(signStr, secretKey);        String auth = "hmac id=\"" + secretId + "\", algorithm=\"hmac-sha1\", headers=\"x-date x-source\", signature=\"";        auth = auth + sign + "\"";        HttpWebRequest httpRequest = null;        HttpWebResponse httpResponse = null;        if (url.Contains("https://")) {            ServicePointManager.ServerCertificateValidationCallback = new RemoteCertificateValidationCallback(CheckValidationResult);            httpRequest = (HttpWebRequest)WebRequest.CreateDefault(new Uri(url));        } else {            httpRequest = (HttpWebRequest)WebRequest.Create(url);        }        httpRequest.Method = method;        httpRequest.ContentLength = postData.Length;        httpRequest.ContentType = "application/x-www-form-urlencoded";        httpRequest.Headers.Add("Authorization", auth);        httpRequest.Headers.Add("X-Source", source);        httpRequest.Headers.Add("X-Date", dt);        httpRequest.GetRequestStream().Write(System.Text.Encoding.ASCII.GetBytes(postData), 0, postData.Length);        try {            httpResponse = (HttpWebResponse)httpRequest.GetResponse();        } catch (WebException ex) {            httpResponse = (HttpWebResponse)ex.Response;        }        Console.WriteLine(httpResponse.StatusCode);        Console.WriteLine(httpResponse.Headers);        Stream st = httpResponse.GetResponseStream();        StreamReader reader = new StreamReader(st, Encoding.GetEncoding("utf-8"));        Console.WriteLine(reader.ReadToEnd());        Console.WriteLine("\n");    }    public static bool CheckValidationResult(object sender, X509Certificate certificate, X509Chain chain, SslPolicyErrors errors)    {        return true;    }}






上面代码改成易语言

我冒得感情

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

main函数 (“”, “xxxx”, “xxxx”)

子程序名	返回值类型	公开	备 注
main函数
参数名	类 型	参考	可空	数组	备 注
querys	文本型				url?后面带的数据
secretId	文本型				云市场分配的密钥Id
secretKey	文本型				云市场分配的密钥Key

变量名	类 型	静态	数组	备 注
url	文本型
postData	文本型
source	文本型
dtime	文本型
signStr	文本型
sign	文本型
auth	文本型
协议头	文本型
str	文本型

url ＝ “http://service-374wyg8x-12582470 ... m/release/bank_4ele”
source ＝ “market”
dtime ＝ “Wed, 07 Oct 2020 15:23:27 GMT”  ' 取先行时间 不知道易语言怎么实现
signStr ＝ “x-date: ” ＋ dtime ＋ “\n” ＋ “x-source: ” ＋ source
sign ＝ 校验_取hmac_sha1 (signStr, secretKey)  ' 取sign
auth ＝ “hmac id=” ＋ #引号 ＋ “xxxx” ＋ #引号 ＋ “, algorithm=” ＋ #引号 ＋ “hmac-sha1” ＋ #引号 ＋ “, headers=” ＋ #引号 ＋ “x-date x-source” ＋ #引号 ＋ “, signature=” ＋ #引号
auth ＝ auth ＋ sign ＋ #引号
url ＝ url ＋ “?” ＋ querys
postData ＝ “accountNo=&idCard=&mobile=&name=”  ' 里面应该是有参数的
协议头 ＝ “ContentType: application/x-www-form-urlencoded” ＋ #换行符
协议头 ＝ 协议头 ＋ “Authorization: ” ＋ auth ＋ #换行符
协议头 ＝ 协议头 ＋ “X-Source: ” ＋ source ＋ #换行符
协议头 ＝ 协议头 ＋ “X-Date: ” ＋ dtime ＋ #换行符
str ＝ 网页_访问S (url, 1, postData, , , 协议头)
调试输出 (str)

子程序名	返回值类型	公开	备 注
校验_取hmac_sha1	文本型
参数名	类 型	参考	可空	数组	备 注
word	文本型
key	文本型

变量名	类 型	静态	数组	备 注
Js	对象
return	文本型

线程_初始化COM库 ()  ' 线程中请初始化COM  否则会出错
Js.创建 (“ScriptControl”, )
Js.写属性 (“Language”, “JavaScript”)
Js.数值方法 (“AddCode”, #常量1 )  ' 请在常量_Js中放入调试成功的JS代码段
return ＝ Js.通用方法 (“eval”, “HmacSHA1_Encrypt” ＋ “('” ＋ word ＋ “','” ＋ key ＋ “')”).取文本 ()
线程_取消COM库 ()
返回 (return)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> main函数 (“”, “xxxx”, “xxxx”)<br /> <br /> <br /> <br /> <br /> <br /> .子程序 main函数<br /> .参数 querys, 文本型, , url?后面带的数据<br /> .参数 secretId, 文本型, , 云市场分配的密钥Id<br /> .参数 secretKey, 文本型, , 云市场分配的密钥Key<br /> .局部变量 url, 文本型<br /> .局部变量 postData, 文本型<br /> .局部变量 source, 文本型<br /> .局部变量 dtime, 文本型<br /> .局部变量 signStr, 文本型<br /> .局部变量 sign, 文本型<br /> .局部变量 auth, 文本型<br /> .局部变量 协议头, 文本型<br /> .局部变量 str, 文本型<br /> <br /> url ＝ “<a href="http://service-374wyg8x-1258247023.sh.apigw.tencentcs.com/release/bank_4ele" rel="nofollow" rel="nofollow" target="_blank">http://service-374wyg8x-12582470 ... m/release/bank_4ele</a>”<br /> source ＝ “market”<br /> dtime ＝ “Wed, 07 Oct 2020 15:23:27 GMT”  ' 取先行时间 不知道易语言怎么实现<br /> <br /> signStr ＝ “x-date: ” ＋ dtime ＋ “\n” ＋ “x-source: ” ＋ source<br /> sign ＝ 校验_取hmac_sha1 (signStr, secretKey)  ' 取sign<br /> auth ＝ “hmac id=” ＋ #引号 ＋ “xxxx” ＋ #引号 ＋ “, algorithm=” ＋ #引号 ＋ “hmac-sha1” ＋ #引号 ＋ “, headers=” ＋ #引号 ＋ “x-date x-source” ＋ #引号 ＋ “, signature=” ＋ #引号<br /> auth ＝ auth ＋ sign ＋ #引号<br /> url ＝ url ＋ “?” ＋ querys<br /> postData ＝ “accountNo=&idCard=&mobile=&name=”  ' 里面应该是有参数的<br /> 协议头 ＝ “ContentType: application/x-www-form-urlencoded” ＋ #换行符<br /> 协议头 ＝ 协议头 ＋ “Authorization: ” ＋ auth ＋ #换行符<br /> 协议头 ＝ 协议头 ＋ “X-Source: ” ＋ source ＋ #换行符<br /> 协议头 ＝ 协议头 ＋ “X-Date: ” ＋ dtime ＋ #换行符<br /> <br /> str ＝ 网页_访问S (url, 1, postData, , , 协议头)<br /> 调试输出 (str)<br /> <br /> .子程序 校验_取hmac_sha1, 文本型, 公开<br /> .参数 word, 文本型<br /> .参数 key, 文本型<br /> .局部变量 Js, 对象<br /> .局部变量 return, 文本型<br /> <br /> 线程_初始化COM库 ()  ' 线程中请初始化COM  否则会出错<br /> Js.创建 (“ScriptControl”, )<br /> Js.写属性 (“Language”, “JavaScript”)<br /> Js.数值方法 (“AddCode”, #常量1)  ' 请在常量_Js中放入调试成功的JS代码段<br /> return ＝ Js.通用方法 (“eval”, “HmacSHA1_Encrypt” ＋ “('” ＋ word ＋ “','” ＋ key ＋ “')”).取文本 ()<br /> 线程_取消COM库 ()<br /> 返回 (return)

我冒得感情

demo.e (856.89 KB, 下载次数: 7)

2020-10-7 23:34 上传

点击文件名下载附件