以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50361)

--  作者:riyuan
--  发布时间:2014/5/5 16:38:00
--  [求助]

要想进入程序,解密密码代码不对,请问要怎么写

admin密码是123

解密出来不正确

请教一下

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:hk.zip


--  作者:Bin
--  发布时间:2014/5/5 16:40:00
--  
代码有误, 你按住CTRL打开项目慢慢调整即可.
--  作者:有点甜
--  发布时间:2014/5/5 16:53:00
--  

 你确定按钮的代码这样写

 

Dim cmd As New SQLCommand
cmd.ConnectionName = "hk"
cmd.CommandText = "select 密码 From [login] where 登陆账号 = \'" & e.Form.Controls("textbox1").value & "\'"
Dim str As String = cmd.ExecuteScalar()
str = DecryptText(str,"xuxuemei","win7")

If str = e.Form.Controls("textbox3").Text AndAlso str <> "" Then
    MainTable = Tables("login")
    e.form.Close
    Forms("main").Open
Else
    msgbox("密码不正确!",64,"提示")
End If

[此贴子已经被作者于2014-5-5 16:54:16编辑过]