Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim s As String = "müller"
        Dim hash1 As String = ComputeHash(s)
 
        '// php result for müller:
        '// b50c33b6ee60b5323007d043c0c57f8c
        Dim hash2 As String = "b50c33b6ee60b5323007d043c0c57f8c"
 
        Debug.WriteLine(".net hash: " + hash1)
        Debug.WriteLine(" php hash: " + hash2)
 
        Debug.WriteLine("is equal: " + hash1.Equals(hash2).ToString)
    End Sub
 
    Public Shared Function ComputeHash(ByVal str As String) As String
        Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim buffer() As Byte = System.Text.Encoding.Default.GetBytes(str)
        Dim hash() As Byte = md5.ComputeHash(buffer)
        Dim HashString As String
        For Each a As Byte In hash
            If a < 16 Then
                HashString += "0" + a.ToString("X")
            Else
                HashString += a.ToString("X")
            End If
        Next
        Return HashString.ToLower()
    End Function