@echo off
SetLocal EnableExtensions
 
call :genpass 16
echo PASS: %pass%
pause
goto :eof
 
:genpass [length]
 
    SetLocal EnableDelayedExpansion
    
    :: Algorithm. Seed = ASCII of user name + time seconds + time milliseconds.
    :: Seed added to random. Remainder of the division by 62 used as a letter serial number.
    
    set "pass="
    set seed=0
    
    for /L %%C in (0, 1, 15) do (
        set n=0
        for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
            set /a n+=1
            if /i "!USERNAME:~%%C,1!"=="%%a" set /a seed+=n
        )
    )
    for /F "delims=0 tokens=*" %%a in ("%time:~6,2%") do set /a seed+=%%a
    for /F "delims=0 tokens=*" %%a in ("%time:~9,2%") do set /a seed+=%%a
    set L=%seed%
    set length=%~1
    
    for /L %%C in (1, 1, %length%) do (
        set /a L=^(L+!random!^) %% 62
        set n=0
        for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9) do (
            if !n!==!L! set "pass=!pass!%%a"
            set /a n+=1
        )
    )
    EndLocal & set "pass=%pass%"
exit /b

@echo off
set "nA=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
set "l=16"&:[длина пароля]
set "n=10"&:[количество вариантов]
set "f=filepass.txt"
 
setlocal enabledelayedexpansion
 for /l %%# in (1 1 %n%) do (
  for /l %%# in (1 1 %l%) do call :#
  >>"%f%" echo:
 )
endlocal
pause& exit
 
:# 
 set /a r=%random%%%62
 set "s=!nA:~%r%,1!"
 >>"%f%" <nul set /p=%s%
exit /b

@echo off
echo            Без кавычек : %~1 
echo     Полное имени файла : %~f1
echo       Только имя диска : %~d1
echo    Только путь к файлу : %~p1
echo       Только имя файла : %~n1
echo Расширение имени файла : %~x1
echo     Путь в формате 8.3 : %~s1
echo               Атрибуты : %~a1
echo    Даты /времени файла : %~t1
echo          Размера файла : %~z1
pause

<NUL=SET/P="Your text here! >:D"

for /l %%n in (1 1 3) do <nul>>file.txt set /p=%%n
pause

<NUL=SET/P="Your text here! >:D">1.txt

<nul>1.txt set /p ="Your text here! >:D"

@echo off
 
set /p "string=Write string> "
set /p "find=Write text for search> "
 
set tmp=%string:!={em}%
set tmp2=%find:!={em}%
setlocal ENABLEDELAYEDEXPANSION
if not "!tmp:%tmp2%=!" == "%tmp%" (
    endlocal & set "tmp=" & set "tmp2="
    echo String "%string%" contains "%find%"
) else (
    endlocal & set "tmp=" & set "tmp2="
    echo String "%string%" doesn't contains "%find%"
)
 
pause>nul

@Echo off
 
call:Random test_rnd 1 100
echo Случайное чисто от 1 до 100 - %test_rnd%
 
call:Random blabla 1 2
echo 1 или 2? Ответ: %blabla%
 
Exit/b
:: ===========
:Random
set random=&set/p<nul=%random%1>nul
set/a %~1=((%random%*%~3)/32768)+%~2
goto:eof
:: ===========

:sizeof
call set "sizeof.in=%%%~1%%"
set sizeof.in=%sizeof.in:"=_%
if ["%sizeof.in%"] == [""] EXIT/B 0
set /a sizeof.len=1
    :sizeof.tmp
        set "sizeof.in=%sizeof.in:~0,-1%"
        if ["%sizeof.in%"] == [""] (EXIT/B %sizeof.len%) else (
            set /a sizeof.len=sizeof.len + 1
            goto sizeof.tmp
        )

set obj=123kljfdslkjdlfkjweoifhjsdk
call :sizeof obj
echo Длина строки obj: %errorlevel%

:colored
if "%~3" == "" (
   echo Incorrect arguments
)
set "modulePath=%temp%\colored_batch_module.com"
set "tempSourcePath=%temp%\%random%.tmp"
if not exist "%modulePath%" (
    set/p<nul="using System;namespace ColoredBatch{internal class Program{static void Main(string[] args){try{Console.ForegroundColor=(ConsoleColor)Convert.ToInt32(args[0],16);Console.BackgroundColor=(ConsoleColor)Convert.ToInt32(args[1],16);Console.Write(args[2].Replace("\\n","\n"));Console.ResetColor();Environment.Exit(0);}catch(Exception ex){Console.ResetColor();Console.WriteLine(ex.Message);Environment.Exit(1);}}}}">%tempSourcePath%
    "%windir%\Microsoft.NET\Framework\v4.0.30319\csc.exe" /out:"%modulePath%" "%tempSourcePath%" /nologo /debug- /optimize+
    if exist "%tempSourcePath%" del "%tempSourcePath%"
)
call %modulePath% %*
goto :eof

:: Выведет тёмно-красную строку "Test!" на белом фоне
call :colored 4 f "Test!"