vb.net数据库密码 vbnet des加密

VB.Net 怎么验证 SQL2008 数据库的ID与密码

基础类库：

Imports Microsoft.VisualBasic

'执行Access语句的封装类。

Public Class AccessExecClass

Private conn As Data.OleDb.OleDbConnection

Private cmd As Data.OleDb.OleDbCommand

'创建类对象，并连接到数据库。

Sub New()

If openAccess Then

Else

msgbox("open Access Fail.")

End If

End Sub

'创建类对象，并连接到数据库。 '输入带目录名称的数据库文件名称：dbFileName，例如：“\DB数据库\企业数据库.aspx”

Sub New(ByVal dbFileName As String)

If OpenAccess(dbFileName) Then

Else

MsgBox("open Access Fail.")

End If

End Sub

Function OpenAccess() As Boolean

OpenAccess = False

'检验用户的帐号密码是否正确

Dim provider As String '= ConfigurationManager.ConnectionStrings("ConnectionString").ProviderName

provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim database As String

database = "Data Source=" System.Web.HttpContext.Current.Server.MapPath("\数据库.aspx") ";Persist Security Info=true"

conn = New Data.OleDb.OleDbConnection(provider ";" database)

conn.Open()

OpenAccess = True

End Function

Function OpenAccess(ByVal dbFileName As String) As Boolean

OpenAccess = False

'检验用户的帐号密码是否正确

Dim provider As String '= ConfigurationManager.ConnectionStrings("ConnectionString").ProviderName

provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim database As String

database = "Data Source=" System.Web.HttpContext.Current.Server.MapPath(dbFileName) ";Persist Security Info=true"

conn = New Data.OleDb.OleDbConnection(provider ";" database)

conn.Open()

OpenAccess = True

End Function

'关闭数据库。

Sub CloseAccess()

cmd = Nothing

conn.Close()

End Sub

'执行一条Access语句，执行成功就返回True。

Function ExecAccessString(ByVal AccessStr As String) As Boolean

cmd = New Data.OleDb.OleDbCommand(AccessStr, conn)

cmd.ExecuteNonQuery()

'Dim aa As Data.OleDb.OleDbDataReader = cmd.ExecuteReader

ExecAccessString = True

End Function

'返回读取到的数据，注意是用地址传递方式返回

Sub ExecAccessString(ByVal AccessStr As String, ByRef AccessReader As Data.OleDb.OleDbDataReader)

cmd = New Data.OleDb.OleDbCommand(AccessStr, conn)

cmd.ExecuteNonQuery()

AccessReader = cmd.ExecuteReader

End Sub

End Class

登陆代码：

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click

Dim wl As New WebLog '用户登录记录开始，仅对购买了Log 功能的用户，才开放此功能，否则不会实际记录Log

Dim sql As String

Dim aDB As New AccessExecClass

Dim mypw As String

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

'没有输入时,不能进行登陆

If TextBox1.Text = "" Then

Label1.Visible = True

Return

End If

If TextBox2.Text = "" Then

Label2.Visible = True

Return

End If

If TextBox3.Text = "" Then

Label3.Visible = True

Return

End If

If TextBox3.Text = TextBox4.Text Then

Else

Label3.Visible = True

Return

End If

Dim iRnd As Integer = Rnd(10) * 100

TextBox3.Text = ""

TextBox4.Text = iRnd.ToString

'Dim iRnd As Integer = Rnd(10) * 100

'注意:此处需要加入防止注入分析,包含'的肯定是特别语句,讲拒绝.

If TextBox1.Text.IndexOf("'") 0 Or TextBox2.Text.IndexOf("'") 0 Then

TextBox1.Text = "不能输入非法字符,将强制清空"

TextBox2.Text = ""

Else

Dim pw As New MD5EnCode(13, 19) ' '2次加密

sql = "select 权限组号,ID , 密码 from 编辑人数据 where 编辑姓名='" + TextBox1.Text + "'"

Dim aa As Data.OleDb.OleDbDataReader '= cmd.ExecuteReader

aDB.ExecAccessString(sql, aa)

If aa.Read() Then

'密码正确()

'sql = aa(2)'需要特别注意：只能单向解密，不能直接转换

mypw = pw.simDeCode(pw.simDeCode(aa(2)))

If TextBox2.Text = mypw Then

Session("LOGIN_Name") = TextBox1.Text '设置登录后的用户名称

Session("Login_Group") = aa(0) 'cmd.ExecuteScalar '设置登录后的权限级别

Session("Login_ID") = aa(1) 'cmd.ToString

'cmd = Nothing

'conn.Close()

Call wl.NewLog("登录", "管理员成功登录")

Response.Redirect("../WebManages/Default.ASPX")

Else

'密码错误()

sql = sql.Replace("'", "【单引号】")

sql = sql.Replace(",", "【逗号】")

Call wl.NewLog("登录", "管理员失败的登录", TextBox1.Text, sql.Replace("""", "【双引号】"), "")

Label4.Visible = True

End If

Else

'密码错误()

sql = sql.Replace("'", "【单引号】")

sql = sql.Replace(",", "【逗号】")

Call wl.NewLog("登录", "管理员失败的登录", TextBox1.Text, sql.Replace("""", "【双引号】"), "")

Label4.Visible = True

End If

End If

End Sub

相关问答

Q1: VB.net中如何调用带密码的Access数据库

"Provider=Microsoft.jet.oledb.4.0;data source=" "含路径的数据库文件" ";Persist Security Info=False

;jet oledb:database password=" "数据库密码"

Q2: vb.net 如何修改access数据库文件的密码

If Trim(ypsw.Text) = "" Then

MsgBox("原密码不能为空！", MsgBoxStyle.Critical)

ElseIf Trim(xpsw.Text) = "" Then

MsgBox("新密码不能为空！", MsgBoxStyle.Critical)

ElseIf Trim(qpsw.Text) Trim(xpsw.Text) Then

MsgBox("确认密码与新密码不一致！", MsgBoxStyle.Critical)

Else

Dim mycon As New OleDbConnection

mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath "\data\Datas.mdb"

mycon.Open()

Dim mycmd As New OleDbCommand

mycmd.CommandText = "select * from 管理员 where 用户名='admin' and 密码='" ypsw.Text " '"

mycmd.Connection = mycon

Dim myada As New OleDbDataAdapter

myada.SelectCommand = mycmd

Dim myda As New DataSet

myada.Fill(myda, "yh")

If myda.Tables("yh").Rows.Count 1 Then

MsgBox("您输入的原密码不正确，请重新输入！", MsgBoxStyle.Critical)

ypsw.Focus()

Else

mycmd.CommandText = "update 管理员 set 密码='" Trim(ypsw.Text) " '"

mycmd.ExecuteNonQuery()

MsgBox("密码修改成功！", MsgBoxStyle.Information)

End If

End If

关于vb.net数据库密码和vbnet des加密的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。