编辑完请求地址,单击保存按钮时,开放平台会向你配置的网址推送一个 application/json 格式的 POST 请求, 用于验证你配置的网址的合法性。请求如下:
{
"encrypt": "ajls384kdjx98XX"
}
当你收到开放平台的POST验证请求时,你需要做解密处理,并在1500ms内返回包含success的加密字符串给钉钉,否则钉钉服务器将认为url不合法。
老师这个代码该如何写啊?
Select Case e.path
Case "web"
If e.Request.HttpMethod = "GET" Then
Dim token = "liO93UqdEcOwpu4Sy9rYS9gT09Ktyqve1u" '必须和设置的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.GetValues("encrypt")
Dim aryTmp() As String = {token,timestamp,nonce}
Array.Sort(aryTmp)
Dim strTmp As String = String.Join("", aryTmp)
strTmp = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strTmp, "khtbRfeKOxpSK5bDF94tpQssViqhOCUV5ObavW") '这个我写的是aes_key
If signature = strTmp.ToLower() Then
e.WriteString(encrypt)
End If
End If
End Select
老师这是在 httprequest中写的代码,保存是报错。提示:
HTTP请求结果校验返回字段值失败 HttpRequest: curl 'http://29.60.17.116:6807/web/?signature=2c7f51416e5915e217e4a2837560da0c4&msg_signature=2c7f51416915e2c7e54c7560da0c4×tamp=1614040020384&nonce=76gxOJzi' -d '{"encrypt":"QlzyVA1wOPI3PJM/k2OwVyYL9C/thbWRDWnJIPacc6dasvGrv7mQKmrPtI10lH/M5/P7Htl57VtiukahLKoPYnJQ4wC2J/kPKg5SlOjRGNhzpwLmjajeAt5P"}' -H 'Content-Type:application/json' HttpCode:200 HttpReponse:
[此贴子已经被作者于2021/2/23 8:44:58编辑过]