Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 1742
Благодарности: 1038

Профиль | Отправить PM | Цитировать


Чистый CMD
Код: Выделить весь код
@Echo Off
cls
Set "Symb=abcdefghijklmno"
Set /A "NOut=3"

SetLocal EnableExtensions EnableDelayedExpansion

Set /A NSymb=-1
FOR /L %%i IN (0,1,20) DO (
	Call Set "ii=%%Symb:~%%i,1%%"
	If Not "!ii!"=="" Set NSymb=%%i
)
Set /A NSymb+=1

:Begin
Set "SOut="
FOR /L %%j IN (1,1,%NOut%) DO (
	FOR /L %%i IN (1,1,100) DO Set /a rnd=!random!
	Set "rnd=000!rnd!"
	Set /A rnd=1!rnd:~-3!-1000
	Set /A rnd=%NSymb%*!rnd!/999
	Call Set "rnd=%%Symb:~!rnd!,1%%" 
	Set "Sout=!Sout!!rnd!"
)
Echo %Sout%

pause >nul
GoTo :Begin

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Отправлено: 15:44, 31-03-2017 | #5