[R] Prénoms aléatoires

[sozary]

Re bonjour!
Tout d'abord désolé pour ce re-message, mais je n'avais pas clairement énoncé mon problème et est rencontré des difficultés supplémentaires....

Je veux créer un générateur de prénoms pour mon jeu, ou l'utilisateur rentre le nombre min et max de caractère qu'il veux que son prénom comprenne.

Voici mon code:

► Afficher le texte

Code : Tout sélectionner

$file=FileOpen("prénom.txt",1)
dim $choix[26]=["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"]
$nbmax=6
$nbmin=3
$avancement=0
$string=0
$stringlen=0
    while $stringlen<=$nbmax
$stringlen+=1
while $stringlen<$nbmax

        for $h=0 to 26

            $string=$choix[$h]
            FileWriteLine($file,$string&@CRLF)

for $i=0 to $stringlen

        $string&=$string[$h]
    Next

        FileWriteLine($file,$string&@CRLF)


Next
    WEnd
    WEnd

Il enregistre tous les résultats dans le fichier prénom.txt, et je voudrais qu'il répertorie tous les prénoms possibles, donc pour les valeurs nb min de caractères et nb max valant 3 et 6, cela devrait donner dans le fichier aaa, aab a la ligne 2, puis a la fin zzzzzz.
Or cela ne marche pas :/! Merci d'avance!

[jguinch]

Un générateur de prénoms ...
J'imagine déjà le générateur de mot de passe, non ?

[sozary]

Hum...........
Bon ok, mais franchement, je veux pas cracker reelement des mots de passe, mais je vais vous raconter une petite annectdote:
J avais telecharger une archive rar avec un mog de passe dessus, alors je me suis mis a chercher comment trouver ce mdp, alors j ai chercher comment hacker un mdp, et je suis tombé sur brute forve, de wikipedia. Alors j ai vus que sa mettrais problament des annees a cracker ce mot de passe. N ayant pas 60 ans de ma vie a passer sur une archive, je la supprima, mais je m interesse a comment afficher tous les caracteres possibles dans un interval donné. Mon tableau ferra alors $choix[62].
Si cela est illegal je comprendrais, mais je ne compte pas utiliser cette technique a mauvais estient.
Merci d avance!!

[mikell]

Heu tu te rends compte de ce que tu vas obtenir ?
Voilà un exemple, qui n'utilise QUE les lettres A, B et C et qui ne donne QUE les résultats de 6 lettres

► Afficher le texte

Code : Tout sélectionner

$Form1 = GUICreate("Form1", 150, 310, 200, 100)
$List = GUICtrlCreateList("", 20, 20, 110, 250)
$label = GUICtrlCreateLabel("", 20, 280, 110, 20)
GUISetState()

Dim $text[3] = ["A", "B", "C"], $n = 0, $long = 6  
_Vazi (0,"")
GUICtrlSetData($label, $n & "  solutions")

While GUIGetMsg()<>-3
Wend

 Func _Vazi ($temp, $string)
    for $i = 0 to UBound($text)-1
        if $temp < $long - 1 Then 
           _Vazi ($temp+1, $string & $text[$i] )
        Else
            GUICtrlSetData($List, $string & $text[$i] & "|")
            $n += 1
        EndIf
    Next
EndFunc
 

[sozary]

Ah! Et oui je savais, il y a 6^(62) possibilités pour un mot de passe de 6 caractère :/
Néanmoins merci pour ce code! J'ai apris que l'ont pouvait appeler sa fonction dans sa fonction !
Merci!

[mikell]

ça s'appelle la récursivité
Mais même si tu mets des limites : uniquement mots de 3 à 6 lettres comme ici

► Afficher le texte

Code : Tout sélectionner

$Form1 = GUICreate("Form1", 150, 310, 200, 100)
$List = GUICtrlCreateList("", 20, 20, 110, 250)
$label = GUICtrlCreateLabel("", 20, 280, 110, 20)
GUISetState()

Dim $text[3] = ["A", "B", "C"], $n = 0, $long = 6  
_Vazi (0,"")
GUICtrlSetData($label, $n & "  solutions")

While GUIGetMsg()<>-3
Wend

 Func _Vazi ($temp, $string)
    For $i = 0 to UBound($text)-1
        If $temp<$long Then
           _Vazi ($temp+1, $string & $text[$i] )
            If StringLen($string)>1  Then 
               GUICtrlSetData($List, $string & $text[$i] & "|")
               $n += 1
            EndIf
        EndIf
    Next
EndFunc
 

si tu augmentes le nombre de lettres Autoit va planter et te mettre un beau message d'erreur
Error: Recursion level has been exceeded - AutoIt will quit to prevent stack overflow.

[jchd]

Et oui je savais, il y a 6^(62) possibilités pour un mot de passe de 6 caractère

Que nenni, seulement 26^6 = 308915776 pour {a, b, c, ..., z} et 62^6 = 56800235584 pour {a,b,c,...,z,A,B,C,...,Z,0,1,2,...,9}

6^62 = 1759452407304813269615619081855885739163790606336, c'est pour 62 caractères dans {1,2,3,4,5,6}

