Генератор ключей

@echo off
setlocal
 
for %%i in (q Q w W e E r R t T y ^
            Y u U i I o O p P a A ^
            s S d D f F g G h H j ^
            J k K l L z Z x X c C ^
            v V b B n N m M 0 1 2 ^
            3 4 5 6 7 8 9  ^
           ) do call:set "%%i"
 
Set /p long="Введите длину пароля: "
Set /p count="Введите количество создаваемых паролей: "
for /f "tokens=2 delims==" %%i in ('set sym_') do call:key "%%i"
FOR /l %%i IN (1 1 %count%) do echo %key%>>generator.txt
goto:eof
 
:set
set "sym_%random%=%~1"
 
goto:eof
 
:key
 
set /a cnt+=1
if not %cnt% gtr %long% set "key=%key%%~1"

@echo off
setlocal enabledelayedexpansion
set nabor=qQwWeErRtTyYuUiIoOpPaAsSdDfFgGhHjJkKlLzZxXcCvVbBnNmM1234567890
set /p long=Length of password:    ^>
set /p num=Count of passwords:    ^>
for /L %%A IN (1,1,%num%) DO (
 call :writePwd passlist.txt
)
echo.Complete
pause>nul
exit /b
 
:writePwd
set Pwd=
for /L %%A IN (1,1,%long%) DO (
 call :getRandS
 set Pwd=!Pwd!!rands!
)
echo.%Pwd%>>"%~1"
exit /b
 
:getRandS
set /a RandKey=%RANDOM% %% 62
set rands=!nabor:~%RandKey%,1!
exit /b

@echo off
COLOR 0A
setlocal enableextensions enabledelayedexpansion
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
 
set pss0=01
set pss1=10
set pss2=20
set pss3=30
set pss4=40
set pss5=50
set pss6=60
set pss7=70
set pss8=80
set pss9=90
 
set /p sValue1=Введите ключ пароля:
if "%sValue1%" equ "0" >Log.txt echo !pss0! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "1" >Log.txt echo !pss1! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "2" >Log.txt echo !pss2! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "3" >Log.txt echo !pss3! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "4" >Log.txt echo !pss4! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "5" >Log.txt echo !pss5! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "6" >Log.txt echo !pss6! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "7" >Log.txt echo !pss7! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "8" >Log.txt echo !pss8! | Start "" "log.txt" | tasklist | find "notepad.exe"
if "%sValue1%" equ "9" >Log.txt echo !pss9! | Start "" "log.txt" | tasklist | find "notepad.exe"
del log.txt
endlocal
exit

@echo off& color 0A
setlocal enableextensions enabledelayedexpansion
for /l %%i in (1 1 8) do echo.
set n=-1& for %%i in ("01" "10" "20" "30" "40" "50" "60" "70" "80" "90") do set/a n+=1& set pss!n!=%%~i
set/p sValue1=Введите ключ пароля: 
<nul>"log.txt" (for /f %%i in ('cmd/u/c echo !sValue1!^| more') do set/p=!pss%%i!)
start "" "log.txt"& for /l %%i in (1 1 1000) do pause<nul>nul
del "log.txt"& endlocal& exit/b 0

@echo off& color 0A
setlocal enableextensions enabledelayedexpansion
:start
for /l %%i in (1 1 8) do echo.
set n=-1& for %%i in ("01" "10" "20" "30" "40" "50" "60" "70" "80" "90") do set/a n+=1& set pss!n!=%%~i
set/p "sValue1=Введите ключ пароля: "
if not defined sValue1 (cls& goto start)
echo !sValue1!|>nul findstr [^^0-9]&& (cls& goto start)
set n=& (for /f %%i in ('cmd/u/c echo !sValue1!^| more') do set/a n+=1)
if %n% leq 2 (
 echo Для данной операции требуется ввод не менее 3-х цифр.
 for /l %%i in (1 1 10000) do pause<nul>nul
 cls& goto start
)
if %n% gtr 9 (
 echo Данная операция ввод более 9-ти цифр не предусматривает.
 for /l %%i in (1 1 10000) do pause<nul>nul
 cls& goto start
)
<nul>"log.txt" (for /f %%i in ('cmd/u/c echo !sValue1!^| more') do set/p=!pss%%i!)
start "" "log.txt"& for /l %%i in (1 1 1000) do pause<nul>nul
del "log.txt"& endlocal& exit/b 0

@set @x=0 /*
@echo off
 
SETLOCAL EnableDelayedExpansion
set /p $Pswd=<x.dat
set /p $Input=  Введите пароль для продолжения: <nul
for /f "delims=" %%a in ('cscript /nologo /e:jscript "%~f0"') do set "$Input=%%a"
if not "!$Input!"=="!$Pswd!" Cls&echo Неправильный пароль, завершение работы&Exit /B 1
pause
::
:: Тут код батника
::
exit>nul */
WScript.Echo(WScript.CreateObject("ScriptPW.Password").GetPassword());

set/p "sValue1=Введите мастер-ключ пароля: "

for /l %%i in (1 1 5) do call set SPs= %%SPs%%
for /f %%i in ('"prompt $h& for %%j in (.) do rem"') do set "BS=%%i"
set/p "sValue1=%BS%%SPs%Введите мастер-ключ пароля: "

@echo off& color 0a& setlocal enableextensions
:start
%~1 mshta "about:<html><head><title>reguser</title></head><script language="javascript">function a(){new ActiveXObject('WScript.Shell').Run('"%~nx0" : "'+window.frm.t.value+'"');close();}</script><body><center><br><br><br><br><br><br><br><br><br><br><form id='frm'><input type='password' name='t' size=12><input type='button' value='Введите ключ пароля.' onclick='a();'></form></center></body></html>"& exit/b 0
set n=-1& for %%i in ("01" "10" "20" "30" "40" "50" "60" "70" "80" "90") do set/a n+=1& call set "pss%%n%%=%%~i"
set "sValue1=%~2"
if not defined sValue1 (cls& call:start ""& exit/b 1)
echo "%sValue1%"|>nul findstr ^^\".*[^^0-9].*\"$&& (cls& call:start ""& exit/b 2)
set n=& (for /f %%i in ('cmd/u/c echo %sValue1%^| more') do set/a n+=1)
if %n% leq 2 (
 echo Для данной операции требуется ввод не менее 3-х цифр.
 for /l %%i in (1 1 10000) do pause<nul>nul
 cls& call:start ""& exit/b 3
)
if %n% gtr 9 (
 echo Данная операция ввод более 9-ти цифр не предусматривает.
 for /l %%i in (1 1 10000) do pause<nul>nul
 cls& call:start ""& exit/b 4
)
<nul>"log.txt" (for /f %%i in ('cmd/u/c echo %sValue1%^| more') do cmd/v/c set/p=!pss%%i:^^^^^^^^=^^^^!)
start "" "log.txt"& for /l %%i in (1 1 1000) do pause<nul>nul
del "log.txt"& endlocal& exit/b 0