[..] Génération de mots de passe
Posté : jeu. 21 janv. 2010 16:53
Bonjour.
Je suis sur un générateur de mots de passe, mais je galère un peu.
Voilà mon script :
Je me suis dit, ouais, youpi, ça marche !
..et ben, non. Problème d'arrays, comme toujours avec moi si vous me connaissez. Donc, je veux générer un pseudonyme avec un nombre de caractère à spécifier ($Caracteres_Readden), selon des caractères spécifiés ($Specials_Characters, $Alphabeticals_a, etc..), et doit être capable de générer un nombre de MDP's précisé ($Number_Readden).
SVP, aidez-moi !
Je suis sur un générateur de mots de passe, mais je galère un peu.
Voilà mon script :
Code : Tout sélectionner
Func Random_Name()
$Specials_Chrs_Readden = GUICtrlRead($Specials_Chrs)
$Numericals_Chrs_Readden = GUICtrlRead($Numericals_Chrs)
$Alphabeticals_a_Readden = GUICtrlRead($Alphabeticals_a)
$Alphabeticals_AA_Readden = GUICtrlRead($Alphabeticals_AA)
$Number_Readden = GUICtrlRead($Number)
$Caracteres_Readden = GUICtrlRead($Caracteres)
Global $Chs[$Caracteres_Readden][77] = [$Caracteres_Readden]["a", "e", "i", "o", "u", "y", "b", "c", "d", "f", "g", "h", "j", "k", "l", "m", _
"n", "p", "q", "r", "s", "t", "v", "w", "x", "z", "*", "$", "*", "#", "%", "£", ".", "/", ";", "?", ",", "µ", "-", "{", "~", "@", _
"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"]
Global $count = 0
Select
Case $Specials_Chrs_Readden = $GUI_CHECKED And $Numericals_Chrs_Readden = $GUI_CHECKED And $Alphabeticals_a_Readden = $GUI_CHECKED And $Alphabeticals_AA_Readden = $GUI_CHECKED
$Min = 1
$Max = 77
Case $Specials_Chrs_Readden = $GUI_CHECKED And $Alphabeticals_a_Readden = $GUI_CHECKED And $Alphabeticals_AA_Readden = $GUI_CHECKED
$Min = 1
$Max = 68
Case $Specials_Chrs_Readden = $GUI_CHECKED And $Alphabeticals_a_Readden = $GUI_CHECKED
$Min = 1
$Max = 42
Case $Alphabeticals_a_Readden = $GUI_CHECKED
$Min = 1
$Max = 26
Case $Specials_Chrs_Readden = $GUI_CHECKED
$Min = 27
$Max = 42
Case $Number_Readden = $GUI_CHECKED
$Min = 68
$Max = 77
Case $Alphabeticals_AA_Readden = $GUI_CHECKED
$Min = 42
$Max = 68
Case Else
MsgBox(64, "Erreur", "Veuillez spécifier une autre configuration.")
EndSelect
Do
$L[$count] = [$Chs[$count][Random($Min, $Max)]]
Until $count = $Caracteres_Readden
$Pseudo = $L[1]&$L[2]&$L[3]&$L[4]&$L[5]&$L[6]&$L[7]&$L[8]&$L[9]&$L[10]
EndFunc ;==>Random_Name..et ben, non. Problème d'arrays, comme toujours avec moi si vous me connaissez. Donc, je veux générer un pseudonyme avec un nombre de caractère à spécifier ($Caracteres_Readden), selon des caractères spécifiés ($Specials_Characters, $Alphabeticals_a, etc..), et doit être capable de générer un nombre de MDP's précisé ($Number_Readden).
SVP, aidez-moi !
