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--