私はすでにこのコードで「パスワード」入力を変換しています
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
パスワードを取り戻すにはどうすればよいですか?