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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Generador Claves Aleatorias Batch
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Generador Claves Aleatorias Batch  (Leído 2,224 veces)
k05774

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Generador Claves Aleatorias Batch
« en: 31 Octubre 2016, 13:56 pm »

Intento hacer que el archivo me muestre varios codigos aleatorios a la vez, pero solo me muestra uno.

Ademas solo funciona la primera vez, a partir de la segunda ya muestra menos caracteres de los que se indican hasta que salta esto: Se ha alcanzado el maximo de recursividad de setlocal.

¿Como arreglarlo?

Código:
@Echo Off
:menu
cls
echo Generador de Claves
echo.
echo 1. Generar Clave.
echo 2. Salir.
set /p var=
if %var%==1 goto :pregunta
if %var%==2 goto exit
if %var% gtr 2 echo error
goto :menu

:pregunta
cls
set /p lengthnumberuser="Cantidad de caracteres? "
if %lengthnumberuser% gtr 0 goto :clave
if %lengthnumberuser% == 0 echo error
goto :pregunta

:clave
cls
Setlocal EnableDelayedExpansion
Set _RNDLength=%lengthnumberuser%
Set _Alphanumeric=0123456789ABCDEFabcdef
Set _Str=%_Alphanumeric%9876543210
:_LenLoop
IF NOT "%_Str:~18%"=="" SET _Str=%_Str:~9%& SET /A _Len+=9& goto :_LenLoop
SET _tmp=%_Str:~9,1%
SET /A _Len=_Len+_tmp
Set _count=0
SET _RndAlphaNum=
:_loop
Set /a _count+=1
SET _RND=%Random%
Set /A _RND=_RND%%%_Len%
SET _RndAlphaNum=!_RndAlphaNum!!_Alphanumeric:~%_RND%,1!
If !_count! lss %_RNDLength% goto :_loop
echo Clave Aleatoria: !_RndAlphaNum!
echo.
echo 1. Generar Clave
echo 2. Volver
set /p var=
if %var%==1 goto :pregunta
if %var%==2 goto :menu
if %var% gtr 2 echo error
endlocal
goto :clave


En línea

RainSix

Desconectado Desconectado

Mensajes: 82



Ver Perfil
Re: Generador Claves Aleatorias Batch
« Respuesta #1 en: 13 Marzo 2019, 12:14 pm »

Buenas justo andaba mirando generadores por el foro, y me ha surgido la necesidad de registrarme para responderte, lo cierto es que ya tardaba porque me he mirado muchas veces este foro y me encanta.

Creo que el problema despues de haberlo probado yo personalmente es que el endlocal esta mal puesto, por eso te daba el error de maximo de recursividad del setlocal. Te adjunto el codigo que a mi me ha funcionado:

Código:
@Echo Off
:menu
cls
echo Generador de Claves
echo.
echo 1. Generar Clave.
echo 2. Salir.
set /p var=
if %var%==1 goto :pregunta
if %var%==2 goto exit
if %var% gtr 2 echo error
goto :menu

:pregunta
cls
set /p lengthnumberuser="Cantidad de caracteres? "
if %lengthnumberuser% gtr 0 goto :clave
if %lengthnumberuser% == 0 echo error
goto :pregunta

:clave
cls
Setlocal EnableDelayedExpansion
Set _RNDLength=%lengthnumberuser%
Set _Alphanumeric=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
Set _Str=%_Alphanumeric%9876543210
:_LenLoop
IF NOT "%_Str:~18%"=="" SET _Str=%_Str:~9%& SET /A _Len+=9& goto :_LenLoop
SET _tmp=%_Str:~9,1%
SET /A _Len=_Len+_tmp
Set _count=0
SET _RndAlphaNum=
:_loop
Set /a _count+=1
SET _RND=%Random%
Set /A _RND=_RND%%%_Len%
SET _RndAlphaNum=!_RndAlphaNum!!_Alphanumeric:~%_RND%,1!
If !_count! lss %_RNDLength% goto :_loop
echo Clave Aleatoria: !_RndAlphaNum!
endlocal
echo.
echo 1. Generar Clave
echo 2. Volver
set /p var=
if %var%==1 goto :pregunta
if %var%==2 goto :menu
if %var% gtr 2 echo error


« Última modificación: 13 Marzo 2019, 12:53 pm por RainSix » En línea

-.RainSix.-
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.708



Ver Perfil
Re: Generador Claves Aleatorias Batch
« Respuesta #2 en: 19 Marzo 2019, 00:07 am »

Pues ya que estamos, y aunque doy mal ejemplo al continuar comentando en un thread del 2016, comparto nostalgicamente este proyecto que hice en Batch-script y que les podría servir:


Saludos.
« Última modificación: 19 Marzo 2019, 00:17 am por Eleкtro » En línea


RainSix

Desconectado Desconectado

Mensajes: 82



Ver Perfil
Re: Generador Claves Aleatorias Batch
« Respuesta #3 en: 20 Marzo 2019, 08:53 am »

Pues ya que estamos, y aunque doy mal ejemplo al continuar comentando en un thread del 2016, comparto nostalgicamente este proyecto que hice en Batch-script y que les podría servir:


Saludos.

Me acabo de mirar todo el post y me quedo sin palabras... Me he pasado una tarde mirando el código y entenderlo paso a paso, hasta le he implementado algún que otra posibilidad de serial como de 5x3 o 6x3, y pese que se me ha pasado algún que otro error al final he logrado que funcione. Una maravilla de código, mis 10, agradezco que lo hayas compartido.

Saludos.
« Última modificación: 20 Marzo 2019, 11:06 am por RainSix » En línea

-.RainSix.-
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Batch File Creator - (Generador de Archivos Binarios con BATCH)
Scripting
sirdarckcat 6 13,428 Último mensaje 24 Noviembre 2006, 07:38 am
por Hendrix
[Reto Batch] Letras aleatorias
Scripting
ELVJop 4 5,122 Último mensaje 23 Julio 2012, 09:00 am
por Binary_Death
WEP WPA WPA2 Generador de claves
Wireless en Windows
antoniospartano 0 6,333 Último mensaje 5 Marzo 2013, 21:09 pm
por antoniospartano
necesito hacer un generador de contraseñas aleatorias pidiendo datos
Scripting
joha313657 2 1,209 Último mensaje 14 Septiembre 2017, 20:06 pm
por Sentex
Generador de claves sgen ¿ como generarar aleatorias.?
Seguridad
mrpepetin 1 831 Último mensaje 7 Junio 2020, 22:42 pm
por mrpepetin
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines