C# MD5加密结果 与 vb MD5加密结果 不一样。请问这是正常现象 还是我的代码有问题?这是C#的 MD5 代码:protected string UserMd5(string str1)
{
string cl1 = str1;
string pwd = "";
MD5 md5 = MD5.Create();
// 加密后是一个字节类型的数组
byte[] s = md5.ComputeHash(Encoding.Unicode.GetBytes(cl1));
// 通过使用循环,将字节类型的数组转换为字符串,此字符串是常规字符格式化所得
for (int i = 0; i < s.Length; i++)
{
// 将得到的字符串使用十六进制类型格式。格式后的字符是小写的字母,如果使用大写(X)则格式后的字符是大写字符
pwd = pwd + s[i].ToString("x");
}
return pwd;
}
这是vb 的MD5加密代码: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 += Hex(Hashvalue(i)).ToLower
Next
End Select
MD5 = Str_MD5
End Function
{
string cl1 = str1;
string pwd = "";
MD5 md5 = MD5.Create();
// 加密后是一个字节类型的数组
byte[] s = md5.ComputeHash(Encoding.Unicode.GetBytes(cl1));
// 通过使用循环,将字节类型的数组转换为字符串,此字符串是常规字符格式化所得
for (int i = 0; i < s.Length; i++)
{
// 将得到的字符串使用十六进制类型格式。格式后的字符是小写的字母,如果使用大写(X)则格式后的字符是大写字符
pwd = pwd + s[i].ToString("x");
}
return pwd;
}
这是vb 的MD5加密代码: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 += Hex(Hashvalue(i)).ToLower
Next
End Select
MD5 = Str_MD5
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货