vb.net md5加密字符串

以下是我编程时,网上复制的,调试时发觉和我以前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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值