Foxtable(狐表) → 用户栏目 → 专家坐堂 → token验证失败


  共有3688人关注过本帖树形打印复制链接

主题：token验证失败
帅哥哟，离线，有人找我吗？
qqhealth
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		token验证失败  发帖心情 Post By：2019/11/17 19:51:00 [只看该作者]

老师您好，帮助代码中的token已改为sinohmo,但是验证失败，不知问题在哪？谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：批注 2019-11-17 194543.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/17 20:32:00 [只看该作者]

服务端代码也要跟着改的http://www.foxtable.com/mobilehelp/topics/0175.htm

Dim token = "foxtable" '必须和设置的Token相同
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/11/17 21:38:00 [只看该作者]

老师您好，我是在BS项目的服务端按照帮助改的服务端代码，出现token验证失败。谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/17 21:58:00 [只看该作者]

贴出服务端对应的完整代码看看

Dim token = "sinohmo" '必须和设置的Token相同
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/11/17 22:39:00 [只看该作者]

httprequest:

Case "wefox"
        If e.Request.HttpMethod.ToUpper = "GET"
            If Functions.Execute("VerifySignature",e) Then
                e.WriteString(e.GetValues("echostr"))
            End If
        End If

自定义函数VerifySignature：
Dim e As RequestEventArgs = Args(0)
Dim token = "sinohmo" '必须和设置的Token相同
Dim signature As String = e.GetValues("signature")
Dim timestamp As String = e.GetValues("timestamp")
Dim nonce As String = e.GetValues("nonce")
Dim echostr As String = e.GetValues("echostr")
Dim aryTmp() As String = {token,timestamp,nonce}
Array.Sort(aryTmp)
Dim strTmp As String = String.Join("", aryTmp)
strTmp = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strTmp, "SHA1")
Return signature = strTmp.ToLower

调试工具结果，没有调试token验证的，access token验证可以

图片点击可在新窗口打开查看此主题相关图片如下：批注 2019-11-17 2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/17 23:00:00 [只看该作者]

httprequest事件能不能触发？请把完整事件代码发上来

msgbox(e.path) ‘能不能弹出？
select case e.path
Case "wefox"
        If e.Request.HttpMethod.ToUpper = "GET"
            If Functions.Execute("VerifySignature",e) Then
                e.WriteString(e.GetValues("echostr"))
            End If
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/11/18 10:13:00 [只看该作者]

老师您好，
msgbox(e.path) 
select case e.path
...
Case "wefox"
        If e.Request.HttpMethod.ToUpper = "GET"
            If Functions.Execute("VerifySignature",e) Then
                e.WriteString(e.GetValues("echostr"))
            End If
        End If
end select  这样可以弹出。

select case e.path
...
msgbox(e.path) 
Case "wefox"
        If e.Request.HttpMethod.ToUpper = "GET"
            If Functions.Execute("VerifySignature",e) Then
                e.WriteString(e.GetValues("echostr"))
            End If
        End If
end select  这样就不能弹出。
完整代码如下，谢谢！
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:httprequest代码.txt
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/18 10:42:00 [只看该作者]

if e.path = "wefox"
        If e.Request.HttpMethod.ToUpper = "GET"
            If Functions.Execute("VerifySignature",e) Then
                e.WriteString(e.GetValues("echostr"))
            End If
        End If
else
Dim wb As New weui '身份验证
Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim UserName As String = e.Cookies("username")
Dim Password As String = e.Cookies("password")
If e.Path = "logon.htm" '验证用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
    End If
End If
………………原来httprequest的其它代码
end if
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/11/18 12:05:00 [只看该作者]

谢谢老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询