|
确实是不太好用,主要我这边没有固定IP,主动发送现在需要设置白名单,不太方便,这是我的代码,麻烦看下有印象没
|
消息推送_被动回复_文本消息 | 文本型 | | |
UserID | 文本型 | | | | 回复消息 | 文本型 | | | | Url_nonce | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 局_random | 字节集 | | | 局_msg_len | 字节集 | | | 局_msg | 文本型 | | | 局_rand_msg | 字节集 | | | 局_msg_encrypt | 文本型 | | | 局_AESKey | 字节集 | | | 局_CreateTime | 文本型 | | | 局_msg_signature | 文本型 | | | 局_SHA1 | 文本型 | | 4 |
局_AESKey = 编码_BASE64解码 ( #常_AESkey + “=”, )局_random = 到字节集 (文本_取随机字符 (16, 位或 (1, 2, 4 )) )局_CreateTime = 时间_到时间戳 (, 真, )局_msg = “” + 局_CreateTime + “”局_msg_len = 到字节集 (反转整数字节序 (取文本长度 (局_msg )) ) 局_rand_msg = 局_random + 局_msg_len + 到字节集 (局_msg ) + 到字节集 ( #常_Corpid )局_msg_encrypt = 编码_BASE64编码 (对称加密 (局_rand_msg, 局_AESKey, #对称算法_AES_256_CBC, #数据填充_PKCS7_PADDING, 取字节集左边 (局_AESKey, 16 )) )局_SHA1 [1 ] = #常_Token 局_SHA1 [2 ] = 局_CreateTime 局_SHA1 [3 ] = Url_nonce 局_SHA1 [4 ] = 局_msg_encrypt 数组_排序 (局_SHA1 )局_msg_signature = 校验_取sha1 (到字节集 (局_SHA1 [1 ] + 局_SHA1 [2 ] + 局_SHA1 [3 ] + 局_SHA1 [4 ])) 局_msg_encrypt = “” + 局_CreateTime + “”调试输出 (局_msg_encrypt, “已加密数据”)返回 (局_msg_encrypt )
|
|