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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Batch] Generador de contraseñas seguras		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Batch] Generador de contraseñas seguras  (Leído 5,080 veces)
_m

Desconectado Desconectado

Mensajes: 8


Ver Perfil
[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.
« Última modificación: 9 Febrero 2009, 09:02 am por _m » En línea
Darioxhcx


Desconectado Desconectado

Mensajes: 2.294


Ver Perfil
Re: [Batch] Generador de contraseñas
« Respuesta #1 en: 26 Enero 2009, 15:35 pm »
anda a acordarte de esa pass xD

ta bueno  , me gusta el code
En línea
Garcad

Desconectado Desconectado

Mensajes: 137


Ver Perfil
Re: [Batch] Generador de contraseñas
« Respuesta #2 en: 27 Enero 2009, 15:20 pm »
_m me gusta mucho es buena idea.

Como podría tener un archivo bat que genere contraseñas de 50 caracteres sin seleccionar opción.

Uno para la opcion 1, otro para la opcion 2, etc...

En diferentes archivos bat

Salu2
En línea
Modulos para Wifiway 1.0 Final
_m

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Re: [Batch] Generador de contraseñas
« Respuesta #3 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
« Última modificación: 27 Enero 2009, 17:43 pm por _m » En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Wolfram Alpha lanza una aplicación para ayudarnos a crear contraseñas seguras
Noticias 		wolfbcn 0 1,314 Último mensaje 22 Noviembre 2011, 02:29 am
por wolfbcn
Generador en Java : Crea claves seguras WPA y WPA2 para proteger tu red WiFi
Noticias 		wolfbcn 1 4,359 Último mensaje 14 Febrero 2012, 16:14 pm
por MauroMasciar
Las personas mayores elijen contraseñas más seguras
Noticias 		wolfbcn 4 2,199 Último mensaje 5 Junio 2012, 00:43 am
por farresito
¿maneras seguras de que en wifis publicos no se vean contraseñas de mails y web?
Redes 		beginner_ 2 2,452 Último mensaje 30 Abril 2013, 02:57 am
por beginner_
Son seguras las contraseñas creadas por un programa administrador de contraseñas
Seguridad 		Mister12 2 4,422 Último mensaje 24 Noviembre 2013, 05:58 am
por Mister12
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines