.NET中带有口令加密的注册页面

在ASP.NET中提供了加密的功能。名字空间System.Web.Security中包含了类FormsAuthentication，其中有一个方法HashPasswordForStoringInConfigFile。这个方法可以将用户提供的字符变成乱码，然后存储起来。注意此方法是不能继承的。

下面的代码就是在做注册页面时将数据加密后存储到数据库的过程

Imports System.Web.Security

Imports System.Data

Imports System.Data.SqlClient '////////所需要的名称空间

Private Sub Button1_Click(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles Button1.Click

Dim PassFormate As String

'///////////////EncryptPassword调用函数

PassFormate = EncryptPassword(uid.Text， "md5") '//////////或者是EncryptPassword(uid.Text， "sha1")

'TextBox2.Text = EncryptPassword(uid.Text， "md5")

'TextBox3.Text = EncryptPassword(uid.Text， "sha1")

'///////////这些大家自己试验吧

'TextBox4.Text = FormsAuthentication.FormsCookieName

'TextBox5.Text = FormsAuthentication.FormsCookiePath

'TextBox6.Text = FormsAuthentication.GetRedirectUrl(uid.Text， True)

'FormsAuthentication.SetAuthCookie(uid.Text， True)

Dim sql As String = "insert into pwd(uid，pwd) values(@uid，@pwd)"

Dim comm As SqlCommand = New SqlCommand(sql， conn)

conn.Open()

comm.Parameters.Add(New SqlParameter("@uid"， SqlDbType.Char， 16))

comm.Parameters("@uid").Value = uid.Text

comm.Parameters.Add(New SqlParameter("@pwd"， SqlDbType.Char， 16))

comm.Parameters("@pwd").Value = PassFormate

comm.ExecuteNonQuery()

End Sub

'////////////////定义加密函数，可以随时调用。

Function EncryptPassword(ByVal password As String， ByVal passwordformate As String)

If passwordformate = "sha1" Then

EncryptPassword = FormsAuthentication.HashPasswordForStoringInConfigFile(password， "sha1")

ElseIf passwordformate = "md5" Then

EncryptPassword = FormsAuthentication.HashPasswordForStoringInConfigFile(password， "md5")

Else

EncryptPassword = ""

End If

End Function

至于用户的验证也是一样的思路了。