问题已解决，有和我同样问题的朋友请看这里
http://community.csdn.net/Expert/TopicView1.asp?id=5294458
谢谢大家的支持！

MD5加密方法很多，我现在用这个，可以选择加密位数。。。    

    ''' <summary>
    ''' MD5加密
    ''' </summary>
    ''' <param name="strSource">加密的字符串</param>
    ''' <param name="Code">加密位数</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function MD5(ByVal strSource As String, ByVal Code As Int16) As String
        '这里用的是ascii编码密码原文，如果要用汉字做密码，可以用UnicodeEncoding，但会与ASP中的MD5函数不兼容
        Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)
        Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
        Dim i As Integer
        Dim strMd5 As String = ""
        Select Case Code
            Case 16 '选择16位字符的加密结果
                For i = 4 To 11
                    strMd5 += Hex(hashvalue(i)).ToLower
                Next
            Case 32 '选择32位字符的加密结果
                For i = 0 To 15
                    strMd5 += Hex(hashvalue(i)).ToLower
                Next
            Case Else 'Code错误时，返回全部字符串，即32位字符
                For i = 0 To hashvalue.Length - 1
                    strMd5 += Hex(hashvalue(i)).ToLower
                Next
        End Select
        Return strMd5
    End Function