关于MD5加密的问题!
根据MD5CryptoServiceProvider写的一个类!
但是有个问题,其输出的形式是6C-D7-10-71-CC-D0-ED-FE-75-00-23-1C-77-EE-A5-72这样的,与以前的不兼容,具体代码如下,请问如何修改可以将其转换为6CD71071CCD0EDFE7500231C77EEA572形式!
Imports System
Imports System.Security
Imports System.Security.Cryptography
Public Class MD5Class
Private objMD5 As MD5CryptoServiceProvider
Private arrHashInput As Byte()
Private arrHashOutput As Byte()
Sub New()
objMD5 = New MD5CryptoServiceProvider()
End Sub
Private Function ConvertByteArray(ByVal strInput As String) As Byte()
Dim intCount As Integer
Dim arrChar As Char()
arrChar = strInput.ToCharArray()
Dim arrByte(arrChar.Length - 1) As Byte
For intCount = 0 To arrByte.Length - 1
arrByte(intCount) = Convert.ToByte(arrChar(intCount))
Next
Return arrByte
End Function
Public Function MD5(ByVal strInput As String) As String
Dim strRet As String
arrHashInput = ConvertByteArray(strInput)
arrHashOutput = objMD5.ComputeHash(arrHashInput)
strRet = BitConverter.ToString(arrHashOutput)
Return strRet
End Function
End Class