md5 加密

网上转的，测试一下OK。

    '16位或者32位MD5加密
    Public Function md5(ByVal str As String, ByVal code As Integer) As String
        If (code = 16) Then '16位md5加密码(取32位加密的9~25字符)
            Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower.Substring(8, 16)
        Else '32位加密
            Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower
        End If
    End Function