[sozary]

Oui, j ai un peu modifier le code a des valeurs apparement extreme, mais autoit n aime pas trop sa! Et puis de toute façon, c etait juste a but instructif, je me fiche que le code soit fonctionnel, je veux savoir au moins comment il marche! (apres je dis pas que c est naze si il marche en plus )! Merci de cette petite (ou grande) modification sur le nb de possibilitées!

[sozary]

Alors juste Mickel, s il te plaît, pourrais tu juste m expliquer ton code svp, car j' avoue ne pas comprendre a partir du moment ou tu utilise justement la récursivitée (de manière qu un débutant comme moi comprenne svl !)
Merci d avance!

[Tlem]

Bonjour. Le titre de ce sujet est "Prénoms aléatoires". De plus, il est indiqué ceci :

Je veux créer un générateur de prénoms pour mon jeu, ou l'utilisateur rentre le nombre min et max de caractère qu'il veux que son prénom comprenne.

La création d'un mot contenant une suite de caractère ne peux pas être considéré comme un générateur de prénoms aléatoire. Je vois très mal quelqu'un ce faire appeler "Wxtahvoq" par exemple. ^^
Donc le mieux serait sans aucun doute de choisir au hasard dans une liste, par rapport aux critères sélectionnés.

Voici un code d'exemple utilisant le fichier csv disponible ici :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $PFile = "Liste des prénoms 2004-2012.csv"
If Not FileExists($PFile) Then
    MsgBox(16, "Erreur", "Le fichier des prénoms n'a pas été trouvé. Fin du programme.")
    Exit
EndIf
Global $aFPrenoms = FileReadToArray($PFile)
Global $aListePrenoms[UBound($aFPrenoms)][2]
$aListePrenoms[0][0] = UBound($aFPrenoms)
Global $Timeout = 10

; On met en Tableau en ne gardant que le sexe et le prenom.
For $i = 1 To UBound($aFPrenoms) - 1
    $aInfos = StringSplit($aFPrenoms[$i], ";")
    $aListePrenoms[$i][0] = $aInfos[3]
    $aListePrenoms[$i][1] = $aInfos[1]
Next

