Generator haseł

@echo off & setlocal enabledelayedexpansion

Set "str=ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890abcdefghijklmnopqrstuvwxyz"

Set /p H=Podaj długo˜† hasˆa:
 If %H% leq 0 (cls&echo Zbyt maˆa warto˜†&call %0)

 For /l %%a in (1;1;%H%) do (
    Call :letter %%a
        If %%a equ 1 (
            Echo @echo !string[%%a]!^^^^>>tmp.bat
    ) else (
                Echo !string[%%a]!^^^^>>tmp.bat
    )
)
 For /f "delims=" %%x in ('call tmp.bat') do set pass=%%x
 Del tmp.bat

:choice
Cls
Echo Wygenerowane hasˆo: %pass%
 Set /p S=Zapisa†? t/n
    If %S% equ t (echo %pass%>>Password.txt&exit)
    If %S% neq t (if %S% neq n (goto :choice))
    If %S% equ n exit

:letter
Set /a R=!random!%%62
Set string[%1]=!str:~%R%,1!
Goto :EOF