elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Mensajes
Páginas: [1]
1  Programación / Scripting / Re: %~f1 <- no me devuelven ningun valor en: 19 Febrero 2009, 17:33 pm
Código:
@(
ECHO.Ruta al archivo: %~f0
ECHO.Disco: %~d0
ECHO.Solo ruta: %~p0
ECHO.Nombre: %~n0
ECHO.Extension: %~x0
ECHO.Ruta Corta: %~s0
ECHO.Atributos: %~a0
ECHO.Fecha: %~t0
ECHO.Tamaño: %~z0
ECHO.
PAUSE
)
2  Programación / Scripting / Re: el error level del ping me está chuleando ¡¡ en: 9 Febrero 2009, 18:06 pm
Código:
@FOR %%- IN (
WWW.GOOGLE.COM
NO.EXISTE
WWW.YAHOO.COM
) DO @(
PING -n 1 %%- >NUL && (
>>Resultado.txt ECHO El servidor %%- responde.
) || (
>>Resultado.txt ECHO El servidor %%- no responde.
)
)

Cita de: Resultado
El servidor WWW.GOOGLE.COM responde.
El servidor NO.EXISTE no responde.
El servidor WWW.YAHOO.COM responde.
3  Programación / Scripting / Re: [Batch] Generador de contraseñas en: 27 Enero 2009, 17:11 pm
Seguridad en contraseña: Baja
Longitud de contraseña: 50 carácteres

Código
  1. @ECHO OFF&SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  2. SET CHARS=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 @#/()=+-,.;:_*'
  3. :_START
  4. (SET RESULT_=)
  5. FOR /L %%I IN (1,1,50) DO (
  6. CALL :_ONERANDOMCHAR 25 RNDCHR_
  7. SET RESULT_=!RESULT_!!RNDCHR_!
  8. )
  9. ECHO %RESULT_%|FINDSTR "[0123456789]">NUL
  10. IF %ERRORLEVEL% EQU 0 SET FOUNDNUMBER=TRUE
  11. ECHO %RESULT_%|FINDSTR "[ @#/()=+-,.;:_*']">NUL
  12. IF %ERRORLEVEL% EQU 0 SET FOUNDSPECIAL=TRUE
  13. IF DEFINED REQUIRENUMBER IF NOT DEFINED FOUNDNUMBER GOTO:_ONERANDOMCHAR
  14. IF DEFINED REQUIRESPECIAL IF NOT DEFINED FOUNDSPECIAL GOTO:_ONERANDOMCHAR
  15. CLS
  16. ECHO.%RESULT_%
  19. GOTO:_START
  20. :_ONERANDOMCHAR
  21. SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  22. SET /A DIV_=32767 / %1
  23. SET /A RAND_=%RANDOM% / %DIV_%
  24. SET RETURN_=!CHARS:~% style="color: #448888;">RAND_%,1!
  25. ENDLOCAL & SET "%2=%RETURN_%" & GOTO:EOF

Seguridad en contraseña: Media
Longitud de contraseña: 50 carácteres

Código
  1. @ECHO OFF&SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  2. SET CHARS=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 @#/()=+-,.;:_*'
  3. :_START
  4. (SET RESULT_=)
  5. FOR /L %%I IN (1,1,50) DO (
  6. CALL :_ONERANDOMCHAR 51 RNDCHR_
  7. SET RESULT_=!RESULT_!!RNDCHR_!
  8. )
  9. ECHO %RESULT_%|FINDSTR "[0123456789]">NUL
  10. IF %ERRORLEVEL% EQU 0 SET FOUNDNUMBER=TRUE
  11. ECHO %RESULT_%|FINDSTR "[ @#/()=+-,.;:_*']">NUL
  12. IF %ERRORLEVEL% EQU 0 SET FOUNDSPECIAL=TRUE
  13. IF DEFINED REQUIRENUMBER IF NOT DEFINED FOUNDNUMBER GOTO:_ONERANDOMCHAR
  14. IF DEFINED REQUIRESPECIAL IF NOT DEFINED FOUNDSPECIAL GOTO:_ONERANDOMCHAR
  15. CLS
  16. ECHO.%RESULT_%
  19. GOTO:_START
  20. :_ONERANDOMCHAR
  21. SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  22. SET /A DIV_=32767 / %1
  23. SET /A RAND_=%RANDOM% / %DIV_%
  24. SET RETURN_=!CHARS:~% style="color: #448888;">RAND_%,1!
  25. ENDLOCAL & SET "%2=%RETURN_%" & GOTO:EOF

Seguridad en contraseña: Alta
Longitud de contraseña: 50 carácteres

Código
  1. @ECHO OFF&SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  2. SET CHARS=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 @#/()=+-,.;:_*'
  3. :_START
  4. (SET RESULT_=)
  5. FOR /L %%I IN (1,1,50) DO (
  6. CALL :_ONERANDOMCHAR 77 RNDCHR_
  7. SET RESULT_=!RESULT_!!RNDCHR_!
  8. )
  9. ECHO %RESULT_%|FINDSTR "[0123456789]">NUL
  10. IF %ERRORLEVEL% EQU 0 SET FOUNDNUMBER=TRUE
  11. ECHO %RESULT_%|FINDSTR "[ @#/()=+-,.;:_*']">NUL
  12. IF %ERRORLEVEL% EQU 0 SET FOUNDSPECIAL=TRUE
  13. IF DEFINED REQUIRENUMBER IF NOT DEFINED FOUNDNUMBER GOTO:_ONERANDOMCHAR
  14. IF DEFINED REQUIRESPECIAL IF NOT DEFINED FOUNDSPECIAL GOTO:_ONERANDOMCHAR
  15. CLS
  16. ECHO.%RESULT_%
  19. GOTO:_START
  20. :_ONERANDOMCHAR
  21. SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  22. SET /A DIV_=32767 / %1
  23. SET /A RAND_=%RANDOM% / %DIV_%
  24. SET RETURN_=!CHARS:~% style="color: #448888;">RAND_%,1!
  25. ENDLOCAL & SET "%2=%RETURN_%" & GOTO:EOF
