Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- ProgressBar1.Maximum = Conversions.ToString(ListBox1.Items.Count)
- total.Text = Conversions.ToString(ListBox1.Items.Count)
- If Not ProgressBar1.Value = ProgressBar1.Maximum Then
- Try
- ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
- TextBox1.Text = ListBox1.SelectedItem.ToString
- Catch ex As Exception
- End Try
- Try
- Dim scanbox As New TextBox
- Dim read As String = My.Computer.FileSystem.ReadAllText("viruslist.txt")
- ProgressBar1.Increment(1)
- Detected.Text = Conversions.ToString(ListBox2.Items.Count)
- files.Text = Conversions.ToString(ProgressBar1.Value)
- scanbox.Text = read.ToString
- Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider
- Dim f As FileStream = New FileStream(ListBox1.SelectedItem, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
- f = New FileStream(ListBox1.SelectedItem, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
- md5.ComputeHash(f)
- Dim hash As Byte() = md5.Hash
- Dim buff As StringBuilder = New StringBuilder
- Dim hashByte As Byte
- For Each hashByte In hash
- buff.Append(String.Format("{0:X2}", hashByte))
- Next
- If scanbox.Text.Contains(buff.ToString) Then
- ListBox2.Items.Add(ListBox1.SelectedItem)
- End If
- Catch ex As Exception
- End Try
- Else
- Timer1.Stop()
- MsgBox("Finished Scanning Folder!")
- TabControl1.SelectTab(3)
- If ListBox1.Items.Count = 0 Then
- MsgBox("No Threats were detected, Scan Window will close!", MsgBoxStyle.Information)
- End If
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement