哈希每個字符串從文本文件中檢索一個接一個

Question

我已經開始一個新的應用程序哈希從文本文件檢索字符串。 但我無法理清從文本加載到列表框並逐個散列的方式，保存設置並清除列表框並從我的設置中加載所有內容。 嗯，我已經對所有的代碼進行排序，但是我找不到散列列表框中加載的所有字符串的方法。 在這一刻它只是哈希最後一個字符串 ，我需要散列逐一添加到列表框2

這是我的代碼

Imports System.IO 
Imports System.Security.Cryptography 
Imports System.Text 

Public Class Form2 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim md5 As MD5 = System.Security.Cryptography.MD5.Create() 
    Dim inputBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text) 
    Dim hash As Byte() = md5.ComputeHash(inputBytes) 
    Dim sb As New StringBuilder() 
    For i As Integer = 0 To hash.Length - 1 
     sb.Append(hash(i).ToString("x2")) 
    Next 
    Dim openfile = New OpenFileDialog() 
    openfile.Filter = "Text (*.txt)|*.txt" 
    If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then 
     Dim myfile As String = openfile.FileName 
     Dim allLines As String() = File.ReadAllLines(myfile) 
     For Each line As String In allLines 

      ListBox1.Items.Add(line) 

      TextBox2.Text = ListBox1.Items.Add(line) 
      TextBox3.Text = line 
      TextBox2.Text = sb.ToString 
      My.Settings.md5_hashes.Add(TextBox3.Text + "<--->" + TextBox2.Text) 

      My.Settings.Save() 

      ListBox1.Items.Clear() 

     Next 
     For Each item In My.Settings.md5_hashes 
      ListBox1.Items.Add(item) 
     Next 
    End If 

    'TextBox2.Text = sb.ToString 
    'ListBox1.Items.Add(TextBox1.Text + "<--->" + TextBox2.Text) 


End Sub 
End Class 

Answer 1

那麼實際上它是很容易的，但我唐噸在jmcilhinney告訴我在紙面上之前所有人都看到之前編碼坦克給你的幫助很大，因爲我需要去看看。 它只是我面前的解決方案

Imports System.IO 
Imports System.Security.Cryptography 
Imports System.Text 

Public Class Form2 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim openfile = New OpenFileDialog() 
    openfile.Filter = "Text (*.txt)|*.txt" 
    If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then 
     Dim myfile As String = openfile.FileName 
     Dim allLines As String() = File.ReadAllLines(myfile) 
     For Each line As String In allLines 

      ListBox1.Items.Add(line) 
      Using hasher As MD5 = MD5.Create() ' create hash object 

       ' Convert to byte array and get hash 
       Dim dbytes As Byte() = 
        hasher.ComputeHash(Encoding.UTF8.GetBytes(line)) 

       ' sb to create string from bytes 
       Dim sBuilder As New StringBuilder() 

       ' convert byte data to hex string 
       For n As Integer = 0 To dbytes.Length - 1 
        sBuilder.Append(dbytes(n).ToString("X2")) 
       Next n 

       ListBox1.Items.Add(sBuilder.ToString) 
      End Using 
     Next 

     For Each item In My.Settings.md5_hashes 
      ListBox1.Items.Add(item) 
     Next 

    End If 

    'TextBox2.Text = sb.ToString 
    'ListBox1.Items.Add(TextBox1.Text + "<--->" + TextBox2.Text) 


End Sub 
Shared Function GetHash(theInput As String) As String 

    Using hasher As MD5 = MD5.Create() ' create hash object 

     ' Convert to byte array and get hash 
     Dim dbytes As Byte() = 
      hasher.ComputeHash(Encoding.UTF8.GetBytes(theInput)) 

     ' sb to create string from bytes 
     Dim sBuilder As New StringBuilder() 

     ' convert byte data to hex string 
     For n As Integer = 0 To dbytes.Length - 1 
      sBuilder.Append(dbytes(n).ToString("X2")) 
     Next n 

     Return sBuilder.ToString() 
    End Using 

End Function 
End Class