Foxtable(狐表)用户栏目专家坐堂 → 关于用户名加密解密


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

主题:关于用户名加密解密

帅哥哟,离线,有人找我吗?
wh420
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
关于用户名加密解密  发帖心情 Post By:2020/11/25 15:01:00 [只看该作者]

数据库是SQL ,里面的用户名和密码字段已经使用EncryptText(Val1,"a23","op#")加密,请问老师下面代码如何对已经加密的两个字段进行解密?(由于里面使用了“让登录变得更安全”例子代码,所以两次加密解密有点蒙圈)

    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
        Dim Verified As Boolean '用于标记用户是否通过了身份验证
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
        Dim dr1 As DataRow = DataTables("Table_User").SQLFind("UseName='" & UserName & "'")
        
        If dr1 IsNot Nothing  Then
            If dr1("UserPWd") = Password Then
                Verified  = True
            End If
        End If
        
        If Verified Then
            UserID = Rand.NextString(16) '生成随机用户ID
            UserName = EncryptText(UserName,"whblq","whblq") '将用户名加密.
            Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")
            If  dr IsNot Nothing Then '如果是重复登录,删除以前的登录信息
                dr.Delete()
            End If
            dr = UserTable.AddNew()
            dr("UserName") = UserName
            dr("UserID") = UserId
            dr("ActiveTime") = Date.Now '记录登录时间
            wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
            wb.AppendCookie("userid",UserID)
            wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
            e.WriteString(wb.Build) '生成网页
            Return '必须的
        End If
    End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/25 16:06:00 [只看该作者]

什么地方需要用到解密后的额数据?

 回到顶部