يك تابع براي هش كردن MD5

[navid heidarpour]

با سلام
يك تابع براي هش كردن MD5 مي خواستم
اگر كسي چيزي داره واقعا ممنون ميشم

[mostafaaa]

سلام دوست من

Function getMd5Hash(ByVal input As String) As String
' Create a new instance of the MD5 object.
Dim md5Hasher As MD5 = MD5.Create()
' Convert the input string to a byte array and compute the hash.
Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(in put))
' Create a new Stringbuilder to collect the bytes
' and create a string.
Dim sBuilder As New StringBuilder()
' Loop through each byte of the hashed data
' and format each one as a hexadecimal string.
Dim i As Integer
For i = 0 To data.Length - 1
sBuilder.Append(data(i).ToString("x2"))
Next i
' Return the hexadecimal string.
Return sBuilder.ToString()
End Function

[abi_sarab]

می شه توضیح بدید Md5 چیه؟

[mostafaaa]

سلام دوست من
http://www.barnamenevis.org/forum/showthread.php?t=10025