GUICreate("", 308, 186, -1, -1)
Global $Genre1 = GUICtrlCreateRadio("Masculin", 24, 64, 73, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
Global $Genre2 = GUICtrlCreateRadio("Féminin", 24, 96, 73, 17)
Global $CMin = GUICtrlCreateCombo("2", 136, 88, 41, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "2|3|4|5|6|7|8|9")
Global $CMax = GUICtrlCreateCombo("20", 224, 88, 41, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20")
GUICtrlCreateLabel("Longueur Mini", 120, 64, 71, 17)
GUICtrlCreateLabel("Longueur Maxi", 208, 64, 74, 17)
GUICtrlCreateLabel("Choix d'un prénom :", 72, 8, 162, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Go = GUICtrlCreateButton("Go", 72, 152, 75, 25)
Global $Annuler = GUICtrlCreateButton("Annuler", 160, 152, 75, 25)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $Annuler
            Exit

        Case $Go
            Local $Genre = "", $Min = 2, $Max = 20, $Choix = "", $ListChoix = ""
            ; On récupère le genre souhaité
            If BitAND(GUICtrlRead($Genre1), $GUI_CHECKED) = $GUI_CHECKED Then
                $Genre = "M"
            Else
                $Genre = "F"
            EndIf

            ; On récupère les valeurs Min et Max
            $Min = GUICtrlRead($CMin)
            $Max = GUICtrlRead($CMax)

            Local $Timer = TimerInit() ; Timer pour règler la durée du timeout de traitement
            While 1
                $Choix = Random(1, UBound($aListePrenoms) - 1, 1)
                If StringInStr($ListChoix, $Choix) Then ContinueLoop ; Pour éviter de reprendre le même choix
                $ListChoix &= "|" & $Choix

                Local $PLong = StringLen($aListePrenoms[$Choix][1])
                If StringInStr($aListePrenoms[$Choix][0], $Genre) Then
                    If $PLong >= $Min  And $PLong <= $Max  Then
                        MsgBox(64, "Prénom", "Prénom choisit : " & $aListePrenoms[$Choix][1] & @TAB)
                        ExitLoop
                    EndIf
                EndIf

                ; Test du TimeOut
                If Int(TimerDiff($Timer)/1000) > $Timeout Then
                    MsgBox(16, "Erreur", "Timeout de traitement atteind. Veuillez recommencer avec des critères moins restrictifs.")
                    ConsoleWrite($ListChoix & @CRLF)
                    ContinueCase
                EndIf
            WEnd

    EndSwitch
WEnd

Si la liste devient trop conséquente, il est aussi possible de passer par 2 fichiers de prénoms (un de garçon et un de fille) et de choisir le bon fichier au départ. J'ai essayé avec un fichier de 200000 prénoms masculin/feminin et les temps de traitement me paraissent plus qu'acceptables (4 secondes sur mon pauvre C2D pour initialiser le tableau principal).

[jguinch]

@Tlem : tu n'as pas lu son deuxième post ?
sozarya a avoué ce dont il avait réellement besoin...

On n'est quand même pas trop dans le légal, là hein...

Sinon, pour la fonction, on pouvait le faire aussi sans récursivité...
Un petite fonction, différente de _ArrayCombinations, puisqu'elle réutilise les caractères plusieurs fois (donc permet d'avoir aaa).

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>


Local $aCombi = _DataCombinations("abcdef", 5)
_ArrayDisplay($aCombi)



; #FUNCTION# ====================================================================================================================
; Name ..........: _DataCombinations
; Description ...: Returns an array of all possible combinations of a string or array
; Syntax ........: _DataCombinations($vData, $iLen)
; Parameters ....: $vData               - Data to use for combinations (can be a string or a 1D array)
;                  $iLen                - Length of the combination.
; Return values .: An array of the whole combinations
; Author ........: JGUINCH
; ===============================================================================================================================
Func _DataCombinations($vData, $iLen)
    Local $aData = $vData, $k, $iIndex, $iTemp

    If IsString($vData) Then $aData = StringRegExp($vData, "(.)", 3)

    Local $iSize = UBound($aData) ^ $iLen
    Local $aResult[$iSize]

    For $x = $iLen To 1 Step -1
        $iIndex = 0
        $iTemp = 0
        $n = Ubound($aData) ^ ( $x - 1)

        For $i = 1 To $iSize
            If $iTemp = $n Then
                $iTemp = 0
                If $iIndex = UBound($aData) - 1 Then
                    $iIndex = 0
                Else
                    $Iindex += 1
                EndIf
            EndIf

            $aResult[$i - 1] &= $aData[$iIndex]
            $iTemp += 1
        Next
    Next

    Return $aResult

EndFunc
 

[sozary]

Oui, j'avais dit un generateur de prenom, mais c'etait une couverture !
Merci pour cette fonction _array, je testerais ce soir en rentrant chez moi!

[mikell]

Je vois très mal quelqu'un ce faire appeler "Wxtahvoq" par exemple.

Tu es contre les prénoms mayas ?
Mais bah ... "Tlem", "jguinch" et "mikell" ne figurent pas non plus dans le csv ^^

pour la fonction, on pouvait le faire aussi sans récursivité.

Bien sûr mais c'est moins rigolo

[Tlem]

Mais bah ... "Tlem", "jguinch" et "mikell" ne figurent pas non plus dans le csv

C'est sur, mais ce ne sont pas des prénoms, mais des pseudos ...

Et puis, qui te dit que "Wxtahvoq" est un prénom d'origine Maya ?
En tout cas, Gogol ne connait pas, ni les principaux moteurs de recherche que je connais. Par contre, je n'ai pas trouvé le moteur de recherche Maya. C'est ptet ça ... Si tu as le lien, ce serait cool.

[sozary]

Vous disputez pas !
Je crois avoir compris, mais je crois pas avoir compris celle de la récursivité! Pourrais tu m'expliquer Mikell svp?

[jchd]

Récursivité : n.f. propriété d'un fonctionnement récursif.
Récursif : adj. qualifie un fonctionnement doté de récursivité.

[mikell]

qui te dit que "Wxtahvoq" est un prénom d'origine Maya ?

MDR ... dire que j'hésitais entre maya et turc ... et ya même la recherche sur Google ^^
Décidément, entre le second degré qui a du mal à passer et les "explications" de jchd certes d'une limpidité cristalline mais néanmoins sybillines, on sent bien que c'est l'hiver

@sozary
Voilà le code commenté, mais faudra quand même cravacher tes neurones

► Afficher le texte

Code : Tout sélectionner

GUICreate("test", 150, 310, 200, 100)
$List = GUICtrlCreateList("", 20, 20, 110, 250)
$label = GUICtrlCreateLabel("", 20, 280, 110, 20)
GUISetState()

Global $text[3] = ["A", "B", "C"], $n, $long = 6  ; longueur max de la chaine
_Vazi (0,"")
GUICtrlSetData($label, $n & "  solutions")

While GUIGetMsg()<>-3
Wend

 Func _Vazi ($temp, $string)   ; au 1er lancement $temp=0 et $string=""
    For $i = 0 to UBound($text)-1  ; parcourt l'array $text
        If $temp < $long Then   
           _Vazi ($temp+1, $string & $text[$i] )  ; incrémente $temp, rajoute la lettre à $string et relance la fonction
            GUICtrlSetData($List, $string & $text[$i] & "|")   ; écrit dans l'edit $string + la lettre 
            $n += 1  ; incrémente $n
        EndIf
    Next
EndFunc

[Tlem]

J'avais parfaitement compris le second degré . . . Je cherchais Juste à te taquiner comme tu sait si bien le faire. ^ ^

[mikell]

[sozary]

Bah là, sa a le mérite d etre clair! C etait juste le _Vasy dans le _Vasy qui m avais posé problème!!
Merci neanmoins a tous de m'avoir aidé! Je promets de ne pas utiliser vos aides pour de mauvaises intentions, d ailleur je suis deja sur autre chose! Merci quand meme a jchd pour sa definition, qui m a je crois révelé le sens de la vie .
Bonne continuation!!