Function EncMD5(ByVal input As String) As String
Dim md5Hashfc As MD5 = MD5.Create()
Dim data As Byte() = md5Hashfc.ComputeHash(Encoding.Default.GetBytes(input))
Dim sBuilder As New StringBuilder()
Dim i As Integer
For i = 0 To data.Length - 1
sBuilder.Append(data(i).ToString("x2"))
Next i
Return sBuilder.ToString()
End Function
เวลาเรียกใช้ก็เอามันไปเข้ารหัสก่อนค่อยตรวจสอบครับ
Code (VB.NET)
Password='" & EncMD5("'" & txtPassword.Text & "'
เอาค่าที่รับได้จาก textbox มาเข้ารหัสในฟังก์ชัน แล้วเอาค่าที่ได้ string 32 ตัวไปเก็บใน DB
เวลาเรียกใช้ก็เอาค่าที่ได้รับจาก textbox มาเข้ารหัส MD5 แล้วเอาไปเทียบกับใน DB ถ้าตรงกัน แสดงว่าถูกต้องครับ