日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

10年積累的成都網(wǎng)站設(shè)計、做網(wǎng)站經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你，你也不認識我。但先網(wǎng)站設(shè)計制作后付款的網(wǎng)站建設(shè)流程，更有孟州免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

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

 
 
 

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

【編輯推薦】