Membuat Anti Virus MD5 Scanner Dengan VB 2010

kali ini saya akan membuat Anti Virus Md5 Scanner,anda kesal terkena virus komputer yang makin lama makin banyak ,kali ini saya akan mengajarkan ke kalian smua bagaimana cara membuat antivirus paling sederhana bagi sobat lab-vb sudah tak sabar kita langsung saja ^^



1. Jalan kan VB 2010
2. Klik Window  Form Aplication
3. Name nya di Ganti menjadi  Antivirus MD5
4. Tambahkan 2 Button ,1 List Box ,2Text Box ,3 Labeldan ubah Form 1 Sesuka hati
5. Ubah Button1 Jadi Open dan Button 2 Jadi Scan label 1 jadi Data Base Anti Virus ,
Label2 jadi Virus Terditeksi dan label 3 kosongkan [hapus tulisan label 3]
6. Double Klik Formnya masukkan kode ini diatas Public Class Form1
Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.IO.FileStream
Imports System.Text
7. Balik Ke Form1.vb[Design] Double Klik Button1 /Open

 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

8. Balik Ke Form1.vb[Design] Double Klik Button2 /Scan

 If TextBox2.Text.Contains(TextBox1.Text) Then
            MsgBox("ADA VIRUS TERDETEKSI")
            ListBox1.Items.Add(TextBox1.Text)
        Else
            MsgBox("Bersih Tak ada Virus")
9. Balik Ke Form1.vb[Design] Kemudian ke Textbox2[Jangan Di DoubleKlik Lihat di Properties
ke bagian Text kemudian Ketikan Kode MD5

E7723D3E6F0AE89E828925B29C3F1BE2
921011E44CD196B2D546694A3103C359
7A20C279C0709F8289E5C1B3FA56435E
3BC53E6FCDA796397C15E6834F787557
A8831B74F9E542D3948C0B0459543269
96f0f08c0188ba04898ce8cc465c19c4

10. Tekan F5

Silahkan Kebangkan Anti Virus ini ^^
Kunjungi Terus Lab-vb.bogspot.com