#include <Array.au3>
#include <Crypt.au3>

Dim $aBig[36]   = ["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
Dim $aSmall[36] = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
Dim $Hash = "73F27B0BCBF9846B2911BDFD54A3265D"

$iMax = UBound($aBig) - 1

For $1 = 0 To $iMax
    For $2 = 0 To $iMax
        For $3 = 0 To $iMax
            For $4 = 0 To $iMax
                For $5 = 0 To $iMax
                    For $6 = 0 To $iMax
                        For $7 = 0 To $iMax
                            For $8 = 0 To $iMax
                                $String = $aSmall[$1] & $aSmall[$2] & $aSmall[$3] & $aSmall[$4] & $aSmall[$5] & $aSmall[$6] & $aSmall[$7] & $aSmall[$8]
                                ConsoleWrite($String & @CRLF)
                                If $Hash = StringTrimLeft(_Crypt_HashData($String, $CALG_MD5), 2) Then
                                    MsgBox(0, "", $String)
                                EndIf
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
Next