toonboon Posted November 22, 2008 Share Posted November 22, 2008 Hi, I need to write this script for school which creates a wordlist with in it all possible words (not words, character combinations) from A-ZZZZZZZZ. Could anyone help me a little bit on how I could accomplish such thing. I have been thinking on how to do this, and trying things for over two hours now. I really need some help. Also, if there might already be a topic about it, I'm sorry, but I do not know what such a list is called. Toon [right]~What can I say, I'm a Simplistic person[/right] Link to comment Share on other sites More sharing options...
ProgAndy Posted November 22, 2008 Share Posted November 22, 2008 (edited) You need a recursive function. Have a working example, but it needs very LONG for 8 chars... #include<Array.au3> ;~ A-ZZZZZZZZ ;~ $allComb = _AllCOmbinations(8) ;~ A-ZZZ $allComb = StringSplit(_AllCOmbinations(3),@CRLF,1) _ArraySort($allComb,0,1) _ArrayDisplay($allComb) ; Prog@ndy Func _AllCOmbinations($MaxLen=8) Local $RetString For $i = Asc("A") To Asc("Z") $Char = Chr($i) $RetString &= $char & @CRLF $RetString &= _AllCOmbinationsRec($char,$MaxLen-1) Next Return StringTrimRight($RetString,2) EndFunc ; Prog@ndy Func _AllCOmbinationsRec($string,$MaxLen) If $MaxLen = 0 Then Return "" Local $RetString,$chars For $i = Asc("A") To Asc("Z") $chars = $string & Chr($i) $RetString &= $chars & @CRLF $RetString &= _AllCOmbinationsRec($chars,$MaxLen-1) Next Return $RetString EndFunc Edited November 22, 2008 by ProgAndy *GERMAN* [note: you are not allowed to remove author / modified info from my UDFs]My UDFs:[_SetImageBinaryToCtrl] [_TaskDialog] [AutoItObject] [Animated GIF (GDI+)] [ClipPut for Image] [FreeImage] [GDI32 UDFs] [GDIPlus Progressbar] [Hotkey-Selector] [Multiline Inputbox] [MySQL without ODBC] [RichEdit UDFs] [SpeechAPI Example] [WinHTTP]UDFs included in AutoIt: FTP_Ex (as FTPEx), _WinAPI_SetLayeredWindowAttributes Link to comment Share on other sites More sharing options...
toonboon Posted November 22, 2008 Author Share Posted November 22, 2008 Yes well my teacher is ok with it if I show the coding working =) 26^8 gives over 200e9 so that's not a smart idea And I think I also understand your coding, so I thank you very much. Now let's comment it for my teacher. [right]~What can I say, I'm a Simplistic person[/right] Link to comment Share on other sites More sharing options...
toonboon Posted November 22, 2008 Author Share Posted November 22, 2008 (edited) I calculated it, and it should take me around 280 days on this computer xD (for A-ZZZZZZZZ) Edited November 22, 2008 by toonboon [right]~What can I say, I'm a Simplistic person[/right] Link to comment Share on other sites More sharing options...
weaponx Posted November 22, 2008 Share Posted November 22, 2008 There is an equation for how many there results you will have but I can't think of it. Here is the long way: 26^1 + 26^2 + 26^3 + 26^4 + 26^5 + 26^6 + 26^7 + 26^8 = 217,180,147,158 Link to comment Share on other sites More sharing options...
toonboon Posted November 22, 2008 Author Share Posted November 22, 2008 it is just 26^8? 26^1 + 26^2 + 26^3 + 26^4 + 26^5 + 26^6 + 26^7 + 26^8 = 2,1718E+11 the actual value is 2,08827E+11 though... [right]~What can I say, I'm a Simplistic person[/right] Link to comment Share on other sites More sharing options...
weaponx Posted November 22, 2008 Share Posted November 22, 2008 it is just 26^8? 26^1 + 26^2 + 26^3 + 26^4 + 26^5 + 26^6 + 26^7 + 26^8 = 2,1718E+11the actual value is 2,08827E+11 though...26^8 would only be AAAAAAAA-FFFFFFFF, not A-FFFFFFFF. Link to comment Share on other sites More sharing options...
toonboon Posted November 22, 2008 Author Share Posted November 22, 2008 Oh, that is true, sorry. My bad ^^ [right]~What can I say, I'm a Simplistic person[/right] Link to comment Share on other sites More sharing options...
trancexx Posted November 22, 2008 Share Posted November 22, 2008 I believe there is "only" 18156203 combinations ♡♡♡ . eMyvnE Link to comment Share on other sites More sharing options...
toonboon Posted November 22, 2008 Author Share Posted November 22, 2008 how did you get to this conclusion? (18156203 isn't much. seeing that it takes around 5-6 milliseconds to generate one, on this very slow pc) [right]~What can I say, I'm a Simplistic person[/right] Link to comment Share on other sites More sharing options...
trancexx Posted November 22, 2008 Share Posted November 22, 2008 how did you get to this conclusion? (18156203 isn't much. seeing that it takes around 5-6 milliseconds to generate one, on this very slow pc)Generate them all to prove me wrong And calculate this: ♡♡♡ . eMyvnE Link to comment Share on other sites More sharing options...
toonboon Posted November 22, 2008 Author Share Posted November 22, 2008 state it 12345678 26 possibilities for 1 26 possibilities for 2 26 possibilities for 3 26 possibilities for 4 26 possibilities for 5 26 possibilities for 6 26 possibilities for 7 26 possibilities for 8 I guess that's 26*26*26*26*26*26*26*26=26^8=2,08e11 [right]~What can I say, I'm a Simplistic person[/right] Link to comment Share on other sites More sharing options...
ProgAndy Posted November 22, 2008 Share Posted November 22, 2008 (edited) There is an equation for how many there results you will have but I can't think of it. Here is the long way:26^1 + 26^2 + 26^3 + 26^4 + 26^5 + 26^6 + 26^7 + 26^8 = 217,180,147,158This is right. You have this:1 char: state it 1 -> 26 possibilities2 chars: state it 12 -> 26 possibilities for 1-> 26 possibilities for 2=> 26*26 = 26^2 possibilities3 chars: state it 123-> 26 possibilities for 1-> 26 possibilities for 2-> 26 possibilities for 3=> 26*26*26 = 26^3 possibilities...8 chars 26^8 then we have to add the numbers and ... tada it is 26^1 + 26^2 + 26^3 + 26^4 + 26^5 + 26^6 + 26^7 + 26^8 = 217,180,147,158 Edited November 22, 2008 by ProgAndy *GERMAN* [note: you are not allowed to remove author / modified info from my UDFs]My UDFs:[_SetImageBinaryToCtrl] [_TaskDialog] [AutoItObject] [Animated GIF (GDI+)] [ClipPut for Image] [FreeImage] [GDI32 UDFs] [GDIPlus Progressbar] [Hotkey-Selector] [Multiline Inputbox] [MySQL without ODBC] [RichEdit UDFs] [SpeechAPI Example] [WinHTTP]UDFs included in AutoIt: FTP_Ex (as FTPEx), _WinAPI_SetLayeredWindowAttributes Link to comment Share on other sites More sharing options...
trancexx Posted November 22, 2008 Share Posted November 22, 2008 This is right. You have this:1 char: state it 1 -> 26 possibilities2 chars: state it 12 -> 26 possibilities for 1-> 26 possibilities for 2=> 26*26 = 26^2 possibilities3 chars: state it 123-> 26 possibilities for 1-> 26 possibilities for 2-> 26 possibilities for 3=> 26*26*26 = 26^3 possibilities...8 chars 26^8 then we have to add the numbers and ... tada it is 26^1 + 26^2 + 26^3 + 26^4 + 26^5 + 26^6 + 26^7 + 26^8 = 217,180,147,158Yes of course. I like good explanations ♡♡♡ . eMyvnE Link to comment Share on other sites More sharing options...
SkinnyWhiteGuy Posted November 22, 2008 Share Posted November 22, 2008 Don't ask me how this works it just does. You can test it to be sure, I know I did: $combos = (($len^($max+1))-($len^$min))/($len-1) len is the count of the chars you want (I use len cause I store the chars a string, so this is it's length...) min is the minimum, and max is the maximum Like I said, it works, but I can't see how right now. Might be faster than adding all that in a loop for you. Link to comment Share on other sites More sharing options...
cheatera Posted November 22, 2008 Share Posted November 22, 2008 expandcollapse popup#include <GuiConstants.au3> GUICreate("gui") $lenght = 0 $button = GUICtrlCreateButton("Start", 10, 10) $label = GUICtrlCreateLabel("label", 10, 50, 100, 300) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $button then For $r = 1 to 10 $lenght = $r If $lenght = 1 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 FileWriteLine("file.txt", Chr($1) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "current pass: " & Chr($1)) Next EndIf If $lenght = 2 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 96 then $2 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "current pass: " & Chr($1) & Chr($2)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "current pass: " & Chr($1) & Chr($2)) Next EndIf If $lenght = 3 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 97 then $2 = 97 for $3 = 97 to 122 If Chr($3) = "." then $3 = 48 If Chr($3) = ":" then $3 = 65 If Chr($3) = "[" then $3 = 95 If $3 = 97 then $3 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & Chr($3) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3)) Next EndIf If $lenght = 4 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 97 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 96 then $2 = 97 for $3 = 97 to 122 If Chr($3) = "." then $3 = 48 If Chr($3) = ":" then $3 = 65 If Chr($3) = "[" then $3 = 95 If $3 = 96 then $3 = 97 for $4 = 97 to 122 If Chr($4) = "." then $4 = 48 If Chr($4) = ":" then $4 = 65 If Chr($4) = "[" then $4 = 95 If $4 = 96 then $4 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & Chr($3) & Chr($4) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4)) Next EndIf If $lenght = 5 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 96 then $2 = 97 for $3 = 97 to 122 If Chr($3) = "." then $3 = 48 If Chr($3) = ":" then $3 = 65 If Chr($3) = "[" then $3 = 95 If $3 = 96 then $3 = 97 for $4 = 97 to 122 If Chr($4) = "." then $4 = 48 If Chr($4) = ":" then $4 = 65 If Chr($4) = "[" then $4 = 95 If $4 = 96 then $4 = 97 for $5 = 97 to 122 If Chr($5) = "." then $5 = 48 If Chr($5) = ":" then $5 = 65 If Chr($5) = "[" then $5 = 95 If $5 = 96 then $5 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5)) Next EndIf If $lenght = 6 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 96 then $2 = 97 for $3 = 97 to 122 If Chr($3) = "." then $3 = 48 If Chr($3) = ":" then $3 = 65 If Chr($3) = "[" then $3 = 95 If $3 = 96 then $3 = 97 for $4 = 97 to 122 If Chr($4) = "." then $4 = 48 If Chr($4) = ":" then $4 = 65 If Chr($4) = "[" then $4 = 95 If $4 = 96 then $4 = 97 for $5 = 97 to 122 If Chr($5) = "." then $5 = 48 If Chr($5) = ":" then $5 = 65 If Chr($5) = "[" then $5 = 95 If $5 = 96 then $5 = 97 for $6 = 97 to 122 If Chr($6) = "." then $6 = 48 If Chr($6) = ":" then $6 = 65 If Chr($6) = "[" then $6 = 95 If $6 = 96 then $6 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6)) Next EndIf If $lenght = 7 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 96 then $2 = 97 for $3 = 97 to 122 If Chr($3) = "." then $3 = 48 If Chr($3) = ":" then $3 = 65 If Chr($3) = "[" then $3 = 95 If $3 = 96 then $3 = 97 for $4 = 97 to 122 If Chr($4) = "." then $4 = 48 If Chr($4) = ":" then $4 = 65 If Chr($4) = "[" then $4 = 95 If $4 = 96 then $4 = 97 for $5 = 97 to 122 If Chr($5) = "." then $5 = 48 If Chr($5) = ":" then $5 = 65 If Chr($5) = "[" then $5 = 95 If $5 = 96 then $5 = 97 for $6 = 97 to 122 If Chr($6) = "." then $6 = 48 If Chr($6) = ":" then $6 = 65 If Chr($6) = "[" then $6 = 95 If $6 = 96 then $6 = 97 for $7 = 97 to 122 If Chr($7) = "." then $7 = 48 If Chr($7) = ":" then $7 = 65 If Chr($7) = "[" then $7 = 95 If $7 = 96 then $7 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7)) Next EndIf If $lenght = 8 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 96 then $2 = 97 for $3 = 97 to 122 If Chr($3) = "." then $3 = 48 If Chr($3) = ":" then $3 = 65 If Chr($3) = "[" then $3 = 95 If $3 = 96 then $3 = 97 for $4 = 97 to 122 If Chr($4) = "." then $4 = 48 If Chr($4) = ":" then $4 = 65 If Chr($4) = "[" then $4 = 95 If $4 = 96 then $4 = 97 for $5 = 97 to 122 If Chr($5) = "." then $5 = 48 If Chr($5) = ":" then $5 = 65 If Chr($5) = "[" then $5 = 95 If $5 = 96 then $5 = 97 for $6 = 97 to 122 If Chr($6) = "." then $6 = 48 If Chr($6) = ":" then $6 = 65 If Chr($6) = "[" then $6 = 95 If $6 = 96 then $6 = 97 for $7 = 97 to 122 If Chr($7) = "." then $7 = 48 If Chr($7) = ":" then $7 = 65 If Chr($7) = "[" then $7 = 95 If $7 = 96 then $7 = 97 for $8 = 97 to 122 If Chr($8) = "." then $8 = 48 If Chr($8) = ":" then $8 = 65 If Chr($8) = "[" then $8 = 95 If $8 = 96 then $8 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8)) Next EndIf If $lenght = 9 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 96 then $2 = 97 for $3 = 97 to 122 If Chr($3) = "." then $3 = 48 If Chr($3) = ":" then $3 = 65 If Chr($3) = "[" then $3 = 95 If $3 = 96 then $3 = 97 for $4 = 97 to 122 If Chr($4) = "." then $4 = 48 If Chr($4) = ":" then $4 = 65 If Chr($4) = "[" then $4 = 95 If $4 = 96 then $4 = 97 for $5 = 97 to 122 If Chr($5) = "." then $5 = 48 If Chr($5) = ":" then $5 = 65 If Chr($5) = "[" then $5 = 95 If $5 = 96 then $5 = 97 for $6 = 97 to 122 If Chr($6) = "." then $6 = 48 If Chr($6) = ":" then $6 = 65 If Chr($6) = "[" then $6 = 95 If $6 = 96 then $6 = 97 for $7 = 97 to 122 If Chr($7) = "." then $7 = 48 If Chr($7) = ":" then $7 = 65 If Chr($7) = "[" then $7 = 95 If $7 = 96 then $7 = 97 for $8 = 97 to 122 If Chr($8) = "." then $8 = 48 If Chr($8) = ":" then $8 = 65 If Chr($8) = "[" then $8 = 95 If $8 = 96 then $8 = 97 for $9 = 97 to 122 If Chr($9) = "." then $9 = 48 If Chr($9) = ":" then $9 = 65 If Chr($9) = "[" then $9 = 95 If $9 = 96 then $9 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9)) Next EndIf If $lenght = 10 then for $1 = 97 to 122 If Chr($1) = "." then $1 = 48 If Chr($1) = ":" then $1 = 65 If Chr($1) = "[" then $1 = 95 If $1 = 96 then $1 = 97 for $2 = 97 to 122 If Chr($2) = "." then $2 = 48 If Chr($2) = ":" then $2 = 65 If Chr($2) = "[" then $2 = 95 If $2 = 96 then $2 = 97 for $3 = 97 to 122 If Chr($3) = "." then $3 = 48 If Chr($3) = ":" then $3 = 65 If Chr($3) = "[" then $3 = 95 If $3 = 96 then $3 = 97 for $4 = 97 to 122 If Chr($4) = "." then $4 = 48 If Chr($4) = ":" then $4 = 65 If Chr($4) = "[" then $4 = 95 If $4 = 96 then $4 = 97 for $5 = 97 to 122 If Chr($5) = "." then $5 = 48 If Chr($5) = ":" then $5 = 65 If Chr($5) = "[" then $5 = 95 If $5 = 96 then $5 = 97 for $6 = 97 to 122 If Chr($6) = "." then $6 = 48 If Chr($6) = ":" then $6 = 65 If Chr($6) = "[" then $6 = 95 If $6 = 96 then $6 = 97 for $7 = 97 to 122 If Chr($7) = "." then $7 = 48 If Chr($7) = ":" then $7 = 65 If Chr($7) = "[" then $7 = 95 If $7 = 96 then $7 = 97 for $8 = 97 to 122 If Chr($8) = "." then $8 = 48 If Chr($8) = ":" then $8 = 65 If Chr($8) = "[" then $8 = 95 If $8 = 96 then $8 = 97 for $9 = 97 to 122 If Chr($9) = "." then $9 = 48 If Chr($9) = ":" then $9 = 65 If Chr($9) = "[" then $9 = 95 If $9 = 96 then $9 = 97 for $10 = 97 to 122 If Chr($10) = "." then $10 = 48 If Chr($10) = ":" then $10 = 65 If Chr($10) = "[" then $10 = 95 If $10 = 96 then $10 = 97 FileWriteLine("file.txt", Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10) & @CRLF) GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next GUICtrlSetData($label, "$1 = " & $1 & @CRLF & "$2 = " & $2 & @CRLF & "$3 = " & $3 & @CRLF & "$4 = " & $4 & @CRLF & "$5 = " & $5 & @CRLF & "$6 = " & $6 & @CRLF & "$7 = " & $7 & @CRLF & "$8 = " & $8 & "$9 = " & $9 & "$10 = " & $10 & "current pass: " & Chr($1) & Chr($2) & Chr($3) & Chr($4) & Chr($5) & Chr($6) & Chr($7) & Chr($8) & Chr($9) & Chr($10)) Next EndIf Next EndIF Wend this is OLD rough code of what u need ... it calculates all lower (understand - upper too) case, 10 leghted "words", and outputs them in file.txt. i started it out for a winrar pass-cracker ... this ISNT worlist ofc ... its more like bruteforce. so with my calculations: PC used - P4 Quad Core @ 2.40 GHz, 4GB 800Mhz Ram - 2018.8 words per second 217,180,147,158 / 2018.8 = 107578832,55300178323756687140876 seconds 107578832,55300178323756687140876 / 3600 (one hour has 3600 seconds) = 29883,009042500495343768575391322 hours 29883,009042500495343768575391322 / 24 = 1245,1253767708539726570239746384 days 1245,1253767708539726570239746384 / 365 = 3,4113024021119286922110245880504 years ~ 3 years and 5 months ... well ... u WILL have that FULL list after this time ofc my code can be optimised, as i said its VERY VERY old and rough ... even filewriteline slows it down (with a few nanosecs but when they gather up ... ). im interested in this ... "project" so if any one has better machine, pls test my script (or improvet one) and paste results. mine is 2018.8 per sec cheers!system.bmp Is There A Life BEFORE Death?im stupidSaved warn logs: cheateraSmOke_N Note Added 17 January 2009 - 02:54 PM Added to warn level Posting a way to hack the registry and force sending someones desktop via TCP. Jos Note Added 25 November 2008 - 02:52 PM Added to warn level for being an impolite rookie.once a year i go bad ... what will happen in 2010??[u]Its GOOD to be BAD ... (Warlock's Succubus - World of Warcraft)[/u] Link to comment Share on other sites More sharing options...
qazwsx Posted November 23, 2008 Share Posted November 23, 2008 there is absolutely no reason to precompute plaint-text bruteforcers. It takes longer than generating them on the fly. If you want a word list, just ask. Link to comment Share on other sites More sharing options...
toonboon Posted November 23, 2008 Author Share Posted November 23, 2008 cheatera, I will definitely try out that code on my 4GB ram laptop. [right]~What can I say, I'm a Simplistic person[/right] Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now