编出的MD5密文32位的,怎么才能传为16位啊
如题
MD5代码为
Public Function GetMD5(ByVal str As String) As String
Dim md5 As New MD5CryptoServiceProvider
Dim username As Byte() = (New ASCIIEncoding).GetBytes(str)
'转换为哈希值Byte数组
Dim mdByte As Byte() = md5.ComputeHash(username)
Dim mdString As String = System.BitConverter.ToString(mdByte)
'Dim mdString As String = (New ASCIIEncoding).GetString(mdByte)
mdString = Replace(mdString, "-", "")
Return mdString
End Function
先谢谢啦,在线等!!!!!!!!!!!!!!!