[..] Générer toutes les possibilités

[Yoyo86220]

Bonjour à tous,

Voici le script que j'ai besoin:
Au démarrage une inputbox ou on peu écrire se que l'on veut et je veux que le script génère toutes les combinaisons possible.

Voici se que j'ai fait mais ça ne créé pas toute les possibilité...

Code : Tout sélectionner

$mot = InputBox("Entrer votre mot", "")
$len = StringLen($mot)
For $m = 1 To $len
    For $i = 0 To $len-2
        $Lettre_a_decal = StringMid($mot, $len-$i, 1)
        $lettre_avant = StringMid($mot, $len-$i-1, 1)
        $Lettres_apres = StringMid($mot, $len-$i+1, $len)
        $lettres_avant = StringLeft($mot, $len-$i-2)
        $mot_possible = $lettres_avant&$Lettre_a_decal&$lettre_avant&$Lettres_apres
        FileWriteLine("Password.txt", $mot_possible)
    Next
Next

[Yoyo86220]

Aucune idée?

[jbnh]

Salut,

Bon j'ai un peu cherché et j'ai pas trouvé Je poste quand même ce que j'ai pondu en espérant que ca donnera une idée a quelqu'un de plus compétent :

Code : Tout sélectionner

Local $random
$word = "bonjour"
$len = StringLen($word)
$Array = StringSplit($word,"")
 
For $X = 1 to $Len
    $random &= $Array[Random (1, $Array[0], 1)]
Next

Msgbox(0,"", $random)

Mon code retourne un mot composé des lettres de bonjour en random.

[ani]

je dois avoir un algo quelque part sur un des pc
si je comprend bien votre demande vous désirez retourner toute ls possibilitées
genre 1234 retourne 24 combinaison ?
1*2*3*4 = 24 ?

je reviend

[Yogui]

script en provenance du forum anglais :

Code : Tout sélectionner

Local $current = 1
Local $set = 'bonjour'
While StringLen(FindPhrase($current,$set)) <= 7 
    ConsoleWrite(FindPhrase($current,$set) & @CRLF)
   $current += 1
Wend

Func FindPhrase($num, $set, $min_len=1)
    If $num = 0 Then Return ""
    Local $table = StringSplit($set,'')
    Local $set_len = $table[0]
    Local $total = 0, $i=0, $len=0, $value
    For $i = $min_len-1 To 1 Step -1
        $num += $set_len^$i
    Next
    While $total < $num
        $len+=1
        $total += $set_len^$len
    WEnd
    $total-=$set_len^$len
    While $total < $num And $len > 0
        $total += $set_len^($len-1)
        $i += 1
        If $total = $num Then
            $total -= $set_len^($len-1)
            $value &= $table[$i]
            $len-=1
            $i=0
        EndIf
        If $total > $num Then
            $total -= $set_len^($len-1)
            $value &= $table[$i]
            $len-=1
            $i=0
        EndIf
    WEnd
    Return $value
EndFunc

[ani]

a regarder comme çà, je suis pas sure que sa soit çà !
le script va découper le mot s'en tenir compte du mot entier , je m'explique
bonjour
=> bbbbbbb, bbbbbbo ect...

(bonjour) = 5040(combinaison)
1*2*3*4*5*6*7 et non 7^7

je reprend le 1234 = 24 combinaison en comptant le 1234

Code : Tout sélectionner

1234
1243
1342
1324
1423
1432

2134
2143
2341
2314
2413
2431

3214
3241
3124
3142
3421
3412

4321
4312
4231
4213
4132
4123

je retrouve pas mon petit algo
vais essayer de le refaire

[Yogui]

Effectivement alors je corrige toujours en directe du forum anglais

► Afficher le texte

Code : Tout sélectionner

func rotate($sString, $nRotateLevel)

    local $aStringArray = StringSplit($sString,"")
    local $nStartRotate = $aStringArray[0] - $nRotateLevel + 1
    local $n, $tempchar, $tempstr = "", $retval = ""

    for $n = 1 to $nStartRotate - 1
        $tempstr= $tempstr & $aStringArray[$n]
    next
    
    $tempchar = $aStringArray[$nStartRotate]

    for $n = $nStartRotate+1 to $aStringArray[0]
        $retval = $retval & $aStringArray[$n]
    next
    
    $retval = $tempstr & $retval & $tempchar

    return $retval
endfunc


func permute_internal($sString, $nRotateLevel, byref $permutations)

    local $n, $str
    dim $arr[$nRotateLevel]
  
    if $nRotateLevel = 2 then
       $permutations = $permutations & ":" & rotate($sString,$nRotateLevel)
       return
    endif

    $str = $sString
    for $n = 0 to $nRotateLevel -1
        $str = rotate($str,$nRotateLevel)
        $arr[$n] = $str

      ;--- special check, to stop a level beeing printed twice ---
        if not (($n = 0) AND (StringLen($sString) > $nRotateLevel)) then
           $permutations = $permutations & ":" & $arr[$n]
        endif

        permute_internal($arr[$n],$nRotateLevel-1,$permutations)
    next

endfunc

func permute($sString)

     global $permutations = ""
     permute_internal($sString,StringLen($sString),$permutations)
     $permutations = StringTrimLeft($permutations,1)

     return StringSplit($permutations,":")
endfunc

;-----------------------------------------------------------------------------
;--  MAIN
;-----------------------------------------------------------------------------

$permutarray = permute("1342")

$msg = ""
for $n = 1 to $permutarray[0]
   $msg = $msg & $permutarray[$n] & @CRLf
next

msgbox(0,"", $msg)

ce qui bonne :

► Afficher le texte

Code : Tout sélectionner

2341
2431
2134
2143
2341
2314
3412
3142
3241
3214
3412
3421
4123
4213
4312
4321
4123
4132
1234
1324
1423
1432
1234
1243

Edit pour ajouter ce lien :

http://msdn.microsoft.com/en-us/library/aa302371.aspx

[Tlem]

Super le brainstorming.

[ani]

merci yogui