Cara Membuat Virus Ganas & Unik Di Notepad ~ Linux Solution Hacking

zky-esemka >> Kali ini saya akan mengajarkan bagaimana cara membuat virus simple melalui notepad,

cara nya sangat mudah, kita hanya mengcopy script di bawah ini kedalam notepad, dengan ektensi yang telah ditentukan, INGAT postingan ini saya buat hanya untuk pembelajaran, jangan di salah gunakan,

baiklah langsung saja kita praktekkan, :

1. Pesan Restart ( save dalam ektensi .BAT )

@ ECHO off

:Begin

msg * WARNING !

msg * Komputer Lo Error

msg * Cuma satu cara agar sembuh

msg * Harus di install ulang nih

GOTO BEGINng kKo

2. Pesan Shutdown ( save dalam ektensi .BAT )

@echo off

msg * Komputer lo kena virus nih

msg * Uda ga bisa idup lagi

msg * Harus di install ulang nih

3. Tombol Caps Lock kedip-kedip terus ( save dalam ektensi .VBS )

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 telah terinfeksi virus berbahaya!!")

var b = true

while (b == true){

alert("Virus Zky-CyberCrime !!")

}}

script>

head>

<body><input type="button" onclick="display_alert()"

value="Submit" />body>

html>center>

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

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

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

6. Memunculkan Pesan Secara otomatis ( save dalam ektensi .VBS )

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 "gimana"

WScript.Sleep 500

WshShell.SendKeys "kabar"

WScript.Sleep 500

WshShell.SendKeys "Loe"

WScript.Sleep 500

WshShell.SendKeys " ? "

WScript.Sleep 500

WshShell.SendKeys "baek2"

WScript.Sleep 500

WshShell.SendKeys "aja"

WScript.Sleep 500

WshShell.SendKeys "kan"

WScript.Sleep 500

WshShell.SendKeys "????"

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

Quote:

MsgBox "Let's go back a few steps"

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

wscript.sleep 100

wshshell.sendkeys "{bs}"

loop

8. Taget Harus Mengetik "Aku sayang kamu" Secara Terus-Menerus ( save dalam ektensi .VBS )

Quote:

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

wscript.sleep 100

wshshell.sendkeys "Aku sayang kamu"

loop

9. Membuka dan menutup CD/ DVD ( save dalam ektensi .VBS )

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

sekian dulu script yang zky-esemka berikan, sebenarnya masih banyak lagi, tapi karna waktu yang mepet jadi saya hanya dapat memposting itu saja, SELAMAT MENCOBA :D