在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) ＆#118alues(@uid,@pwd)"

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

conn.Open()

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

comm.Parameters("@uid").＆#118alue = uid.Text

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

comm.Parameters("@pwd").＆#118alue = 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

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