Imports System

​

Imports System.Security.Cryptography

​

Imports System.Text             

Public Module Module1

    Public Sub Main()

         Dim md5Hasher As MD5CryptoServiceProvider = New MD5CryptoServiceProvider()

        Dim hashedBytes As Byte()

        hashedBytes = md5Hasher.ComputeHash(Encoding.UTF8.GetBytes("password"))

​

​

        Console.WriteLine(Convert.ToBase64String(hashedBytes)) 'Base64 output

    End Sub

End Module