[266903582]

Можно попробовать так.

Код:

HotKeySet("{esc}","es")
$file=FileOpen("comb.txt",1)
Dim $alph[61]
$alph[0]="a"
$alph[1]="b"
$alph[2]="c"
$alph[3]="d"
$alph[4]="e"
$alph[5]="f"
$alph[6]="g"
$alph[7]="h"
$alph[8]="i"
$alph[9]="j"
$alph[10]="k"
$alph[11]="l"
$alph[12]="m"
$alph[13]="n"
$alph[14]="o"
$alph[15]="p"
$alph[16]="q"
$alph[17]="r"
$alph[18]="s"
$alph[19]="t"
$alph[20]="u"
$alph[21]="v"
$alph[22]="w"
$alph[23]="x"
$alph[24]="y"
$alph[25]="z"
$alph[26]="а"
$alph[27]="б"
$alph[28]="в"
$alph[29]="г"
$alph[30]="д"
$alph[31]="е"
$alph[32]="ё"
$alph[33]="ж"
$alph[34]="з"
$alph[35]="и"
$alph[36]="й"
$alph[37]="к"
$alph[38]="л"
$alph[39]="м"
$alph[40]="н"
$alph[41]="о"
$alph[42]="п"
$alph[43]="р"
$alph[44]="с"
$alph[45]="т"
$alph[46]="у"
$alph[47]="ф"
$alph[48]="х"
$alph[49]="ц"
$alph[50]="ч"
$alph[51]="ш"
$alph[52]="щ"
$alph[53]="ъ"
$alph[54]="ы"
$alph[55]="ь"
$alph[56]="э"
$alph[57]="ю"
$alph[58]="я"
$alph[59]=" "
$alph[60]=""


;#cs
For $i1=60 to 0 Step -1
	;#include<thread2.au3>
	For $i2=60 to 0 Step -1
		For $i3=60 to 0 Step -1
			For $i4=60 to 0 Step -1
				For $i5=60 to 0 Step -1
					For $i6=60 to 0 Step -1
						For $i7=60 to 0 Step -1
							For $i8=60 to 0 Step -1
								For $i9=60 to 0 Step -1
									For $i10=60 to 0 Step -1
										FileWrite($file,$alph[$i1]&$alph[$i2]&$alph[$i3]&$alph[$i4]&$alph[$i5]&$alph[$i6]&$alph[$i7]&$alph[$i8]&$alph[$i9]&$alph[$i10]&@CRLF)
									Next
								Next
							Next
						Next
					Next
				Next
			Next
		Next
	Next
Next
MsgBox(0,$br,$co)
;#ce

Func es()
	if MsgBox(4,"","Выходим?")=6 Then Exit
EndFunc

это образец, немного доработай для своих нужд, набор символов подкорректируй...