MD5哈希整个列表框

Question

截至目前我可以哈希列表框中选择的项目与

Public Function Md5FromString(ByVal Source As String) As String 
    Dim Bytes() As Byte 
    Dim sb As New StringBuilder() 
    'Check for empty string. 
    If String.IsNullOrEmpty(Source) Then 
     Throw New ArgumentNullException 
    End If 
    'Get bytes from string. 
    Bytes = Encoding.Default.GetBytes(Source) 
    'Get md5 hash 
    Bytes = MD5.Create().ComputeHash(Bytes) 
    'Loop though the byte array and convert each byte to hex. 
    For x As Integer = 0 To Bytes.Length - 1 
     sb.Append(Bytes(x).ToString("x2")) 
     On Error Resume Next 
    Next 
    'Return md5 hash. 
    Return sb.ToString() 

End Function 

，并收集他们在另一个列表框，但我得到一个错误（类型的未处理的异常“System.StackOverflowException”发生在系统.Windows.Forms.dll）在大约4K随机后，好像它无法更新标签或文本框，然后必须编辑我的列表和重置，我只是觉得有一个更好的方法来做到这一点。 更有经验的人可以提供一些指导，使这个例程更有效率？

Answer 1

不知道你的错误来自哪里，但你肯定不需要在紧密循环中使用Create（）。保存它作为一个局部变量，并通过声明为静态的再使用（或保持在一流水平的参考，而不是）：

Public Function Md5FromString(ByVal Source As String) As String 
    Static local_MD5 As MD5 = MD5.Create 

    If String.IsNullOrEmpty(Source) Then 
     Throw New ArgumentNullException 
    End If 

    Dim sb As New StringBuilder() 
    For Each b As Byte In local_MD5.ComputeHash(Encoding.Default.GetBytes(Source)) 
     sb.Append(b.ToString("x2")) 
    Next 
    Return sb.ToString() 
End Function 

Answer 2

好了，这里就是我想出的工作不比我在做什么通过一个巨大的约束，我等待了大约一个小时的4K哈希，现在我通过对来自.txt的字符串进行哈希处理，从而获得了50K的分钟数。可能仍然是混乱的，但它的工作方式更快。

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    TextBox1.Text = "" 
    OpenFileDialog1.Title = "Please Select a File" 
    OpenFileDialog1.InitialDirectory = "C:temp" 
    OpenFileDialog1.ShowDialog() 
    Dim path As String = OpenFileDialog1.FileName 
    TextBox1.Text = path 
    Dim lines() As String = IO.File.ReadAllLines(TextBox1.Text) 
    For Each line In lines 
     ListBox1.Items.Add(Md5FromString(line) + ":" + line) 
     ListBox1.Refresh() 
     Label1.Text = ListBox1.Items.Count 
     Label1.Refresh() 
     If ListBox1.Items.Count = 1000 Then 
      save() 
      ListBox1.Items.Clear() 
      ListBox1.Refresh() 
      Label1.Text = 0 
     End If 
    Next 


    ' ListBox1.SelectedIndex = 0 

End Sub