' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Text Imports System.Security.Cryptography Class MainClass Public Shared Sub Main(ByVal args As String()) Dim input As String = "Dette er en lille test streng" Dim utf8 As Encoding = New UTF8Encoding Dim md5 As MD5 = New MD5CryptoServiceProvider Dim output As String = Convert.ToBase64String(md5.ComputeHash(utf8.GetBytes(input))) Console.WriteLine(input & " -> " & output) End Sub End Class