我已经用这个代码转换了“密码”输入
Dim password As String = (MyPass + MyUName)
Dim mhash As HashAlgorithm = New SHA1CryptoServiceProvider
Dim bytValue() As Byte = System.Text.Encoding.UTF8.GetBytes(password)
Dim bytHash() As Byte = mhash.ComputeHash(bytValue)
mhash.Clear()
ENPass = Convert.ToBase64String(bytHash)
使用此代码,我将取回一个与 bytHash 相同的字节数组
Dim Text As String = Convert.ToString(OfficeCommsRecs(5))
Dim oReturn As New StringBuilder
Dim Separator As String = ("")
For Each Character As Byte In ASCIIEncoding.ASCII.GetBytes(Text)
oReturn.Append(Convert.ToString(Character, 2).PadLeft(8, "1"))
oReturn.Append(Separator)
Next
Dim myPass As Object = oReturn
我该怎么做才能取回密码?