[BATCH] Generador de contraseñas.

@echo off >Nul
Setlocal EnableDelayedExpansion
Title Generador de Passwords en BATCH
:menu
SET "compiled="
echo Generador de Passwords en BATCH
Set/p "psschr=Inserte cantidad de caracteres deseados: "
If %psschr%==0 (Set "amount=menor" && Set "val=1" && call :invalid)
If %psschr% GTR 60000 (Set "amount=mayor" && Set "val=60000" && call :invalid)

Set "chars=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#+-}./]{?$,:@\[_~"
Set count=1
:x
Set /a count+=1
Set rand=%Random%
Set /a rand=rand%%79
SET compiled=%compiled%!chars:~%rand%,1!
If !count! leq %psschr% goto :x
echo.
echo Contraseña: !compiled!
echo.
:clipboard
set /p "choice=Quiere que la contraseña quede copiada en su portapapeles? (Y/N): "
If not defined choice (
cls
goto :clipboard
)
if /i %choice% == y call :copy
if /i %choice% == yes call :copy
if /i %choice% == no goto menu
if /i %choice% == n goto menu
goto :menu
@exit /B

:invalid
cls
echo La longitud solicitada es ( %amount% ) al limite ( %val% ).
pause >nul & goto :menu
@exit /B

:copy
echo !compiled! | clip
echo.
echo La contraseña ha sido copiada a tu portapapeles.
Timeout /T 5 >nul
goto :menu
@exit /B