Il blog del Sorro

Function GetMD5(ByVal input As String) As String Dim md5Hasher As MD5 = MD5.Create() Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input)) Dim sBuilder As New StringBuilder() Dim i As Integer For i…