Imports System.Text 'เนมสเปซของออบเจ็กต์ StringBuilder
Imports System.Security.Cryptography 'เนมสเปซของออบเจ็กต์ Cryptography
'เข้ารหัส Password ด้วย MD5
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 = txtpassword.Text 'ตรงนี้ถ้าเป็นค่าว่าง " " ใส่รหัสอะไรไปก็แปลงออกมาเป็นค่าเดียวกัน
For Each b As Byte In ByteHash
strReturn = strReturn & b.ToString("x2")
Next
Return strReturn
End Function
'การเรียกใช้งาน ฟังก์ชัน MD5
Dim encode As String = MD5(("Pass").ToString)
f encode = txtpassword.Text Then
คงเขียนแบบว่า
update table set field = field + 'lpg3d'
ที่มีอยู่แล้วเป็น bqp3g ไปต่อสตริงเข้าไปอีกมันก็เลยบวกเพิ่มไปเรื่อยๆ
นี่ถ้าผมเดาถูก น้องพราว คงฮาน่าดู
Date :
2010-09-25 20:37:20
By :
PlaKriM
No. 8
Guest
Code (VB.NET)
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)
For Each b As Byte In ByteHash
strReturn = strReturn & b.ToString("x2")
Next
Return strReturn
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = MD5(TextBox1.Text)
End Sub
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)
For Each b As Byte In ByteHash
strReturn = strReturn & b.ToString("x2")
Next
Return strReturn
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = MD5(TextBox1.Text)
End Sub
โทดทีตะกี้ลืม login
ผมว่าพี่ๆเข้าใจกันผิดหมดเขาเขียน function ไม่ผ่านครับ
พี่พิมพ์มาเกินนิดหนึ่งมันผิดที่เดียวเองลบอันนี้ออกใช้ได้
Load balance : Server 00
....
