MD5 Encrypt...

MD5 Encrypt

Need Import System Private Namespace:

Imports System.Security

Imports System.Security.Cryptography

这里只生成MD5的加密代码， 使用时，只需要将用户输入的密码加密后与数据库的里的ME5 密码做比较，如果一致就通过，这样就避免密码的明文直接暴露在外面。代码很简单，只几句话。

Source Code: MD5Encrypt.aspx.vb

Imports System.Security

Imports System.Security.Cryptography

Partial Class MD5Encrypt

Inherits System.Web.UI.Page

Public Function Encrypt(ByVal lstg_password As String) As String

Dim Lbyte_SourceBytes As Byte() = New UnicodeEncoding().GetBytes(lstg_password)

Dim Lbyte_HashedBytes = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(Lbyte_SourceBytes)

Return BitConverter.ToString(Lbyte_HashedBytes)

End Function

Protected Sub Button_MD5Encrypt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_MD5Encrypt.Click

Me.TextBox_MD5.Text = Me.Encrypt(Me.TextBox_Password.Text)

End Sub

End Class

--Test Result--