前端之家收集整理的这篇文章主要介绍了
[VB.NET]MD5，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
- FunctionGetMd5Hash(ByValinputAsString,ByValcodaAsInteger)AsString
- Dimmd5HasherAsNewMD5CryptoServiceProvider()
- DimdataAsByte()=md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
- DimsBuilderAsNewStringBuilder()
- DimiAsInteger
- Ifcoda=16Then
- Fori=4To11
- sBuilder.Append(data(i).ToString("x2"))
- Nexti
- Else'32位
- Fori=0To15
- sBuilder.Append(data(i).ToString("x2"))
- Nexti
- EndIf
- ReturnsBuilder.ToString()
- EndFunction
原文链接：https://www.f2er.com/vb/264403.html
