網(wǎng)絡(luò)其實(shí)有的時(shí)候不是很安全，在傳輸?shù)倪^(guò)成中可能受到攻擊，在這里我為大家講解 VB.NET MD5加密字符串的實(shí)現(xiàn)方法，大家可以試試。

VB.NET MD5加密字符串的實(shí)現(xiàn)方法

Imports System.Text  
Imports System.Security.Cryptography  
Public Class Form1Class Form1  
Inherits System.Windows.Forms.Form  
#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "  
Public Sub New()Sub New()  
MyBase.New()  
'該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。  
InitializeComponent()  
'在 InitializeComponent() 調(diào)用之后添加任何初始化  
End Sub  
'窗體重寫(xiě) dispose 以清理組件列表。  
Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)  
If disposing Then  
If Not (components Is Nothing) Then  
components.Dispose()  
End If  
End If  
MyBase.Dispose(disposing)  
End Sub  
'Windows 窗體設(shè)計(jì)器所必需的  
Private components As System.ComponentModel.IContainer  
'注意: 以下過(guò)程是 Windows 窗體設(shè)計(jì)器所必需的  
'可以使用 Windows 窗體設(shè)計(jì)器修改此過(guò)程。  
'不要使用代碼編輯器修改它。  
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox  
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox  
Friend WithEvents Button1 As System.Windows.Forms.Button  
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()  
Me.TextBox1 = New System.Windows.Forms.TextBox  
Me.TextBox2 = New System.Windows.Forms.TextBox  
Me.Button1 = New System.Windows.Forms.Button  
Me.SuspendLayout()  
'  
'TextBox1  
'  
Me.TextBox1.Location = New System.Drawing.Point(32, 56)  
Me.TextBox1.Name = "TextBox1" 
Me.TextBox1.Size = New System.Drawing.Size(144, 21)  
Me.TextBox1.TabIndex = 0 
Me.TextBox1.Text = "" 
'  
'TextBox2  
'  
Me.TextBox2.Location = New System.Drawing.Point(32, 96)  
Me.TextBox2.Name = "TextBox2" 
Me.TextBox2.Size = New System.Drawing.Size(224, 21)  
Me.TextBox2.TabIndex = 1 
Me.TextBox2.Text = "" 
'  
'Button1  
'  
Me.Button1.Location = New System.Drawing.Point(184, 56)  
Me.Button1.Name = "Button1" 
Me.Button1.TabIndex = 2 
Me.Button1.Text = "Button1" 
'  
'Form1  
'Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)  
Me.ClientSize = New System.Drawing.Size(472, 285)  
Me.Controls.Add(Me.Button1)  
Me.Controls.Add(Me.TextBox2)  
Me.Controls.Add(Me.TextBox1)  
Me.Name = "Form1" 
Me.Text = "MD5" 
Me.ResumeLayout(False)  
End Sub  
#End Region  
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
Dim md5 As New MD5CryptoServiceProvider  
Dim username As Byte() = (New ASCIIEncoding).GetBytes(TextBox1.Text)  
'轉(zhuǎn)換為哈希值Byte數(shù)組  
Dim mdByte As Byte() = md5.ComputeHash(username)  
'Dim mdString As String = System.BitConverter.ToString(mdByte)  
Dim mdString As String = (New ASCIIEncoding).GetString(mdByte)  
TextBox2.Text = mdString 
End Sub  
Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
End Sub  
End Class 

System.Security.Cryptography這個(gè)類需要引用，它提供了安全方面的服務(wù)，用于MD5只是它的一個(gè)毛皮功夫。以上是有關(guān)VB.NET MD5加密字符串的實(shí)現(xiàn)方法的一個(gè)演示，不是很難吧。

【編輯推薦】

1. 剖析VB.NET平臺(tái)調(diào)用是如何執(zhí)行操作
2. 分享個(gè)人總結(jié)VB.NET多線程
3. 詳細(xì)說(shuō)明VB.NET變量中四點(diǎn)
4. 三類十二種VB.NET數(shù)據(jù)類型全面介紹
5. VB.NET初步知識(shí)，初學(xué)者必看