易语言写企业VXURL验证

xj22710

用的是局域网穿透模式，能正常接收VX方发来的验证信息
发送数据成功，VX方验证不通过，返回：服务器异常，请稍后再试





补充内容 (2025-2-13 12:42):
我这个是提问贴，不是源码分享啊，有没有人能解决我的问题？

515667395

多谢分享

sdlovets

谢谢分享  学习一下

sdlovets

传递参数 把返回的参数 回复即可

  

子程序名	返回值类型	公开	备 注
消息处理_API授权	文本型		实现回调验证和消息解密
参数名	类 型	参考	可空	数组	备 注
类型	文本型
Url_msg_signature	文本型
Url_timestamp	文本型
Url_nonce	文本型
Url_echostr	文本型

变量名	类 型	静态	数组	备 注
echostr	文本型
AESKEY	字节集			解密
aes_msg	字节集
rand_msg	字节集
签名	文本型			计算签名
数据长度	整数型
返回数据	文本型

AESKEY ＝ 编码_BASE64解码 ( #常_AESkey ＋ “=”, )
echostr ＝ Url_echostr
aes_msg ＝ 编码_BASE64解码 (Url_echostr, )
签名 ＝ 数据处理_签名计算 ( #常_Token, Url_timestamp, Url_nonce, echostr)
如果真 (签名 ≠ Url_msg_signature)
输出调试文本 (“签名验证错误！”)
返回 (“-40001”)

rand_msg ＝ 对称解密 (aes_msg, AESKEY, #对称算法_AES_256_CBC, #数据填充_PKCS7_PADDING, 取字节集左边 (AESKEY, 16))
数据长度 ＝ 反转整数字节序 (取字节集数据 (取字节集中间 (rand_msg, 17, 4), #整数型, ))
返回数据 ＝ 编码_Utf8到Ansi (取字节集中间 (rand_msg, 21, 数据长度))
' 返回数据 ＝ 到文本 (取字节集中间 (rand_msg, 21, 数据长度))
' 9203670194679901894
' 回复
返回 (返回数据)

.版本 2<br /> <br /> .子程序 消息处理_API授权, 文本型, , 实现回调验证和消息解密<br /> .参数 类型, 文本型<br /> .参数 Url_msg_signature, 文本型<br /> .参数 Url_timestamp, 文本型<br /> .参数 Url_nonce, 文本型<br /> .参数 Url_echostr, 文本型<br /> .局部变量 echostr, 文本型<br /> .局部变量 AESKEY, 字节集, , , 解密<br /> .局部变量 aes_msg, 字节集<br /> .局部变量 rand_msg, 字节集<br /> .局部变量 签名, 文本型, , , 计算签名<br /> .局部变量 数据长度, 整数型<br /> .局部变量 返回数据, 文本型<br /> <br /> <br /> AESKEY ＝ 编码_BASE64解码 (#常_AESkey ＋ “=”, )<br /> <br /> echostr ＝ Url_echostr<br /> aes_msg ＝ 编码_BASE64解码 (Url_echostr, )<br /> <br /> <br /> 签名 ＝ 数据处理_签名计算 (#常_Token, Url_timestamp, Url_nonce, echostr)<br /> <br /> .如果真 (签名 ≠ Url_msg_signature)<br />     输出调试文本 (“签名验证错误！”)<br />     返回 (“-40001”)<br /> .如果真结束<br /> <br /> rand_msg ＝ 对称解密 (aes_msg, AESKEY, #对称算法_AES_256_CBC, #数据填充_PKCS7_PADDING, 取字节集左边 (AESKEY, 16))<br /> <br /> 数据长度 ＝ 反转整数字节序 (取字节集数据 (取字节集中间 (rand_msg, 17, 4), #整数型, ))<br /> <br /> 返回数据 ＝ 编码_Utf8到Ansi (取字节集中间 (rand_msg, 21, 数据长度))<br /> <br /> ' 返回数据 ＝ 到文本 (取字节集中间 (rand_msg, 21, 数据长度))<br /> ' 9203670194679901894<br /> ' 回复<br /> 返回 (返回数据)

补充内容 (2025-2-18 11:00):
.版本 2

.子程序 数据处理_签名计算, 文本型, , 计算msg_signature
.参数 参_token, 文本型, , 票据
.参数 参_timestamp, 文本型, , 时间戳
.参数 参_nonce, 文本型, ...

sdlovets

  

子程序名	返回值类型	公开	备 注
数据处理_签名计算	文本型		计算msg_signature
参数名	类 型	参考	可空	数组	备 注
参_token	文本型				票据
参_timestamp	文本型				时间戳
参_nonce	文本型				随机字符串
参_echostr	文本型				密文消息

变量名	类 型	静态	数组	备 注
局_参数排序	文本型		4
局_msg_signature	文本型

局_参数排序 [1] ＝ 参_token
局_参数排序 [2] ＝ 参_timestamp
局_参数排序 [3] ＝ 参_nonce
局_参数排序 [4] ＝ 参_echostr
数组_排序 (局_参数排序)
局_msg_signature ＝ 校验_取sha1 (到字节集 (局_参数排序 [1] ＋ 局_参数排序 [2] ＋ 局_参数排序 [3] ＋ 局_参数排序 [4]))
返回 (局_msg_signature)

.版本 2<br /> <br /> .子程序 数据处理_签名计算, 文本型, , 计算msg_signature<br /> .参数 参_token, 文本型, , 票据<br /> .参数 参_timestamp, 文本型, , 时间戳<br /> .参数 参_nonce, 文本型, , 随机字符串<br /> .参数 参_echostr, 文本型, , 密文消息<br /> .局部变量 局_参数排序, 文本型, , "4"<br /> .局部变量 局_msg_signature, 文本型<br /> <br /> 局_参数排序 [1] ＝ 参_token<br /> 局_参数排序 [2] ＝ 参_timestamp<br /> 局_参数排序 [3] ＝ 参_nonce<br /> 局_参数排序 [4] ＝ 参_echostr<br /> 数组_排序 (局_参数排序)<br /> 局_msg_signature ＝ 校验_取sha1 (到字节集 (局_参数排序 [1] ＋ 局_参数排序 [2] ＋ 局_参数排序 [3] ＋ 局_参数排序 [4]))<br /> 返回 (局_msg_signature)