网络其实有的时候不是很安全，在传输的过成中可能受到攻击，在这里我为大家讲解 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加密字符串的实现方法的一个演示，不是很难吧。
【编辑推荐】
