Membuat Program Scanning File

Proses scanning pada file biasanya digunakan untuk menditeksi suatu file apakah file tersebut merupakan file yang berbahaya atau tidak, metode ini juga bisa dikembangkan sebagai algoritma sederhana dalam melakukan penditeksian file yang berbahaya bagi komputer berdasarkan "hash" suatu file.
ok langsung ke tkp :
Pertama-tama jalankan program vb.net lalu create new project.
kemudian tampil form1 tambahkan 1 buah button, 1 label.
pada koding diatas public class form1 masukan kode berikut ini :


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

kemudian double click pada button 1 yang tadi telah ditambahkan dan masukan kode sebagai berikut :


Dim ArrayHold() As Byte
        Dim Index As Integer = 0
        Dim Str As New StringBuilder
        Dim tStr As String = ""
        Dim tempStr As String = ""
        Dim IndexEnd As Integer = 0
        Dim InputString As String = ""

' untuk membuka file/memilih file 

        OpenDia.Filter = "All Files|*.*"
        If OpenDia.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim myStreamReader As StreamReader = Nothing
            myStreamReader = File.OpenText(OpenDia.FileName)
            InputString = myStreamReader.ReadToEnd()
            ArrayHold = Encoding.Default.GetBytes(InputString)


'Proses Scanning pada file yang telah dipilih..
            Do
                IndexEnd = Index + 9
                For x As Integer = Index To IndexEnd
                    If x > UBound(ArrayHold) Then
                        tempStr = tempStr
                    Else
                        tStr = UCase(Convert.ToString(ArrayHold(x), 16))
                        If tStr.Length < 2 Then tStr = "0" & tStr
                        Str.Append(tStr)
                        tempStr = tempStr & Chr(ArrayHold(x))
                    End If
                Next
                Index = Index + 10
            Loop While IndexEnd < UBound(ArrayHold)

'mencocokan kode hash suatu file

            If InStr(1, Str.ToString, "58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441", vbTextCompare) Then
                Label1.Text = "Eicar-test-signature virus Detected!"
            End If
        End If

proses diatas digunakan untuk menditeksi suatu file dengan kode hash 58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441

dengan kata lain apabila file yang discan kode hashnya sama dengan kode hash yang terditeksi maka file tersebut akan dinyatakan sebagai virus .

semoga bermanfaat..:)