求大佬帮忙对接这个网络验证的心跳，有例子但是不完善

字母大队长

有现成的例子，但是不是很完善，然后我想让大佬帮忙完善一下，例子附上，网站是https://www.timeses.com/

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
说明

' 以下是后台加密配置需要设置的东西：
' 加密方式 ：AES对称加密
' 加密编码方式 ：16进制编码
' 响应加密方式 ：全部加密
' 随机数防劫持 ：开
' 签名方式 ：MD5
' 签名计算规则 ：方式二
' 时间戳验证 ：5000
' 加密密钥设置 ：AES/ECB/PKCS5Padding(无需iv-偏移)

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
错误文本	文本型
bool	逻辑型
到期文本	文本型
到期时间戳	文本型
token	文本型

验证_全局初始化 (“https://www.timeses.com”, “应用编号”, “应用密钥”, “AES/ECB密钥”, 5000, 5000, 假)
' 验证_全局初始化 (“https://www.timeses.com”, “1”, “1”, “1”, 5000, 5000, 假)
' 举例"应用编号"应用前的编号是什么里面就填什么"1"
bool ＝ 验证_卡密登陆 (“卡密”, “我是机器码”, 到期文本, 到期时间戳, token, 错误文本)
调试输出 (bool, 到期文本, 到期时间戳, token, 错误文本)
' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
验证_卡密登陆	逻辑型
参数名	类 型	参考	可空	数组	备 注
卡密	文本型
机器码	文本型
到期文本	文本型
到期时间戳	文本型
token	文本型
错误文本	文本型

变量名	类 型	静态	数组	备 注
Api	Client			验证客户端接口实例对象
data	文本型			响应返回值数据
Json	类_json			响应返回值数据-解析成json对象
Code	文本型			接口业务响应码
Msg	文本型			接口业务响应信息

Api.设置请求接口地址 (“/api/single/login”)  ' 设置接口请求地址
Api.添加请求参数 (“card”, 卡密)  ' 增加一个参数
Api.添加请求参数 (“mac”, 机器码)  ' 增加一个参数
如果真 (Api.发送请求 () ＝ 假)  ' 发送请求,成功返回真(会自动帮您处理好必要参数、签名、参数加密等)
错误文本 ＝ “请求失败”
返回 (假)
data ＝ Api.解密data数据 ()  ' 解密aes和解十六进制得到原始未加密的dataJson数据
' 调试输出 (“data”, data)
Json.解析 (data, , )  ' 解析响应数据为json
Code ＝ Json.取通用属性 (“code”, )  ' 得到请求响应返回状态码
Msg ＝ Json.取通用属性 (“msg”, )  ' 得到请求响应返回信息
如果真 (Code ≠ “1”)  ' 接口业务码响应非成功-将服务器返回信息提示
错误文本 ＝ Msg
返回 (假)
如果真 (Api.响应数据签名验证 () ＝ 假)  ' 响应数据验签检测未通过
错误文本 ＝ “响应数据验签失败”
返回 (假)
如果真 (Api.响应数据防劫持验证 () ＝ 假)  ' 防劫持验证检测未通过
错误文本 ＝ “检测到数据被劫持篡改了”
返回 (假)
如果真 (Api.响应数据时差验证 () ＝ 假)  ' 响应数据检测验证不通过
错误文本 ＝ “响应数据异常，与服务器时差相差过多”
返回 (假)
到期文本 ＝ Json.取通用属性 (“data.endTime”, )
到期时间戳 ＝ Json.取属性 (“data.endTimestamp”).取数据文本 ()
token ＝ Json.取通用属性 (“data.token”, )
错误文本 ＝ Msg
返回 (真)

子程序名	返回值类型	公开	备 注
验证_全局初始化			初始化配置，全局只需要执行一次
参数名	类 型	参考	可空	数组	备 注
Host	文本型				站点地址
AppId	文本型				应用ID
AppKey	文本型				应用密钥
AesKey	文本型				算法密钥
时差最小值	整数型				允许请求时差最小值-单位为毫秒
时差最大值	整数型				允许请求时差最大值-单位为毫秒
是否输出调试信息	逻辑型				默认为假

g_Host ＝ Host
g_AppId ＝ AppId
g_AppKey ＝ AppKey
g_AesKey ＝ AesKey
g_时差最小值 ＝ 时差最小值
g_时差最大值 ＝ 时差最大值
g_是否输出调试信息 ＝ 选择 (是否为空 (是否输出调试信息), 假, 是否输出调试信息)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 说明<br /> <br /> ' 以下是后台加密配置需要设置的东西：<br /> ' 加密方式 ：AES对称加密<br /> ' 加密编码方式 ：16进制编码<br /> ' 响应加密方式 ：全部加密<br /> ' 随机数防劫持 ：开<br /> ' 签名方式 ：MD5<br /> ' 签名计算规则 ：方式二<br /> ' 时间戳验证 ：5000<br /> ' 加密密钥设置 ：AES/ECB/PKCS5Padding(无需iv-偏移)<br /> <br /> .子程序 _临时子程序<br /> .局部变量 错误文本, 文本型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 到期文本, 文本型<br /> .局部变量 到期时间戳, 文本型<br /> .局部变量 token, 文本型<br /> <br /> 验证_全局初始化 (“https://www.timeses.com”, “应用编号”, “应用密钥”, “AES/ECB密钥”, 5000, 5000, 假)<br /> ' 验证_全局初始化 (“https://www.timeses.com”, “1”, “1”, “1”, 5000, 5000, 假)<br /> ' 举例"应用编号"应用前的编号是什么里面就填什么"1"<br /> bool ＝ 验证_卡密登陆 (“卡密”, “我是机器码”, 到期文本, 到期时间戳, token, 错误文本)<br /> 调试输出 (bool, 到期文本, 到期时间戳, token, 错误文本)<br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> .子程序 验证_卡密登陆, 逻辑型<br /> .参数 卡密, 文本型<br /> .参数 机器码, 文本型<br /> .参数 到期文本, 文本型<br /> .参数 到期时间戳, 文本型<br /> .参数 token, 文本型<br /> .参数 错误文本, 文本型, 参考<br /> .局部变量 Api, Client, , , 验证客户端接口实例对象<br /> .局部变量 data, 文本型, , , 响应返回值数据<br /> .局部变量 Json, 类_json, , , 响应返回值数据-解析成json对象<br /> .局部变量 Code, 文本型, , , 接口业务响应码<br /> .局部变量 Msg, 文本型, , , 接口业务响应信息<br /> <br /> Api.设置请求接口地址 (“/api/single/login”)  ' 设置接口请求地址<br /> Api.添加请求参数 (“card”, 卡密)  ' 增加一个参数<br /> Api.添加请求参数 (“mac”, 机器码)  ' 增加一个参数<br /> .如果真 (Api.发送请求 () ＝ 假)  ' 发送请求,成功返回真(会自动帮您处理好必要参数、签名、参数加密等)<br />     错误文本 ＝ “请求失败”<br />     返回 (假)<br /> .如果真结束<br /> data ＝ Api.解密data数据 ()  ' 解密aes和解十六进制得到原始未加密的dataJson数据<br /> ' 调试输出 (“data”, data)<br /> Json.解析 (data, , )  ' 解析响应数据为json<br /> Code ＝ Json.取通用属性 (“code”, )  ' 得到请求响应返回状态码<br /> Msg ＝ Json.取通用属性 (“msg”, )  ' 得到请求响应返回信息<br /> .如果真 (Code ≠ “1”)  ' 接口业务码响应非成功-将服务器返回信息提示<br />     错误文本 ＝ Msg<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (Api.响应数据签名验证 () ＝ 假)  ' 响应数据验签检测未通过<br />     错误文本 ＝ “响应数据验签失败”<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (Api.响应数据防劫持验证 () ＝ 假)  ' 防劫持验证检测未通过<br />     错误文本 ＝ “检测到数据被劫持篡改了”<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (Api.响应数据时差验证 () ＝ 假)  ' 响应数据检测验证不通过<br />     错误文本 ＝ “响应数据异常，与服务器时差相差过多”<br />     返回 (假)<br /> .如果真结束<br /> 到期文本 ＝ Json.取通用属性 (“data.endTime”, )<br /> 到期时间戳 ＝ Json.取属性 (“data.endTimestamp”).取数据文本 ()<br /> token ＝ Json.取通用属性 (“data.token”, )<br /> 错误文本 ＝ Msg<br /> 返回 (真)<br /> <br /> .子程序 验证_全局初始化, , 公开, 初始化配置，全局只需要执行一次<br /> .参数 Host, 文本型, , 站点地址<br /> .参数 AppId, 文本型, , 应用ID<br /> .参数 AppKey, 文本型, , 应用密钥<br /> .参数 AesKey, 文本型, , 算法密钥<br /> .参数 时差最小值, 整数型, , 允许请求时差最小值-单位为毫秒<br /> .参数 时差最大值, 整数型, , 允许请求时差最大值-单位为毫秒<br /> .参数 是否输出调试信息, 逻辑型, 可空, 默认为假<br /> <br /> g_Host ＝ Host<br /> g_AppId ＝ AppId<br /> g_AppKey ＝ AppKey<br /> g_AesKey ＝ AesKey<br /> g_时差最小值 ＝ 时差最小值<br /> g_时差最大值 ＝ 时差最大值<br /> g_是否输出调试信息 ＝ 选择 (是否为空 (是否输出调试信息), 假, 是否输出调试信息)

字母大队长

  

窗口程序集名	保 留	保 留	备 注
Client, , 公开
变量名	类 型	数组	备 注
集_Api	文本型		请求接口地址
集_Params	文本型		请求参数
集_safe_code	文本型		请求随机安全码-防劫持验证用
集_Data	文本型		响应数据(发送请求后这里则会被赋值)
集_Json	类_json		响应数据json对象(发送请求后这里则会被赋值)

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

集_safe_code ＝ 获取随机字符串 ()

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
设置请求接口地址			设置请求接口地址
参数名	类 型	参考	可空	数组	备 注
接口地址	文本型				接口地址

集_Api ＝ 接口地址

子程序名	返回值类型	公开	备 注
添加请求参数			添加请求参数
参数名	类 型	参考	可空	数组	备 注
参数名	文本型
参数值	文本型

如果真 (参数重复检测 (参数名) ＝ 假)
判断 (集_Params ＝ “”)
集_Params ＝ 参数名 ＋ “=” ＋ 参数值
集_Params ＝ 集_Params ＋ “&” ＋ 参数名 ＋ “=” ＋ 参数值

子程序名	返回值类型	公开	备 注
发送请求	逻辑型		发送请求，若请求成功返回真

变量名	类 型	静态	数组	备 注
actualRequestParams	文本型
responseResult	逻辑型

如果真 (g_是否输出调试信息)
调试输出 (“-----------------请求开始-----------------”)
调试输出 (“请求接口地址：” ＋ 集_Api)
调试输出 (“原请求数据：” ＋ 集_Params)
actualRequestParams ＝ 统一参数中转处理 ()
如果真 (g_是否输出调试信息)
调试输出 (“实际请求参数-已加密：” ＋ actualRequestParams)
集_Data ＝ 网页_访问S (g_Host ＋ 集_Api ＋ “?” ＋ actualRequestParams, 0, , , , , , , , , , , , , , , , , , , )
responseResult ＝ 假
如果真 (集_Data ≠ “”)
responseResult ＝ 真
如果真 (g_是否输出调试信息)
调试输出 (“响应返回值：” ＋ 集_Data)
集_Json.解析 (解密data数据 (), , )
如果真 (g_是否输出调试信息)
调试输出 (“-----------------请求结束-----------------”)
返回 (responseResult)

子程序名	返回值类型	公开	备 注
获取响应数据	文本型		获取响应数据

返回 (集_Data)

子程序名	返回值类型	公开	备 注
获取响应json对象	类_json		获取响应json对象

返回 (集_Json)

子程序名	返回值类型	公开	备 注
解密data数据	文本型		解密data数据

变量名	类 型	静态	数组	备 注
dataJson	文本型

dataJson ＝ 编码_Utf8到Ansi (对称解密 (字节集_十六进制到字节集 (集_Data), 到字节集 (g_AesKey), #对称算法_AES_256_ECB, #数据填充_PKCS5_PADDING, ))
返回 (dataJson)

子程序名	返回值类型	公开	备 注
解密data_json对象	类_json		获取解密后的data json对象

变量名	类 型	静态	数组	备 注
dataJson	文本型
json	类_json

dataJson ＝ 解密data数据 ()
json.解析 (dataJson)
返回 (json)

子程序名	返回值类型	公开	备 注
响应数据防劫持验证	逻辑型		请求安全码验证-响应数据防劫持验证

变量名	类 型	静态	数组	备 注
dataJson	文本型
responseDataJson	类_json
safeCode	文本型

dataJson ＝ 解密data数据 ()
responseDataJson ＝ 解密data_json对象 ()
safeCode ＝ responseDataJson.取通用属性 (“safeCode”, )
如果真 (集_safe_code ＝ safeCode)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
响应数据签名验证	逻辑型		响应数据签名验证

变量名	类 型	静态	数组	备 注
signature	文本型

signature ＝ 集_Json.取通用属性 (“signature”)
如果真 (获取字符串md5值 (_响应数据_排序 (集_Json) ＋ g_AppKey) ＝ signature)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
_响应数据_排序	文本型
参数名	类 型	参考	可空	数组	备 注
json	类_json

变量名	类 型	静态	数组	备 注
局_属性名_数组	文本型		0
post	文本型
k	文本型
v	文本型
i	整数型
data	文本型
json_data	类_json
局_属性名_数组_data	文本型		0
ii	整数型
kk	文本型
vv	文本型
分割	文本型		0
二次分割	文本型		0
x
paramsStr	文本型

json.取所有属性名 (局_属性名_数组, )
计次循环首 (取数组成员数 (局_属性名_数组), i)
k ＝ 局_属性名_数组 [i]
v ＝ json.取通用属性 (k, )
如果真 (k ＝ “code” 且 v ＝ “1”)
data ＝ json.取通用属性 (“data”, 真)
json_data.解析 (data, , )
json_data.取所有属性名 (局_属性名_数组_data, )
计次循环首 (取数组成员数 (局_属性名_数组_data), ii)
kk ＝ 局_属性名_数组_data [ii]
vv ＝ json_data.取通用属性 (kk, )
post ＝ post ＋ kk ＋ “=” ＋ vv ＋ “&”
计次循环尾 ()

如果真 (k ≠ “signature” 且 k ≠ “data”)
如果 (i ＝ 取数组成员数 (局_属性名_数组))
post ＝ post ＋ k ＋ “=” ＋ v
post ＝ post ＋ k ＋ “=” ＋ v ＋ “&”


计次循环尾 ()
分割 ＝ 分割文本 (post, “&”, )
数组_排序 (分割, 0, )
计次循环首 (取数组成员数 (分割), x)
二次分割 ＝ 分割文本 (分割 [x], “=”, )
如果真 (取数组成员数 (二次分割) ≠ 2)
到循环尾 ()
k ＝ 二次分割 [1]
v ＝ 二次分割 [2]
如果真 (k ≠ “appId” 且 k ≠ “signature” 且 k ≠ “data”)
如果 (x ＝ 取数组成员数 (分割))
paramsStr ＝ paramsStr ＋ k ＋ “=” ＋ v
paramsStr ＝ paramsStr ＋ k ＋ “=” ＋ v ＋ “&”


计次循环尾 ()
返回 (paramsStr)

子程序名	返回值类型	公开	备 注
响应数据时差验证	逻辑型		响应数据时差验证

变量名	类 型	静态	数组	备 注
server_time	长整数型
allow_time_scope_minimum	长整数型
allow_time_scope_maximum	长整数型
timestamp	长整数型

server_time ＝ 到长整数 (集_Json.取通用属性 (“timestamp”, ))
allow_time_scope_minimum ＝ server_time － g_时差最小值
allow_time_scope_maximum ＝ server_time ＋ g_时差最大值
timestamp ＝ 到长整数 (获取当前时间戳 ())
如果真 (timestamp ＞ allow_time_scope_maximum 或 timestamp ＜ allow_time_scope_minimum)
返回 (假)
返回 (真)

子程序名	返回值类型	公开	备 注
统一参数中转处理	文本型		统一参数中转处理，返回最终处理完的必要参数、签名、加密的参数字符串

变量名	类 型	静态	数组	备 注
分割	文本型		0
x	整数型
k	文本型
v	文本型
paramsStr	文本型
二次分割	文本型		0

添加请求参数 (“appId”, g_AppId)  ' 增加必要参数-应用ID
添加请求参数 (“timestamp”, 获取当前时间戳 ())  ' 增加签名必要参数-时间戳
添加请求参数 (“safeCode”, 集_safe_code)  ' 增加请求防劫持验证参数
添加请求参数 (“signature”, 获取字符串md5值 (获取签名字符串 (集_Params) ＋ g_AppKey))  ' 增加请求signature验证参数
如果真 (g_是否输出调试信息)
调试输出 (“实际请求参数-未加密：” ＋ 集_Params)
分割 ＝ 分割文本 (集_Params, “&”, )
数组_排序 (分割, 0, )
计次循环首 (取数组成员数 (分割), x)
二次分割 ＝ 分割文本 (分割 [x], “=”, )
如果真 (取数组成员数 (二次分割) ≠ 2)
到循环尾 ()
k ＝ 二次分割 [1]
v ＝ 二次分割 [2]
如果真 (k ≠ “appId”)
如果 (x ＝ 取数组成员数 (分割))
paramsStr ＝ paramsStr ＋ k ＋ “=” ＋ v
paramsStr ＝ paramsStr ＋ k ＋ “=” ＋ v ＋ “&”


计次循环尾 ()
paramsStr ＝ 字节集_字节集到十六进制 (对称加密 (编码_Ansi到Utf8 (paramsStr), 到字节集 (g_AesKey), #对称算法_AES_256_ECB, #数据填充_PKCS5_PADDING, ))
paramsStr ＝ “appId=” ＋ g_AppId ＋ “¶ms=” ＋ paramsStr
返回 (paramsStr)

子程序名	返回值类型	公开	备 注
获取签名字符串	文本型		获取计算参数签名字符串
参数名	类 型	参考	可空	数组	备 注
param	文本型

变量名	类 型	静态	数组	备 注
signStr	文本型
分割	文本型		0
x	整数型
k	文本型
v	文本型
二次分割	文本型		0

如果真 (g_是否输出调试信息)
调试输出 (“参与签名数据：” ＋ param)
分割 ＝ 分割文本 (param, “&”, )
数组_排序 (分割, 0, )
计次循环首 (取数组成员数 (分割), x)
二次分割 ＝ 分割文本 (分割 [x], “=”, )
如果真 (取数组成员数 (二次分割) ≠ 2)
到循环尾 ()
k ＝ 二次分割 [1]
v ＝ 二次分割 [2]
如果真 (k ≠ “signature” 且 k ≠ “appId”)
如果 (x ＝ 取数组成员数 (分割))
signStr ＝ signStr ＋ k ＋ “=” ＋ v
signStr ＝ signStr ＋ k ＋ “=” ＋ v ＋ “&”


计次循环尾 ()
如果真 (g_是否输出调试信息)
调试输出 (“签名字符串：” ＋ signStr)
返回 (signStr)

子程序名	返回值类型	公开	备 注
获取当前时间戳	文本型		获取当前时间戳

返回 (时间_取现行时间戳 (假))

子程序名	返回值类型	公开	备 注
获取字符串md5值	文本型		获取字符串md5值
参数名	类 型	参考	可空	数组	备 注
str	文本型

返回 (校验_取md5 (编码转换 (到字节集 (str), #编码_GB2312, #编码_UTF_8, ), 假, 假))

子程序名	返回值类型	公开	备 注
获取随机字符串	文本型		获取随机字符串

变量名	类 型	静态	数组	备 注
i	整数型
结果	文本型

置随机数种子 ()
计次循环首 (16, i)
结果 ＝ 结果 ＋ 到文本 (取随机数 (0, 9))
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
参数重复检测	逻辑型
参数名	类 型	参考	可空	数组	备 注
key	文本型

变量名	类 型	静态	数组	备 注
分割	文本型		0
x	整数型
k	文本型
v	文本型
二次分割	文本型		0

分割 ＝ 分割文本 (集_Params, “&”, )
数组_排序 (分割, 0, )
计次循环首 (取数组成员数 (分割), x)
二次分割 ＝ 分割文本 (分割 [x], “=”, )
如果真 (取数组成员数 (二次分割) ≠ 2)
到循环尾 ()
k ＝ 二次分割 [1]
v ＝ 二次分割 [2]
如果真 (k ＝ key)
返回 (真)

计次循环尾 ()
返回 (假)

i支持库列表	支持库注释
spec	特殊功能支持库
iconv	编码转换支持库

.版本 2<br /> .支持库 spec<br /> .支持库 iconv<br /> <br /> .程序集 Client, , 公开<br /> .程序集变量 集_Api, 文本型, , , 请求接口地址<br /> .程序集变量 集_Params, 文本型, , , 请求参数<br /> .程序集变量 集_safe_code, 文本型, , , 请求随机安全码-防劫持验证用<br /> .程序集变量 集_Data, 文本型, , , 响应数据(发送请求后这里则会被赋值)<br /> .程序集变量 集_Json, 类_json, , , 响应数据json对象(发送请求后这里则会被赋值)<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> 集_safe_code ＝ 获取随机字符串 ()<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 设置请求接口地址, , 公开, 设置请求接口地址<br /> .参数 接口地址, 文本型, , 接口地址<br /> <br /> 集_Api ＝ 接口地址<br /> <br /> .子程序 添加请求参数, , 公开, 添加请求参数<br /> .参数 参数名, 文本型<br /> .参数 参数值, 文本型<br /> <br /> .如果真 (参数重复检测 (参数名) ＝ 假)<br />     .判断开始 (集_Params ＝ “”)<br />         集_Params ＝ 参数名 ＋ “=” ＋ 参数值<br />     .默认<br />         集_Params ＝ 集_Params ＋ “&” ＋ 参数名 ＋ “=” ＋ 参数值<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 发送请求, 逻辑型, 公开, 发送请求，若请求成功返回真<br /> .局部变量 actualRequestParams, 文本型<br /> .局部变量 responseResult, 逻辑型<br /> <br /> .如果真 (g_是否输出调试信息)<br />     调试输出 (“-----------------请求开始-----------------”)<br />     调试输出 (“请求接口地址：” ＋ 集_Api)<br />     调试输出 (“原请求数据：” ＋ 集_Params)<br /> .如果真结束<br /> actualRequestParams ＝ 统一参数中转处理 ()<br /> .如果真 (g_是否输出调试信息)<br />     调试输出 (“实际请求参数-已加密：” ＋ actualRequestParams)<br /> .如果真结束<br /> 集_Data ＝ 网页_访问S (g_Host ＋ 集_Api ＋ “?” ＋ actualRequestParams, 0, , , , , , , , , , , , , , , , , , , )<br /> responseResult ＝ 假<br /> .如果真 (集_Data ≠ “”)<br />     responseResult ＝ 真<br />     .如果真 (g_是否输出调试信息)<br />         调试输出 (“响应返回值：” ＋ 集_Data)<br />     .如果真结束<br />     集_Json.解析 (解密data数据 (), , )<br /> .如果真结束<br /> .如果真 (g_是否输出调试信息)<br />     调试输出 (“-----------------请求结束-----------------”)<br /> .如果真结束<br /> 返回 (responseResult)<br /> <br /> .子程序 获取响应数据, 文本型, 公开, 获取响应数据<br /> <br /> 返回 (集_Data)<br /> <br /> .子程序 获取响应json对象, 类_json, 公开, 获取响应json对象<br /> <br /> 返回 (集_Json)<br /> <br /> .子程序 解密data数据, 文本型, 公开, 解密data数据<br /> .局部变量 dataJson, 文本型<br /> <br /> dataJson ＝ 编码_Utf8到Ansi (对称解密 (字节集_十六进制到字节集 (集_Data), 到字节集 (g_AesKey), #对称算法_AES_256_ECB, #数据填充_PKCS5_PADDING, ))<br /> 返回 (dataJson)<br /> <br /> .子程序 解密data_json对象, 类_json, 公开, 获取解密后的data json对象<br /> .局部变量 dataJson, 文本型<br /> .局部变量 json, 类_json<br /> <br /> dataJson ＝ 解密data数据 ()<br /> json.解析 (dataJson)<br /> 返回 (json)<br /> <br /> .子程序 响应数据防劫持验证, 逻辑型, 公开, 请求安全码验证-响应数据防劫持验证<br /> .局部变量 dataJson, 文本型<br /> .局部变量 responseDataJson, 类_json<br /> .局部变量 safeCode, 文本型<br /> <br /> dataJson ＝ 解密data数据 ()<br /> responseDataJson ＝ 解密data_json对象 ()<br /> safeCode ＝ responseDataJson.取通用属性 (“safeCode”, )<br /> .如果真 (集_safe_code ＝ safeCode)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 响应数据签名验证, 逻辑型, 公开, 响应数据签名验证<br /> .局部变量 signature, 文本型<br /> <br /> signature ＝ 集_Json.取通用属性 (“signature”)<br /> .如果真 (获取字符串md5值 (_响应数据_排序 (集_Json) ＋ g_AppKey) ＝ signature)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 _响应数据_排序, 文本型<br /> .参数 json, 类_json<br /> .局部变量 局_属性名_数组, 文本型, , "0"<br /> .局部变量 post, 文本型<br /> .局部变量 k, 文本型<br /> .局部变量 v, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 data, 文本型<br /> .局部变量 json_data, 类_json<br /> .局部变量 局_属性名_数组_data, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 kk, 文本型<br /> .局部变量 vv, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 二次分割, 文本型, , "0"<br /> .局部变量 x<br /> .局部变量 paramsStr, 文本型<br /> <br /> json.取所有属性名 (局_属性名_数组, )<br /> <br /> .计次循环首 (取数组成员数 (局_属性名_数组), i)<br />     k ＝ 局_属性名_数组 <i><br />     v ＝ json.取通用属性 (k, )<br />     .如果真 (k ＝ “code” 且 v ＝ “1”)<br />         data ＝ json.取通用属性 (“data”, 真)<br />         json_data.解析 (data, , )<br />         json_data.取所有属性名 (局_属性名_数组_data, )<br />         .计次循环首 (取数组成员数 (局_属性名_数组_data), ii)<br />             kk ＝ 局_属性名_数组_data [ii]<br />             vv ＝ json_data.取通用属性 (kk, )<br />             post ＝ post ＋ kk ＋ “=” ＋ vv ＋ “&”<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br />     .如果真 (k ≠ “signature” 且 k ≠ “data”)<br />         .如果 (i ＝ 取数组成员数 (局_属性名_数组))<br />             post ＝ post ＋ k ＋ “=” ＋ v<br />         .否则<br />             post ＝ post ＋ k ＋ “=” ＋ v ＋ “&”<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 分割 ＝ 分割文本 (post, “&”, )<br /> 数组_排序 (分割, 0, )<br /> .计次循环首 (取数组成员数 (分割), x)<br />     二次分割 ＝ 分割文本 (分割 [x], “=”, )<br />     .如果真 (取数组成员数 (二次分割) ≠ 2)<br />         到循环尾 ()<br />     .如果真结束<br />     k ＝ 二次分割 [1]<br />     v ＝ 二次分割 [2]<br />     .如果真 (k ≠ “appId” 且 k ≠ “signature” 且 k ≠ “data”)<br />         .如果 (x ＝ 取数组成员数 (分割))<br />             paramsStr ＝ paramsStr ＋ k ＋ “=” ＋ v<br />         .否则<br />             paramsStr ＝ paramsStr ＋ k ＋ “=” ＋ v ＋ “&”<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (paramsStr)<br /> <br /> .子程序 响应数据时差验证, 逻辑型, 公开, 响应数据时差验证<br /> .局部变量 server_time, 长整数型<br /> .局部变量 allow_time_scope_minimum, 长整数型<br /> .局部变量 allow_time_scope_maximum, 长整数型<br /> .局部变量 timestamp, 长整数型<br /> <br /> server_time ＝ 到长整数 (集_Json.取通用属性 (“timestamp”, ))<br /> allow_time_scope_minimum ＝ server_time － g_时差最小值<br /> allow_time_scope_maximum ＝ server_time ＋ g_时差最大值<br /> timestamp ＝ 到长整数 (获取当前时间戳 ())<br /> .如果真 (timestamp ＞ allow_time_scope_maximum 或 timestamp ＜ allow_time_scope_minimum)<br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)<br /> <br /> .子程序 统一参数中转处理, 文本型, 公开, 统一参数中转处理，返回最终处理完的必要参数、签名、加密的参数字符串<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 k, 文本型<br /> .局部变量 v, 文本型<br /> .局部变量 paramsStr, 文本型<br /> .局部变量 二次分割, 文本型, , "0"<br /> <br /> <br /> 添加请求参数 (“appId”, g_AppId)  ' 增加必要参数-应用ID<br /> 添加请求参数 (“timestamp”, 获取当前时间戳 ())  ' 增加签名必要参数-时间戳<br /> 添加请求参数 (“safeCode”, 集_safe_code)  ' 增加请求防劫持验证参数<br /> 添加请求参数 (“signature”, 获取字符串md5值 (获取签名字符串 (集_Params) ＋ g_AppKey))  ' 增加请求signature验证参数<br /> .如果真 (g_是否输出调试信息)<br />     调试输出 (“实际请求参数-未加密：” ＋ 集_Params)<br /> .如果真结束<br /> 分割 ＝ 分割文本 (集_Params, “&”, )<br /> 数组_排序 (分割, 0, )<br /> .计次循环首 (取数组成员数 (分割), x)<br />     二次分割 ＝ 分割文本 (分割 [x], “=”, )<br />     .如果真 (取数组成员数 (二次分割) ≠ 2)<br />         到循环尾 ()<br />     .如果真结束<br />     k ＝ 二次分割 [1]<br />     v ＝ 二次分割 [2]<br />     .如果真 (k ≠ “appId”)<br />         .如果 (x ＝ 取数组成员数 (分割))<br />             paramsStr ＝ paramsStr ＋ k ＋ “=” ＋ v<br />         .否则<br />             paramsStr ＝ paramsStr ＋ k ＋ “=” ＋ v ＋ “&”<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> paramsStr ＝ 字节集_字节集到十六进制 (对称加密 (编码_Ansi到Utf8 (paramsStr), 到字节集 (g_AesKey), #对称算法_AES_256_ECB, #数据填充_PKCS5_PADDING, ))<br /> paramsStr ＝ “appId=” ＋ g_AppId ＋ “¶ms=” ＋ paramsStr<br /> 返回 (paramsStr)<br /> <br /> .子程序 获取签名字符串, 文本型, 公开, 获取计算参数签名字符串<br /> .参数 param, 文本型<br /> .局部变量 signStr, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 k, 文本型<br /> .局部变量 v, 文本型<br /> .局部变量 二次分割, 文本型, , "0"<br /> <br /> .如果真 (g_是否输出调试信息)<br />     调试输出 (“参与签名数据：” ＋ param)<br /> .如果真结束<br /> 分割 ＝ 分割文本 (param, “&”, )<br /> 数组_排序 (分割, 0, )<br /> .计次循环首 (取数组成员数 (分割), x)<br />     二次分割 ＝ 分割文本 (分割 [x], “=”, )<br />     .如果真 (取数组成员数 (二次分割) ≠ 2)<br />         到循环尾 ()<br />     .如果真结束<br />     k ＝ 二次分割 [1]<br />     v ＝ 二次分割 [2]<br />     .如果真 (k ≠ “signature” 且 k ≠ “appId”)<br />         .如果 (x ＝ 取数组成员数 (分割))<br />             signStr ＝ signStr ＋ k ＋ “=” ＋ v<br />         .否则<br />             signStr ＝ signStr ＋ k ＋ “=” ＋ v ＋ “&”<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (g_是否输出调试信息)<br />     调试输出 (“签名字符串：” ＋ signStr)<br /> .如果真结束<br /> 返回 (signStr)<br /> <br /> .子程序 获取当前时间戳, 文本型, 公开, 获取当前时间戳<br /> <br /> 返回 (时间_取现行时间戳 (假))<br /> <br /> .子程序 获取字符串md5值, 文本型, 公开, 获取字符串md5值<br /> .参数 str, 文本型<br /> <br /> 返回 (校验_取md5 (编码转换 (到字节集 (str), #编码_GB2312, #编码_UTF_8, ), 假, 假))<br /> <br /> .子程序 获取随机字符串, 文本型, 公开, 获取随机字符串<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (16, i)<br />     结果 ＝ 结果 ＋ 到文本 (取随机数 (0, 9))<br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 参数重复检测, 逻辑型<br /> .参数 key, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 k, 文本型<br /> .局部变量 v, 文本型<br /> .局部变量 二次分割, 文本型, , "0"<br /> <br /> <br /> 分割 ＝ 分割文本 (集_Params, “&”, )<br /> 数组_排序 (分割, 0, )<br /> .计次循环首 (取数组成员数 (分割), x)<br />     二次分割 ＝ 分割文本 (分割 [x], “=”, )<br />     .如果真 (取数组成员数 (二次分割) ≠ 2)<br />         到循环尾 ()<br />     .如果真结束<br />     k ＝ 二次分割 [1]<br />     v ＝ 二次分割 [2]<br />     .如果真 (k ＝ key)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)

  

全局变量名	类 型	数组	公开	备 注
g_Host	文本型
g_AppId	文本型
g_AppKey	文本型
g_AesKey	文本型
g_时差最小值	整数型
g_时差最大值	整数型
g_是否输出调试信息	逻辑型

.版本 2<br /> <br /> .全局变量 g_Host, 文本型<br /> .全局变量 g_AppId, 文本型<br /> .全局变量 g_AppKey, 文本型<br /> .全局变量 g_AesKey, 文本型<br /> .全局变量 g_时差最小值, 整数型<br /> .全局变量 g_时差最大值, 整数型<br /> .全局变量 g_是否输出调试信息, 逻辑型

丿Mrs°戮默

出门右拐 定制区.

q1472

出门右拐，定制区

NO_BB

直接用酷烧云不更爽？直接下载官方提供的源码搞定
RSA算法 在线售卡自动发卡 远程函数......


酷烧云：WWW.KUSHAO.NET