Dim fs As New IO.FileStream("C:\logon.log", IO.FileMode.Open, _
          IO.FileAccess.Read, IO.FileShare.Read)
 
        Dim sha1 As New System.Security.Cryptography.SHA1Managed()
 
        Dim cs As New System.Security.Cryptography.CryptoStream(fs, sha1, _
          Security.Cryptography.CryptoStreamMode.Read)
 
        Dim sr As New IO.StreamReader(cs, System.Text.Encoding.Default)
 
        RichTextBox1.Text = sr.ReadToEnd()
        sr.Close()
 
        For Each b As Byte In sha1.Hash
            TextBox1.Text += Convert.ToString(b, 16).PadLeft(2, "0"c)
        Next
 
        sha1.Clear()

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Beitrag wurde zuletzt am 19.05.08 um 09:46:36 editiert.