4  Programación / Scripting / Re: error con IF - BATCH en: 27 Enero 2009, 05:45 am
Código
  1. @ECHO OFF
  2. CALL:SLEEP [SEGUNDOS]
  3. GOTO:EOF
  4. :SLEEP 
  5. SETLOCAL ENABLEEXTENSIONS
  6. (SET TIME=)
  7. IF "%1"=="" (GOTO:EOF)
  8. (SET /A LIMIT=0)
  9. (SET /A LIMIT=%1)
  10. IF %LIMIT% LEQ 0 (ENDLOCAL & GOTO:EOF)
  11. (SET /A CONT=0)
  12. :TIME
  13. (SET MIRROR1=%TIME:~-4,1%)
  14. :INCREMEN
  15. (SET MIRROR2=%TIME:~-4,1%)
  16. IF NOT %MIRROR2%==%MIRROR1% (GOTO:COUNT)
  17. GOTO:INCREMEN
  18. :COUNT 
  19. (SET /A CONT +=1)
  20. IF NOT "%CONT%"=="%LIMIT%" (GOTO:TIME)
  22. GOTO:EOF
5  Programación / Scripting / Re: cargar los segundos en una variable - BATCH en: 26 Enero 2009, 20:12 pm
-
6  Programación / Scripting / [Batch] Generador de contraseñas seguras en: 26 Enero 2009, 04:44 am
Código
  1.  @ ECHO OFF & SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  2.    SET CHARS=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 @#/()=+-,.;:_*'
  3.  :_MENU
  4.    CLS
  5.    ECHO Seguridad en contrase¤a:
  6.    ECHO.
  7.    ECHO 1. Baja
  8.    ECHO 2. Media
  9.    ECHO 3. Alta
  10.    ECHO.
  11.    ECHO 0. Salir
  12.    ECHO.
  13.   (SET SECLEVEL=)
  14.   (SET /P SECLEVEL_=^> )
  15.    IF NOT DEFINED SECLEVEL_ (GOTO:_MENU)
  16.    IF ^%SECLEVEL_:~0,1%==1 (SET MAXCHAR=25&GOTO:_LENGHT)
  17.    IF ^%SECLEVEL_:~0,1%==2 (SET MAXCHAR=51&GOTO:_LENGHT)
  18.    IF ^%SECLEVEL_:~0,1%==3 (SET MAXCHAR=77&GOTO:_LENGHT)
  19.    IF ^%SECLEVEL_:~0,1%==0 (EXIT)
  20.    GOTO:_MENU
  21.  :_LENGHT
  22.    CLS
  23.    ECHO Longitud de contrase¤a:
  24.    ECHO.
  25.   (SET PASSWORDLENGTH=)
  26.   (SET /P PASSWORDLENGTH_=^> )
  27.    IF NOT DEFINED PASSWORDLENGTH_ (GOTO:_MENU)
  28.    (SET RESULT_=)
  29.    FOR /L %%I IN (1,1,%PASSWORDLENGTH_%) DO (
  30.    CALL :_ONERANDOMCHAR %MAXCHAR% RNDCHR_
  31.    SET RESULT_=!RESULT_!!RNDCHR_!
  32.   )
  33.    ECHO %RESULT_%|FINDSTR "[0123456789]">NUL
  34.    IF ^%ERRORLEVEL%==0 SET FOUNDNUMBER=TRUE
  35.    ECHO %RESULT_%|FINDSTR "[ @#/()=+-,.;:_*']">NUL
  36.    IF ^%ERRORLEVEL%==0 SET FOUNDSPECIAL=TRUE
  37.    IF DEFINED REQUIRENUMBER IF NOT DEFINED FOUNDNUMBER GOTO:_ONERANDOMCHAR
  38.    IF DEFINED REQUIRESPECIAL IF NOT DEFINED FOUNDSPECIAL GOTO:_ONERANDOMCHAR
  39.    GOTO:_RESULT
  40.  :_ONERANDOMCHAR
  41.    SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  42.    SET /A DIV_=32767 / %1
  43.    SET /A RAND_=%RANDOM% / %DIV_%
  44.    SET RETURN_=!CHARS:~% style="color: #448888;">RAND_%,1!
  45.    ENDLOCAL & SET "%2=%RETURN_%" & GOTO:EOF
  46.  :_RESULT
  47.    CLS
  48.    ECHO Contrase¤a generada:
  49.    ECHO.
  50.    ECHO %RESULT_%
  51.    ECHO.
  52.    PAUSE
  53.    GOTO:_MENU


Escrito por mi, con la ayuda del código "Make a randomized password" de Timo Salmi.
7  Programación / Scripting / Re: Programita en batch en: 20 Enero 2009, 23:10 pm
-
8  Programación / Scripting / FOR y TASKKILL en: 20 Enero 2009, 23:00 pm
-
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines