.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
至于用户的验证也是一样的思路了。

查看本文来源