Artikel 21: Membuat Antivirus Sederhana Menggunakan VB Net

Membuat Antivirus sederhana :

1. Tambahkan 2 Textbox dengan nama TextBox2, TextBox1

2. Tambahkan ListView1

3. Tambahkan 2 Button

Lalu copy paste kode berikut :

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

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim OPEN As New OpenFileDialog
        OPEN.CheckFileExists = True
        OPEN.CheckPathExists = True
        OPEN.ShowDialog()
        On Error Resume Next
        Dim MD5 As New MD5CryptoServiceProvider
        Dim FILE As New FileStream(OPEN.FileName, FileMode.Open, FileAccess.Read, FileShare.Read, &H2000)
        Label3.Text = (OPEN.FileName)
        MD5.ComputeHash(FILE)
        Dim HASH As Byte() = MD5.Hash
        Dim bUILD As New StringBuilder
        Dim NUM As Byte
        For Each NUM In HASH
            bUILD.Append(String.Format("{0:x2}", NUM))

        Next
        Me.TextBox1.Text = bUILD.ToString

        Button2.Enabled = True
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox2.Text.Contains(TextBox1.Text) Then
            MsgBox("ADA VIRUS TERDETEKSI")
            ListBox1.Items.Add(TextBox1.Text)
        Else
            MsgBox("FILE IS CLEAN")

        End If
    End Sub
End Class

 http://oktober1992.blogspot.com/2012/08/membuat-koding-antivirus-dengan-vb-2010.html#ixzz2Hhzu6ONm