| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- UserName的加解密 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113282) |
| -- 作者：一笑 -- 发布时间：2018/1/12 14:54:00 -- UserName的加解密 按照帮助让登录变得更安全（http://www.foxtable.com/mobilehelp/）编写了登录页面， 其中对UserName进行加密并存在： If Verified Then UserID = Rand.NextString(16) \'生成随机用户ID UserName = EncryptText(UserName,"123","123") \'将用户名加密. .... wb.AppendCookie("username",UserName) \'将用户名和密码写入cookie 现在想进入后续网页前进行权限验证，需要使用UserName，用了以下两种方法，都不管用，求解，谢谢！ 1.Dim u As String = e.Cookies("username") UserName = DecryptText(u,"123","123") 2. UserName = DecryptText(UserName,"123","123") |
| -- 作者：有点甜 -- 发布时间：2018/1/12 15:16:00 -- 1、报什么错？
2、执行下面代码得到什么？
Dim u As String = e.Cookies("username") msgbox(u) |
| -- 作者：一笑 -- 发布时间：2018/1/12 16:31:00 -- 经测试： Dim u As String = e.Cookies("username") u显示为：“aKrghjhgfQY=” Dim u1 As String = DecryptText(u,"123","123") u1没有显示（空白）
|
| -- 作者：有点甜 -- 发布时间：2018/1/12 16:38:00 -- 修改代码
msgbox(username) UserName = EncryptText(UserName,"123","123") \'将用户名加密. msgbox(username)
然后退出登录，重新登陆，看弹出什么。
同时看下面代码弹出什么
Dim u As String = e.Cookies("username") msgbox(u) |