MD5

        Dim sText As String = "abcdefg1234567"

        Dim oMD5 As Cryptography.MD5 = Cryptography.MD5.Create

        Dim oBuffer() As Byte = System.Text.Encoding.Unicode.GetBytes(sText)

        oBuffer = oMD5.ComputeHash(oBuffer)

        Dim sMD5Text As String = Convert.ToBase64String(oBuffer)