[VB.NET] การเข้ารหัสข้อความด้วย MD5
สมาชิกทั่วไป
เลื่อนระดับ
Imports System.Security.Cryptography
Imports System.Text
Public Function MD5(ByVal strString As String) As String
Dim ASCIIenc As New ASCIIEncoding
Dim strReturn As String
Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(strString)
Dim Md5Hash As New MD5CryptoServiceProvider
Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)
strReturn = ""
For Each b As Byte In ByteHash
strReturn = strReturn & b.ToString("x2")
Next
Return strReturn
End Function
แก้ไขล่าสุดเมื่อ 15 พฤษภาคม 2559 เวลา 22:56 น.
โพสต์เมื่อ 10 กรกฎาคม 2562 เวลา 23:10 น.
ความคิดเห็นที่ 1