Create Blocks

#include <FileConstants.au3>

Sleep(5000)
$sFileName = @ScriptDir &"\Test.txt"
$hFilehandle = FileOpen($sFileName, $FO_OVERWRITE)
$Letter = StringSplit("Q,W,R,T,P,K,J,H,G,F,D,Y,X,C,V,B,N,M,2,3,4,5,6,7,8,9", ",")
Combi("", 5)
Func Combi($Str, $MaxLen)
Dim $i
    if StringLen($Str) = $MaxLen Then
        FileWrite($hFilehandle, $Str & @CRLF)
        Return
    EndIf
    For $i = 1 to $Letter[0]
        Combi($Str & $Letter[$i], $MaxLen)
    Next
 EndFunc
 FileClose($hFilehandle)