Imports System

Imports System.Security.Cryptography

Imports System.Text

​

Public Module Module1

    Public Sub Main()

        Dim input As String = "hello world"

        Console.WriteLine(md5hash(input))

    End Sub

    Public Function md5hash(txt As String)

        Dim md5 As New MD5CryptoServiceProvider()

        Dim hash AS Byte() = md5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(txt))

        Dim result As New StringBuilder()

        For i As Integer = 0 To 9 ' Change this to hash.Length -1 to get the full hash

            If i Mod 2 = 0 AndAlso i > 0 Then result.Append("-"c)

            result.Append(hash(i).ToString("X2"))          

        Next

        return result.ToString()

    End Function

End Module