[VB.NET]MD5

发布时间：2020-12-16 23:59:03 所属栏目：大数据来源：网络整理

导读：FunctionGetMd5Hash(ByValinputAsString,ByValcodaAsInteger)AsString Dimmd5HasherAsNewMD5CryptoServiceProvider() DimdataAsByte()=md5Hasher.ComputeHash(Encoding.Default.GetBytes(input)) DimsBuilderAsNewStringBuilder() DimiAsInteger Ifcoda=16Th

 
 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
 

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!