Func _BruteForce($sLetter='123',$sDelimiters='',$iSplitFlag=0,$iMinLetter=2,$iMaxLetter=3,$sFunktion='ConsoleWrite($sReturn&@CRLF)')
    Local $aLetter = StringSplit($sLetter,$sDelimiters,$iSplitFlag), $aReturnLetter[$iMaxLetter], $aReturnLetterMax[$iMaxLetter], $sReturn = ''
    If $iMaxLetter < $iMinLetter Then
        Return -1
        SetError(1)
    EndIf
    For $i = 0 to $iMaxLetter-1
        $aReturnLetterMax[$i] = 0
        $aReturnLetter[$i] = 0
    Next
    While 1
        $sReturn = ''
        For $i = 0 to $iMaxLetter-1
            If $aReturnLetter[$i] <> 0 Then
                $sReturn &= $aLetter[$aReturnLetter[$i]]
                If StringLen($sReturn) > $iMaxLetter Then
                    Return 1
                EndIf
            EndIf
        Next
        $aReturnLetter[$iMaxLetter-1] += 1
        For $i = UBound($aReturnLetter) - 1 to 1 Step -1
            If $aReturnLetter[$i] > UBound($aLetter)-1 Then
                $aReturnLetter[$i] = 1
                $aReturnLetterMax[$i] = 1
                $aReturnLetter[$i-1] += 1
            EndIf
        Next
        If StringLen($sReturn) >= $iMinLetter Then
            If $sFunktion <> '' Then
                Execute($sFunktion)
            EndIf
        EndIf
        If $aReturnLetter[0] = UBound($aLetter) Then
            ExitLoop
        EndIf
    WEnd
EndFunc