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 …