網絡其實有的時候不是很安全，在傳輸的過成中可能受到攻擊，在這里我為大家講解 VB.NET MD5加密字符串的實現方法，大家可以試試。

VB.NET MD5加密字符串的實現方法

Imports System.Text  
Imports System.Security.Cryptography  
Public Class Form1Class Form1  
Inherits System.Windows.Forms.Form  
#Region " Windows 窗體設計器生成的代碼 "  
Public Sub New()Sub New()  
MyBase.New()  
'該調用是 Windows 窗體設計器所必需的。  
InitializeComponent()  
'在 InitializeComponent() 調用之后添加任何初始化  
End Sub  
'窗體重寫 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 窗體設計器所必需的  
Private components As System.ComponentModel.IContainer  
'注意: 以下過程是 Windows 窗體設計器所必需的  
'可以使用 Windows 窗體設計器修改此過程。  
'不要使用代碼編輯器修改它。  
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)  
'轉換為哈希值Byte數組  
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這個類需要引用，它提供了安全方面的服務，用于MD5只是它的一個毛皮功夫。以上是有關VB.NET MD5加密字符串的實現方法的一個演示，不是很難吧。

【編輯推薦】

1. 剖析VB.NET平臺調用是如何執行操作
2. 分享個人總結VB.NET多線程
3. 詳細說明VB.NET變量中四點
4. 三類十二種VB.NET數據類型全面介紹
5. VB.NET初步知識，初學者必看