主题：[求助]md5加密

转换代码，请参考，细节自己调整

http://converter.telerik.com/

比如

Public Function Encrypt(ByVal Text As String, ByVal sKey As String) As String
    Dim des As System.Security.Cryptography.DESCryptoServiceProvider = New System.Security.Cryptography.DESCryptoServiceProvider()
    Dim inputByteArray As Byte()
    inputByteArray = Encoding.[Default].GetBytes(Text)
    des.Key = ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))
    des.IV = ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))
    Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream()
    Dim cs As System.Security.Cryptography.CryptoStream = New System.Security.Cryptography.CryptoStream(ms, des.CreateEncryptor(), System.Security.Cryptography.CryptoStreamMode.Write)
    cs.Write(inputByteArray, 0, inputByteArray.Length)
    cs.FlushFinalBlock()
    Dim ret As StringBuilder = New StringBuilder()

    For Each b As Byte In ms.ToArray()
        ret.AppendFormat("{0:X2}", b)
    Next

    Return ret.ToString()
End Function