| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 前段加密后端解密问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179718) |
| -- 作者：252476275 -- 发布时间：2022/9/5 16:23:00 -- 前段加密后端解密问题 需要完成前端加密用户名与密码 使用js 的 bcypt.js进行加密 在后台，如何加载这个js文件进行解密呢？
|
| -- 作者：252476275 -- 发布时间：2022/9/5 16:25:00 -- Static UserTable As DataTable = DataTables("表A") Static ClearTime As Date \'上一次的清除时间 If (Date.Now - ClearTime).TotalMinutes >= 30 Then \'清除超过30分钟没有操作的登录信息 UserTable.DeleteFor("ActiveTime < #" & Date.Now.AddMinutes(-30) & "#") ClearTime = Date.Now() End If \'output.show("判断路径是否有问题1:" & e.Path) \'身份验证 Dim str,username,password,token As String Dim dr As DataRow Dim obj As New JObject obj("PlainText") = e.PlainText \' output.show("传入e.Path : " & e.Path) Functions.Execute("showMsg2Form1", "传入e.Path : " & e.Path) If e.Path = "" OrElse e.path = "index" Then \'如果没有输入路径或者为index,就跳到首页 \'Output.Show("1") str = "<meta http-equiv=\'refresh\' c>" e.WriteString(str) Return \'返回 Else If e.Path = "login" \'如果是登录验证 \'Output.Show("2") username = e.Values("username") password = e.Values("password") \'""?%-& output.show( "RBD\'x" Like "*[\'-&%]*" ) If username Like "*[\'-&?%]*" Then obj("code") = 401 \'登录失败状态码 obj("Desc") = "用户名不合规" |
| -- 作者：有点蓝 -- 发布时间：2022/9/5 16:28:00 -- 参考这种：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=160819&skin=0，看4楼 [此贴子已经被作者于2022/9/5 16:27:55编辑过]
|