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