Page 1 of 2

An Antivirus - my 1st tutorial

Posted: Sun Feb 13, 2011 5:46 pm
by mihai
Hey !
This is my first tutorial wahooo; wahooo; wahooo; !
Here is My Antivirus.
-------------------------------------------------------------------------------
You need :
Form1 - 2xButtons
- a picture (if you want :) )
Form2 - 1xListBox (fore colour red)
- 2xButtons
Form3 - 2xButtons
- 1xLabel

----************-------The Code-------------------********----------------

The code for Form1 :
Code: Select all
Form2.Show()
        If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\hsr.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
        If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\sain.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
        If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\sau.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
        If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\sauhook.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
        If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\sauau.dat") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
        If My.Computer.FileSystem.FileExists("C:\Program Files\2Search\getst.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\2Search")
        If My.Computer.FileSystem.FileExists("C:\Program Files\2Search\main.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\2Search")
        If My.Computer.FileSystem.FileExists("C:\Program Files\2Search\plugin.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\2Search")
        If My.Computer.FileSystem.FileExists("C:\Program Files\5whgue21\5whgue21.exe") Then F[size=200]orm2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\5whgue21\5whgue21.exe")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\alaware.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\alaware.dll")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\alogcfg.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\alogcfg.exe")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\alogger.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\alogger.exe")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\alsys.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\alsys.exe")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\Emailer.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\Emailer.dll")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\LogExp.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\LogExp.dll")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\mfc42.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\mfc42.dll")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\msvcrt.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\msvcrt.dll")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\slgrl.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\slgrl.dll")
        If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\ijl15.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\ijl15.dll")
        Form2.Text = "Finish the scan !"
        Form2.sterge.Enabled = True
        Form2.anula.Enabled = False

The code for Form3 :
Code: Select all
Public Class Form3

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Form2.Close()
    End Sub
I want to like you blusho; blusho;

[offsite=6b7b7075343a3c63627128686b72736473636b646a3b707b7829396133435c43535c404157,2,32313239,czlfpvszqvayhmj][/offsite]

Re: An Antivirus - my 1st tutorial

Posted: Sun Feb 13, 2011 5:50 pm
by Usman55
This is absolutely not how to find a virus. To make a real antivirus, you need to use a database with all the viruses' info in it. But as it is your first tutorial, nice job. And please don't forget to introduce yourself!

Re: An Antivirus - my 1st tutorial

Posted: Sun Feb 13, 2011 5:51 pm
by Proprogrammer
not even a antivirus, i am sorry. people could just change names of virus's.

Re: An Antivirus - my 1st tutorial

Posted: Sun Feb 13, 2011 5:53 pm
by GoodGuy17
I have posted this tutorial before, at least, I used the same code.

Re: An Antivirus - my 1st tutorial

Posted: Sun Feb 13, 2011 7:10 pm
by NecroPhis
this isnt an antivirus u should use hash function for make a real 1 and its 2 credits :O

Re: An Antivirus - my 1st tutorial

Posted: Sun Feb 13, 2011 7:23 pm
by Axel
Adware.180Search
I think the names are made up by yourself

Re: An Antivirus - my 1st tutorial

Posted: Mon Feb 14, 2011 4:36 pm
by mihai
look here please
http://www.softwaretipsandtricks.com/dangerous_files/
wahooo; wahooo; wahooo; wahooo; wahooo;

Re: An Antivirus - my 1st tutorial

Posted: Mon Feb 14, 2011 4:52 pm
by un kn0 wn
This isn't really a real anti-virus, it's just a search method... But seeing as it's your first tutorial Nice Job :)

Re: An Antivirus - my 1st tutorial

Posted: Wed Feb 16, 2011 9:29 am
by elad fundo
Wow dude. I never knew we could make an AV ourselves.

Re: An Antivirus - my 1st tutorial

Posted: Wed Feb 16, 2011 11:57 am
by NecroPhis
actually thats not an AV
but making AV is not hard