钉钉接口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

调试代码看那一句出错

Dim token = "eCIFS6iSGBq" '必须和设置的Token相同

Dim signature As String = e.GetValues("signature")

msgbox(signature) '消息框正常显示对应值；

Dim timestamp As String = e.GetValues("timestamp")

msgbox(timestamp) '消息框正常显示对应值；

Dim nonce As String = e.GetValues("nonce")

msgbox(nonce) '消息框正常显示对应值；

Dim encrypt As String = e.PlainText

msgbox(encrypt) '消息框正常显示对应值；

Dim jo As JObject = JObject.Parse(encrypt )

msgbox(jo) '没有显示出此消息框，报错内容：.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：项目,HttpRequest

详细错误信息：

参数“Prompt”无法转换为类型“String”。

Dim ding As new DingTalkEncryptor("eCIFS6iSGBq", "xlfwRsEMmY9x31oi9Koa", "dingdb4f9d71e09")

Dim res As String = ding.getDecryptMsg(signature , timestamp, nonce , encrypt)

msgbox(res) '显示解密的事件内容

'其它处理

Dim msg = ding.getEncryptedMap("success")

Dim po As New JObject

po("signature") = msg("signature")

msgbox(po("signature")) '显示解密的事件内容

po("timeStamp") = msg("timeStamp")

msgbox(po("timeStamp")) '显示解密的事件内容

po("nonce") = msg("nonce")

msgbox(po("nonce")) '显示解密的事件内容

po("encrypt") = msg("encrypt")

msgbox(po("encrypt")) '显示解密的事件内容

e.WriteString(po.ToString) '返回success的加密数据

msgbox(po.ToString) '显示解密的事件内容

这句代码先去掉，

Dim jo As JObject = JObject.Parse(encrypt )

老师我去掉下面这两句报错

Dim jo As JObject = JObject.Parse(encrypt )

msgbox(jo)

和仅去掉msgbox(jo) 报错一样

报错：Foxtable 版本：2020.5.29.8

错误所在事件：项目,HttpRequest

详细错误信息：

签名计算失败

老师弹出的前三个消息框都是直接d85322这样的数字或子母；第四个消息框是：{"encrypt":"1ojQf0NSvw2WPvW7LijxS8UvISr8pdDP+rXpPbcLGOmIBNbWetRg7IP0vdhVgkVwSoZBJeQwY2zhROsJq/HJ+q6tp1qhl9L1+ccC9ZjKs1wV5bmA9NoAWQiZ+7MpzQVq+j74rJQljdVyBdI/dGOvsnBSCxCVW0ISWX0vn9lfghjkl"

}

把前4个信息框内容以及下面完整信息发上来我核对一下

Dim ding As new DingTalkEncryptor("eCIFS6iSGBq", "xlfwRsEMmY9x31oi9Koa", "dingdb4f9d71e09")

cb3f00d251f64a6294420573883f05b97ffa0e0c

1614148489412

ahMIPTlX

{"encrypt":"yPosdui79l8cF/6CcOyZZXZJ0z7VRWgK4VMPfnsmpmrgLZP87pvxGhhMpdAXiqGnYiwVMOLss1Twi+7xgxByFKNOXWpX5rsO9Grr+XYKFtDVR81AF/K3DlEIjOvTYFNY"}

Dim ding As new DingTalkEncryptor("KTW2OByavJxK6jEZJWHZ4UVzRCBtqkQWWShZO3C", "7C71rDjThu76ZeRqz92k0fGQWLSBXYnGZWcFZebIyky", "dingdb4f9d27f74502f6a39a90f97fcb1e09")

corpid值不正确，不是设置回调的这个应用的corpid

Dim ding As new DingTalkEncryptor("KTW2OByavJxK6jEZJWHZ4UVzRCBtqkQWWShZO3C", "7C71rDjThu76ZeRqz92k0fGQWLSBXYnGZWcFZebIyky", "dingcixyr5lfflgnlvdg")

跟钉钉客服确认了，是这个。但是还是一样未签名的报错

蓝老师，是不是DingTalkEncryptor变量定义的有问题？？

Dim token = "eCIFS6iSGBq" '必须和设置的Token相同

Dim signature As String = e.GetValues("signature")

Dim timestamp As String = e.GetValues("timestamp")

Dim nonce As String = e.GetValues("nonce")

Dim encrypt As String = e.PlainText

Dim jo As JObject = JObject.Parse(encrypt )

Dim ding As new DingTalkEncryptor("eCIFS6iSGBq", "xlfwRsEMmY9x31oi9Koa", "dingdb4f9d71e09")

Dim res As String = ding.getDecryptMsg(signature , timestamp, nonce , jo("encrypt"))

msgbox(res) '显示解密的事件内容

'其它处理

Dim msg = ding.getEncryptedMap("success")

主题：钉钉接口