这篇文章很早之前就发在csdn博客上,现在转发一下Imports System.IOImports System.SecurityImports System.Security.CryptographyImports System.Text Public Function funcMD5()Function funcMD5(ByVal str As String) As String Return BitConverter.ToString(CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash((New UnicodeEncoding).GetBytes(Trim(str)))) End Function