ShonGail En phase de calmitude ... | Salut,
en autoit, ca donnerait ça :
Code :
- AutoItSetOption("MustDeclareVars", 1)
- Dim $MDP, $boucle, $boucle2, $chaine[4][2], $RND, $temp, $file
- $chaine[0][0] = "abcdefghijklmnopkrstuvwxyz"
- $chaine[0][1] = 4
- $chaine[1][0] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
- $chaine[1][1] = 4
- $chaine[2][0] = "0123456789"
- $chaine[2][1] = 2
- $chaine[3][0] = "+-_#@"
- $chaine[3][1] = 1
- For $boucle = 0 To 3
- For $boucle2 = 1 To $chaine[$boucle][1]
- $temp &= StringMid($chaine[$boucle][0], Random(1, StringLen($chaine[$boucle][0]), 1), 1)
- Next
- Next
- For $boucle = 0 To StringLen($temp)
- $RND = Random(1, StringLen($temp), 1)
- If $RND = 0 Then $RND = 1
- $MDP &= StringMid($temp, $RND, 1)
- $temp = StringReplace($temp, $RND, " " )
- $temp = StringStripWS($temp, 8)
- Next
- $file = FileOpen(@TempDir & "\MDP.txt", 1)
- If $file <> -1 Then
- FileWrite($file, $MDP)
- FileClose($file)
- EndIf
|
ici, tu as génération d'un mdp avec 4 lettres minuscules, 4 majuscules, 2 chiffres et 1 caractère étendu.
Le tout est écrit dans un fichier dans le dossier %temp% |