создание списка с максимальными возможными вариантами

[running-frag]

Задача следующая, создать все варианты которые могут быть из букв a-z (весь англ. алфавит), максимальная ширина задаётся произвольно (ну допустим будет 10).

Так же было бы хорошо сюда же вписать возможность работы с регистром. Т.е. "aa..." не равно "aA...". В итоге должно получиться что то похожее на brute-word-list, только мне нужно это под другие цели (OCR).

Всё полученно записать в файл, на одной строке одно слово.

Если кому не влом поковыряться с этим, принимаю любые варианты. ;)

 

[C2H5OH]

На, держи

Global $dlinna_slov = 10
$file = FileOpen("frag-word-lis.txt",1)
_eshe_po_50_i_vse("")
ConsoleWrite( "всё!" & @CRLF)

Func _eshe_po_50_i_vse($slog)
	If StringLen($slog) >= $dlinna_slov Then
		FileWriteLine($file,$slog)
		Return
	EndIf
	For $c = 65 To 122
		If ($c > 90) and ($c < 97) Then ContinueLoop
		_eshe_po_50_i_vse( $slog & Chr($c) )
	Next
EndFunc

Только сам запускай...
:laugh:


Добавлено:

Сообщение автоматически объединено: 3 Июн 2012

Я не понял, frag, ты чё и правда запустил?!
Та что ж у тебя за железо???
(26+26)^10 вариантов... Это сколько оно считать будет?
А результат? 144555105949057024 комбинаций по 11 символов на каждую... Ты где такой файл хранить будешь??

 

[running-frag]

да, запустил
автоит повис в трее надолго, но в файл пишет исправно
ни ошибок "молча пишет"
если остановить то можно увидеть всё что написало до момента остановки, а там ну ОЧЕНЬ большой список (тхт доходил до 1гб) после чего я понял что дело дрянь