33 lines
No EOL
686 B
Batchfile
33 lines
No EOL
686 B
Batchfile
@echo off
|
||
REM - Attention encodage OEM-850
|
||
|
||
REM - Options
|
||
ver=1.0
|
||
setlocal enableextensions enabledelayedexpansion
|
||
|
||
title PassGen %ver%
|
||
|
||
:menu
|
||
cls
|
||
echo Pour des raisons de lisibilit‚, les caractŠres suivants ne seront pas utilis‚s :
|
||
echo "O" lettre O majuscule
|
||
echo "0" chiffre z‚ro
|
||
echo "l" lettre L minuscule
|
||
echo "1" chiffre un
|
||
echo.
|
||
|
||
:pass
|
||
set /P _length=Password Length: %==%
|
||
REM set _length=8
|
||
set /a z = %_length%
|
||
set "string=ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz123456789"
|
||
set "password="
|
||
for /L %%i in (1,1,!z!) do call :_genRand
|
||
echo Password is: %password%
|
||
pause > NUL
|
||
goto :menu
|
||
|
||
:_genRand
|
||
set /a x=%random% %% 62
|
||
set password=%password%!string:~%x%,1!
|
||
goto :eof |