Iman

Showing posts with label antivirus. Show all posts

Sunday, November 3, 2013

cara membuat antivirus dengan visual basic 2013

Nih ane kasih Koding lengkap Membuat Antivirus sederhana :
Langsung jha yah

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

Link Download Oktober1992 - Wahyu Web :Wahyu Web
Cara download :
1. Ceklis file yang mu di download
2. Lihat kanan kalian muncul tulisan unduh lalu klik
3. File sudah di download
Youtube Video Saya : My Video

Moga dapat membantu

  Description: Membuat Koding Antivirus Dengan VB 2010 Rating: 4.5 Reviewer: Wahyu Amaldi ItemReviewed: Membuat Koding Antivirus Dengan VB 201
0

cara membuat antivirus dengan visual basic 2013