Sign in to follow this  
Followers 0
toonboon

Generate wordlist A-ZZZZZZZZ

18 posts in this topic

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]

Share this post


Link to post
Share on other sites



#2 ·  Posted (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 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

Share this post


Link to post
Share on other sites

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 :mellow:

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]

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

I calculated it, and it should take me around 280 days on this computer xD (for A-ZZZZZZZZ)

Edited by toonboon

[right]~What can I say, I'm a Simplistic person[/right]

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

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...

26^8 would only be AAAAAAAA-FFFFFFFF, not A-FFFFFFFF.

Share this post


Link to post
Share on other sites

Oh, that is true, sorry. My bad ^^


[right]~What can I say, I'm a Simplistic person[/right]

Share this post


Link to post
Share on other sites

I believe there is "only" 18156203 combinations


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

#13 ·  Posted (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,158

This is right. You have this:

1 char: state it 1 -> 26 possibilities

2 chars: state it 12

-> 26 possibilities for 1

-> 26 possibilities for 2

=> 26*26 = 26^2 possibilities

3 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 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

Share this post


Link to post
Share on other sites

This is right. You have this:

1 char: state it 1 -> 26 possibilities

2 chars: state it 12

-> 26 possibilities for 1

-> 26 possibilities for 2

=> 26*26 = 26^2 possibilities

3 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

Yes of course. :mellow:

I like good explanations


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

#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 :mellow:

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]

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

cheatera, I will definitely try out that code on my 4GB ram laptop.


[right]~What can I say, I'm a Simplistic person[/right]

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0