以文本方式查看主题

-  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编辑过]