Imports System

Imports System.Text

Imports System.Security.Cryptography

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine(Encrypt("MySuperStrongPass123"))

    End Sub

    Public Function Encrypt(ByVal cleanString As String) As String

        Dim clearBytes As [Byte]()

        clearBytes = New UnicodeEncoding().GetBytes(cleanString)

        Dim hashedBytes As [Byte]() = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(clearBytes)

        Dim hashedText As String = BitConverter.ToString(hashedBytes)

        Return hashedText

    End Function

End Module

​

​