VB2008!!!从ACCESS数据库1的表1中提取数据(汉字或者数字)转换为字符串..(类似23d7y6fgds868gds98f8s43)我使用的代码 Dim sSourceData As String
Dim tmpSource() As Byte
Dim tmpHash() As Byte
Dim a As String Dim sqlstring As String = "select * from 过滤记录" myconnection.Open() mycommand = New OleDbCommand(sqlstring, myconnection)
myreader = mycommand.ExecuteReader() sSourceData = Me.mycommand.ToString '输入(汉字)库
tmpSource = ASCIIEncoding.ASCII.GetBytes(sSourceData)
tmpHash = New MD5CryptoServiceProvider().ComputeHash(tmpSource)
a = ByteArrayToString(tmpHash) '输出(md5码) Function ByteArrayToString(ByVal arrInput() As Byte) As String
Dim i As Integer
Dim sOutput As New StringBuilder(arrInput.Length)
For i = 0 To arrInput.Length - 1
sOutput.Append(arrInput(i).ToString("X2"))
Next
Return sOutput.ToString()
End Function有更简单的么.谢谢
Dim tmpSource() As Byte
Dim tmpHash() As Byte
Dim a As String Dim sqlstring As String = "select * from 过滤记录" myconnection.Open() mycommand = New OleDbCommand(sqlstring, myconnection)
myreader = mycommand.ExecuteReader() sSourceData = Me.mycommand.ToString '输入(汉字)库
tmpSource = ASCIIEncoding.ASCII.GetBytes(sSourceData)
tmpHash = New MD5CryptoServiceProvider().ComputeHash(tmpSource)
a = ByteArrayToString(tmpHash) '输出(md5码) Function ByteArrayToString(ByVal arrInput() As Byte) As String
Dim i As Integer
Dim sOutput As New StringBuilder(arrInput.Length)
For i = 0 To arrInput.Length - 1
sOutput.Append(arrInput(i).ToString("X2"))
Next
Return sOutput.ToString()
End Function有更简单的么.谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货