求VB2010中可用的MD5加密代码(先给10分，保证：满意答案附加50分以上）

发布网友发布时间：2022-05-09 12:21

共2个回答

热心网友时间：2024-01-30 06:24

Function getMd5Hash(ByVal input As String) As String
Dim md5Hasher As New MD5CryptoServiceProvider()
'下面这一句是用默认的字符串编码方式进行md5加密
'对编码方式不要求的话，可以直接写成
'Dim md5data As Byte() = md5Hasher.ComputeHash(input)
Dim md5data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
Dim md5Builder As New StringBuilder()
Dim i As Integer
For i = 0 To md5data .Length - 1
md5Builder .Append(md5data (i).ToString())
Next i
Return md5Builder .ToString()
End Function
具体说明请参看MSDN.
http://msdn.microsoft.com/zh-cn/library/system.security.cryptography.md5cryptoserviceprovider(v=VS.100).aspx追问你的意思是VB2010有MD5码的内部函数？(如果用词不准确，请见谅)

热心网友时间：2024-01-30 06:25

就冲你最后一句，知道也不告诉你。
是你的分重要还是别人的智慧、生命重要？