dim message : message = "hogehoge" Dim data As Byte() = System.Text.Encoding.UTF8.GetBytes(message) Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider() Dim bs As Byte() = md5.ComputeHash(data) md5.Clear() Dim md5hash As New System.Text.StringBuilder() Dim b As Byte For Each b In bs md5hash.Append(b.ToString("x2")) Next b '結果を表示 Console.WriteLine(md5hash)