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

[OK]を、ここで私は私が何をやっていたよりも良い仕事に考え出した方法です私は4Kハッシュのために約1時間待っていましたが、文字列を.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