vb.net md5加密字符串

最新推荐文章于 2018-04-28 10:06:55 发布

jiangmaple

最新推荐文章于 2018-04-28 10:06:55 发布

阅读量1.1k

点赞数

文章标签： vb.net 加密 hex string function integer

本文链接：https://blog.csdn.net/jiangmaple/article/details/5947140

版权

以下是我编程时，网上复制的，调试时发觉和我以前VB6的输出结果有出入，我做了一点修改。

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 Str_MD5 As String = ""
        Select Case Code
            Case 16 '选择16位字符的加密结果
                For i = 4 To 11
                    Str_MD5 += Hex(Hashvalue(i)).ToLower
                Next

Case Else 'Code错误时或者选择32位字符加密时，返回全部字符串，即32位字符
For i = 0 To Hashvalue.Length - 1

                    Str_MD5 += IIf(Hex(Hashvalue(i)).ToLower = "0", "00", Hex(Hashvalue(i)).ToLower) '此处增加了对0的判断，防止十六进制0时，返回0
                Next
        End Select
        MD5 = UCase(Str_MD5)
    End Function