Brute Force

While 1
	$str = InputBox("Letters","Type all Letters")
	$string = StringSplit($str,"")
	Sleep(3000)
	$h = 0
	$i = 0
	$j = 0
	$k = 1
	$l = 1
	$m = 1
	$string[0] = ""
	While 1
		Send($string[$h] + $string[$i] + $string[$j] + $string[$k] + $string[$l] + $string[$m] + "{ENTER}")
		If $m = 6 Then
			If $l = 6 Then
				If $k = 6 Then
					If $j = 6 Then
						If $i = 6 Then
							If $h = 6 Then
								ExitLoop
							Else
								$h += 1
							EndIf
						Else
							$i += 1
						EndIf
					Else
						$j += 1
					EndIf
				Else
					$k += 1
				EndIf
			Else
				$l += 1
			EndIf
		Else
			$m += 1
		EndIf
	WEnd
WEnd

$text=InputBox("Letters","Type all Letters")
$SP=StringSplit($text,"")
$text=""
For $i=1 To $SP[0]
	$IsNumber=_IsNumber($SP[$i])
	If $IsNumber=1 Then
		$text=$text&$SP[$i]
	EndIf
Next
MsgBox(0,"",$text)

Func _IsNumber($Input)
	If $Input="0" Then Return 0 ;die "" sind wichtig da es sonst auch text als eine nummer erkennen würde 
	For $i=1 To 9
		If $Input=$i Then Return 0
	Next
	Return 1
EndFunc

#include <GUIConstantsEx.au3>
#include <Array.au3>
#include <GuiEdit.au3>

GUICreate("Brute Force", 450, 350)
GUICtrlCreateLabel("Chars:", 10, 10, 40, 20)
$CharInput = GUICtrlCreateInput("abc", 50, 10, 290)
$CombinationsOutput = GUICtrlCreateEdit("", 10, 40, 430, 250)
GUICtrlCreateLabel("Length:", 350, 10, 40, 20)
$LengthInput = GUICtrlCreateInput("3", 390, 10, 50, 20)
$StartButton = GUICtrlCreateButton("Start", 10, 300, 50)
$CharCountLabel = GUICtrlCreateLabel("Chars:       ", 80, 310) ; hier wird die Anzahl eingegebener Chars ausgegeben
$CombinationsLabel = GUICtrlCreateLabel("Combinations:                                                                           ", 180, 310) ; hier wird die Anzahl an Kombinationen ausgegeben
$CalculatedLabel = GUICtrlCreateLabel("Calculated:                                                                             ", 180, 330) ; hier wird die Zahl bereits berechneter Kombinationen ausgegeben
GUISetState()

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $StartButton
			$Length = GUICtrlRead($LengthInput)
			$Chars_splitted = StringSplit(GUICtrlRead($CharInput), "")

			$Combinations = $Chars_splitted[0]^$Length ; mögliche Kombinationen berechnen

			GUICtrlSetData($CharCountLabel, "Chars: " & $Chars_splitted[0]) ; Anzahl eingegebener Chars ausgeben
			GUICtrlSetData($CombinationsLabel, "Combinations: " & @TAB & $Combinations) ; Anzahl an Kombinationen ausgeben
			GUICtrlSetData($CombinationsOutput, "") ; Edit leeren
			GUICtrlSetData($StartButton, "STOP") ; Start-Button zu Stop-Button machen


			Dim $char[$Length] ; Char-Array erstellen
			For $i = 0 To $Length-1 ; Char-Array mit 1 füllen
				$char[$i] = 1
			Next


			For $i = 1 To $Combinations ; alle Kombinationen durchgehen

					; Wort ausgeben
					For $k = 0 To $Length-1 ; dazu Chars einzeln ausgeben
						_GUICtrlEdit_AppendText($CombinationsOutput, $Chars_splitted[$char[$k]])
					Next
					_GUICtrlEdit_AppendText($CombinationsOutput, @CRLF) ; neue Zeile
					GUICtrlSetData($CalculatedLabel, "Calculated:" & @TAB & $i) ; Anzahl bereits berechneter Kombinationen ausgeben

					; Wort erhöhen von hinten
					For $j = $Length-1 To 0 Step -1
						If $char[$j] < $Chars_splitted[0] Then
							; falls der letzte Char nicht der höchstmögliche ist, erhöhe den letzten Char und verlasse die Schleife
							$char[$j] += 1
							ExitLoop
						Else
							; falls der letzte Char der höchstmögliche ist, setze ihn auf den kleinstmöglichen und wiederhole die Schleife (=> vorherige Chars erhöhen)
							$char[$j] = 1
						EndIf
					Next

				If GUIGetMsg() = $StartButton Then ExitLoop ; Abbrechen falls STOP geklickt

			Next

			GUICtrlSetData($StartButton, "Start")

	EndSwitch
WEnd