[Ex] Mot de Passe Generator (MPG) By me !

[Drave]

Salut a tous je viens de créer un générateur de mot de passe ( je c'est qu'il en existe déjà un mais je l'ai améliorer)

► Afficher le texteVoici le Code

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
 
 Global $file
 
$gui = GUICreate ("Mot de passe generator",500,200)
$generer = GUICtrlCreateButton ("Generer",250,160,100)
$reset = GUICtrlCreateButton ("Reset",400,160,50)
$enregistrer = GUICtrlCreateButton ("Enregistrer dans mot de passe generator.txt",200,97,250)
$check1 = GUICtrlCreateCheckbox ("Chiffre",15,10)
$check2 = GUICtrlCreateCheckbox ("Lettres",15,30)
$check3 = GUICtrlCreateCheckbox ("Majuscule,Minuscule (Seulement avec ""LETTRE"")",15,50)
$check4 = GUICtrlCreateCheckbox ("Caractere speciaux (&'_:;,.!@#$%*()-=+[]\/?)",15,70)
$check5 = GUICtrlCreateCheckbox ("Sauvegarder automatiquement",15,90)
$input1 = GUICtrlCreateInput ("",285,50,200,21,BitOR ($ES_CENTER,$ES_READONLY))
$input2 = GUICtrlCreateInput ("10",125,125,50,21,BitOR ($ES_CENTER,$ES_READONLY))
$input3 = GUICtrlCreateInput ("1",65,150,50,21,BitOR ($ES_CENTER,$ES_READONLY))
GUICtrlCreateUpdown ($input2)
GUICtrlCreateUpdown ($input3)
GUICtrlCreateLabel ("Nombre de caractere",15,125)
GUICtrlCreateLabel ("Generer",15,150)
GUICtrlCreateLabel ("Mot de passe",125,150)
GUISetState (@SW_SHOW)
While 1
     $m = GUIGetMsg ()
    Switch $m
        Case $GUI_EVENT_CLOSE
            MsgBox (64,"About this","About this program : By Drave, All right reserved")
            ExitLoop
        Case $generer
            For $x = 1 To GUICtrlRead($input3)
                 GUICtrlSetData ($input1,_mdpgenerate(GUICtrlRead($input2),GUICtrlRead($input3),_IsChecked ($check1),_IsChecked ($check2),_IsChecked ($check3),_IsChecked ($check4),_IsChecked($check5)))
            Next
        
        Case $reset
            GUICtrlSetData ($input1,"")
            GUICtrlSetData ($input2,"10")
            GUICtrlSetData ($input3,"1")
        Case $enregistrer 
            $file = FileOpen ("mot de passe generator.txt",1)
            FileWriteLine ($file, GUICtrlRead($input1))
            FileClose ($file)
            
    EndSwitch
WEnd
 
 Func _mdpgenerate($nbcara,$fois,$chiffreflag,$lettreflag,$majflag,$caraspeceflag,$sauvegardeauto)
     Local $mdp,$lettre1,$chiffre1,$maj1,$caraspece1
     If $chiffreflag = 1 Then
         $chiffre1 = "0123456789"
     EndIf
     
     If  $majflag = 1 Then
         $maj1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
          EndIf
     If $lettreflag = 1 Then
         $lettre1 ="abcdefghijklmnopqrstuvwxyz"
    EndIf
     
     If $caraspeceflag = 1 Then
         $caraspece1 = "&'_:;,.!@#$%*()-=+[]\/?"
     EndIf
     
         
     If $chiffreflag  And $lettreflag  And  $majflag  And $caraspeceflag  Then
         
         $cara = StringSplit ($chiffre1 & $lettre1 & $maj1& $caraspece1,"")
         
     ElseIf $chiffreflag  And $lettreflag  And $majflag  Then
         
         $cara = StringSplit ($chiffre1 & $lettre1 & $maj1 ,"")
     ElseIf $chiffreflag  And $lettreflag  and $caraspeceflag Then
         
         $cara = StringSplit ($chiffre1 & $lettre1 & $caraspece1,"" )
     ElseIf $lettreflag  And $majflag  And $caraspeceflag  Then
         
         $cara = StringSplit ($lettre1 & $maj1 & $caraspece1,"")
     
     ElseIf $chiffreflag  And $caraspeceflag  Then
         
         $cara = StringSplit ($chiffre1&$caraspece1,"")
     ElseIf $chiffreflag  And $lettreflag  Then
         
        $cara = StringSplit ($chiffre1 & $lettre1,"")
         
    
     ElseIf $lettreflag  And $caraspeceflag  Then
         $cara = StringSplit ($lettre1 & $caraspece1,"")
     ElseIf $lettreflag  And $majflag  Then
         $cara = StringSplit ($lettre1 & $maj1,"")

     ElseIf $chiffreflag  Then
    
         
         $cara = StringSplit ($chiffre1,"")
    
     
     ElseIf $lettreflag  Then
     

         $cara = StringSplit ($lettre1,"")
     ElseIf $caraspeceflag Then
        $cara = StringSplit ($caraspece1,"")
    ElseIf $majflag  Then
        $cara = StringSplit ("","")
     Else
         MsgBox (16,"Error","Error le programme a rencontrer un probleme car vous n'ever pas cocher de case il va redemarer ... Il se peut aussi que le bug soit du au fait que vous ayer cliquer sur ""Majuscule,minuscule"" sans ""Lettres""")
         ShellExecute ("Mot de passe generator.exe")
     EndIf
     
     
     
     For $i = 1 To $nbcara 
         $mdp &= $cara[Random(1,$cara[0],1)]
     Next
     
     If $sauvegardeauto Then
        $file = FileOpen ("mot de passe generator.txt",1)
        FileWriteLine ($file, GUICtrlRead($input1))
        FileClose ($file)
    EndIf
     Return $mdp
     
     
    
 EndFunc
 
 Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc
 

Mot de passe generator.au3

Le code au format .au3

(4.18 Kio) Téléchargé 285 fois

[guitarist]

Super mais il reste un souci majeur^^
Comme tu utilise la fonction Random il se peut qu'il arrive qu'il y est 2 meme mot de passe ce qui est fort genant lorsque se sont des mots depasse tres importants.
Tu pourrai pluto rajouter 1 a une variable a chaque foi sa donerai

AAAAA
AAAAB
etc
etc
meme si sa te plai pa c la seule facon de ne pa avoir de souci

Voila
C'est un tres bon scrit quand meme^^

[Drave]

Raphael tu imagines quelqu'un avec comme mot de passe AAAAAA ?? le but de se programme est d'obtenir un mot de passe compliqué et difficilement trouvable par hasard alors avec un simple programme qui teste les possibilite ( comme ce que tu pensait ) il le trouverait du 1er coup pour le 1er mot de passe.

Par contre j'ai un bug avec ce programme, c'est que si je met plus de 999 caractere ou 999 mots de passe le prog' ne fait rien

[guitarist]

A toi de reflechir si tu veux des mots de passe compliqué mais aleatoir ou des moins complquer (de ton point de vu mais pa du mien) mai avec de l'organisation.

PS: un bon cours de probabilité te ferai droement du bien.

[Habibsbib]

Escuse moi Drave, mais la fonction enregister de marche pas car tu n'as pas ajouté une ligne de création du fichier contenant les mot de passes : en effet, dans ton script, tu dis tout de suite enregistre ça dans le ficheir sans même le créer !

[Drave]

Chez moi cela cree automatiquement le fichier texte mot de passe .txt apres je vais peut etre essayer de l'ameliorer en le fesant avc un ini et les numeroté

ET VOILA j'avai dit que j'essairait de l'ameliorer et bien c'est fait ! Voici le new code
Les nouvauté
-Les mot de passe sont enregistrer dans un fichier .ini
-Si il a deja des mot de passe il continu a la suite et n'effacent pas les ancien !

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <file.au3>
 Global Const $chemin = "mot de passe generator.ini"
 Global $y = _FileCountLines ($chemin)/2+1

 
 
$gui = GUICreate ("Mot de passe generator",500,200)
$generer = GUICtrlCreateButton ("Generer",250,160,100)
$reset = GUICtrlCreateButton ("Reset",400,160,50)
$enregistrer = GUICtrlCreateButton ("Enregistrer dans mot de passe generator.txt",200,97,250)
$check1 = GUICtrlCreateCheckbox ("Chiffre",15,10)
$check2 = GUICtrlCreateCheckbox ("Lettres",15,30)
$check3 = GUICtrlCreateCheckbox ("Majuscule,Minuscule (Seulement avec ""LETTRE"")",15,50)
$check4 = GUICtrlCreateCheckbox ("Caractere speciaux (&'_:;,.!@#$%*()-=+[]\/?)",15,70)
$check5 = GUICtrlCreateCheckbox ("Sauvegarder automatiquement",15,90)
$input1 = GUICtrlCreateInput ("",285,50,200,21,BitOR ($ES_CENTER,$ES_READONLY))
$input2 = GUICtrlCreateInput ("10",125,125,50,21,BitOR ($ES_CENTER,$ES_READONLY))
$input3 = GUICtrlCreateInput ("1",65,150,50,21,BitOR ($ES_CENTER,$ES_READONLY))
GUICtrlCreateUpdown ($input2)
GUICtrlCreateUpdown ($input3)
GUICtrlCreateLabel ("Nombre de caractere",15,125)
GUICtrlCreateLabel ("Generer",15,150)
GUICtrlCreateLabel ("Mot de passe",125,150)
GUISetState (@SW_SHOW)
While 1
     $m = GUIGetMsg ()
    Switch $m
        Case $GUI_EVENT_CLOSE
            MsgBox (64,"About this","About this program : By Drave, All right reserved")
            ExitLoop
        Case $generer
            For $x = 1 To GUICtrlRead($input3)
                 GUICtrlSetData ($input1,_mdpgenerate(GUICtrlRead($input2),GUICtrlRead($input3),_IsChecked ($check1),_IsChecked ($check2),_IsChecked ($check3),_IsChecked ($check4),_IsChecked($check5)))
                 
            Next
        
        Case $reset
            GUICtrlSetData ($input1,"")
            GUICtrlSetData ($input2,"10")
            GUICtrlSetData ($input3,"1")
        Case $enregistrer 
            
            IniWrite ($chemin,$y,"mdp ",guictrlread($input1))
            $y = $y+1
        
            
    EndSwitch
WEnd
 
 Func _mdpgenerate($nbcara,$fois,$chiffreflag,$lettreflag,$majflag,$caraspeceflag,$sauvegardeauto)
     Local $mdp,$lettre1,$chiffre1,$maj1,$caraspece1
     If $chiffreflag = 1 Then
         $chiffre1 = "0123456789"
     EndIf
     
     If  $majflag = 1 Then
         $maj1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
          EndIf
     If $lettreflag = 1 Then
         $lettre1 ="abcdefghijklmnopqrstuvwxyz"
    EndIf
     
     If $caraspeceflag = 1 Then
         $caraspece1 = "&'_:;,.!@#$%*()-=+[]\/?"
     EndIf
     
         
     If $chiffreflag  And $lettreflag  And  $majflag  And $caraspeceflag  Then
         
         $cara = StringSplit ($chiffre1 & $lettre1 & $maj1& $caraspece1,"")
         
     ElseIf $chiffreflag  And $lettreflag  And $majflag  Then
         
         $cara = StringSplit ($chiffre1 & $lettre1 & $maj1 ,"")
     ElseIf $chiffreflag  And $lettreflag  and $caraspeceflag Then
         
         $cara = StringSplit ($chiffre1 & $lettre1 & $caraspece1,"" )
     ElseIf $lettreflag  And $majflag  And $caraspeceflag  Then
         
         $cara = StringSplit ($lettre1 & $maj1 & $caraspece1,"")
     
     ElseIf $chiffreflag  And $caraspeceflag  Then
         
         $cara = StringSplit ($chiffre1&$caraspece1,"")
     ElseIf $chiffreflag  And $lettreflag  Then
         
        $cara = StringSplit ($chiffre1 & $lettre1,"")
         
    
     ElseIf $lettreflag  And $caraspeceflag  Then
         $cara = StringSplit ($lettre1 & $caraspece1,"")
     ElseIf $lettreflag  And $majflag  Then
         $cara = StringSplit ($lettre1 & $maj1,"")

     ElseIf $chiffreflag  Then
    
         
         $cara = StringSplit ($chiffre1,"")
    
     
     ElseIf $lettreflag  Then
     

         $cara = StringSplit ($lettre1,"")
     ElseIf $caraspeceflag Then
        $cara = StringSplit ($caraspece1,"")
    ElseIf $majflag  Then
        $cara = StringSplit ("","")
     Else
         MsgBox (16,"Error","Error le programme a rencontrer un probleme car vous n'ever pas cocher de case il va redemarer ... Il se peut aussi que le bug soit du au fait que vous ayer cliquer sur ""Majuscule,minuscule"" sans ""Lettres""")
         ShellExecute ("Mot de passe generator.exe")
     EndIf
     
     
     
     For $i = 1 To $nbcara 
         $mdp &= $cara[Random(1,$cara[0],1)]
     Next
     
     If $sauvegardeauto Then
        IniWrite($chemin,$y,"mdp",$mdp)
        $y = $y+1
    EndIf
     Return $mdp
     
     
    
 EndFunc
 
 Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc
 

Mot de passe generator 1.1.au3

Mot de passe generator 1.1

(4.18 Kio) Téléchargé 194 fois

[guitarist]

Drave quand je t'avai parler d'un fichier.ini TU NE MA PAS ECOUTE JUSQU'AU BOUT!!!

Je te disais que tu devrai inscrire les mots de passe dans un fichier ini et dire à ton script de chercher dans le fichier .ini si le mot de passe existe et si il existe deja à ce moment la en faire un autre.
Ecoute jusqu'au bout la prochaine fois ????

[Iste]

Surtout qu'avec un ini, c'est facile, suffit de mettre les mot de passe en key, et l'on voi aussitôt si l'entrée existe déja ou pas
Par contre, utilisé une logiciel de génération de mdp avec un fonction 'enregistrer', je trouve ca un peu contradictoire ^^'

@Habibsbib : "filename will be created if it does not already exist.", c'est marqué dans la doc...

[guitarist]

Tu est foutu mon coco j'ai trouver la solution , le script (le vrai) et la fonction pour verifier

Le script que j'ai mis ici est une reprise du script de JBnh dont le post et ici : http://www.autoitscript.fr/forum/viewto ... =21&t=1878

Le script le voici :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <UpDownConstants.au3>


$file = FileOpen ("mpgenerator.txt",1)

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PassWord Generator v1.0", 279, 211, 192, 124)
GUICtrlCreateLabel("PassWord Generator", 42, 8, 205, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

GUICtrlCreateLabel("Password Len", 115, 60, 83, 17)
$PassWrdLen = GUICtrlCreateInput("10", 67, 56, 40, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY,$ES_NUMBER))
GUICtrlCreateUpdown (-1)
GUICtrlSetLimit(-1, 20, 1)

$SpecialChars = GUICtrlCreateCheckbox("    Special Chars", 80, 96, 145, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$PassWrd = GUICtrlCreateInput("", 52, 136, 170, 21, BitOR($ES_CENTER,$ES_READONLY))

$Generate = GUICtrlCreateButton("Generate", 106, 176, 75, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetState($Generate, $GUI_FOCUS)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        FileClose ($file)
            Exit
        
        Case $Generate
            GUICtrlSetData($PassWrd, _PassWordGenerate(GUICtrlRead($PassWrdLen), _IsChecked($SpecialChars)))
            _vmdp ()
            $mdp = GUICtrlRead ($PassWrd)
            FileWrite ($file,$mdp & @CRLF)
    EndSwitch
WEnd

;===============================================================================
; Description:      Returns a password string with or without special chars.
; Parameter(s):     $PassWordLen - The len of desired password
;                   $CharFlag    - Use special chars in password.
;                                  0 = No
;                                  1 = Yes
; Requirement(s):   None
; Return Value(s):  Return a string.
;
; Author(s):        JBnH
; Note(s):
; Examples:         MsgBox(64,"Password without special chars", _PassWordGenerate(10, 0))
;                   MsgBox(64,"Password with special chars", _PassWordGenerate(10, 1))
;===============================================================================
Func _PassWordGenerate($PassWordLen, $CharFlag)
Local $PassWrd, $Global
    If $CharFlag = 1 Then
        $SpecialChar = StringSplit("&'_:;,.!@#$%*()-=+[]\/?", "")
        For $X = 1 to $SpecialChar[0]    
            $Global &= $SpecialChar[$X]      
        Next
        $Array = StringSplit("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" & $Global,"")
    Else
   
        $Array = StringSplit("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789","")
    Endif
   
   
    For $X = 1 to $PassWordLen
        $PassWrd &= $Array[Random (1, $Array[0], 1)]
    Next
 
    Return $PassWrd
EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc
;===============================================================================
; Description:      Verifie si le mot de passe n'existe pas deja et le change si il l'est
; Parameter(s):     Avoir un creatueur de mot de passe avec sa fonction
;                                                  
; Requirement(s):   None
; Return Value(s):  Return a string.
;
; Author(s):        guitarist
; Note(s):
; Examples:         
;                   
;===============================================================================

Func _vmdp ()
Local $line = 0
$mdpf = FileRead ($file)
$mdpfi = StringSplit ($mdpf,@CRLF)
$mdp = GUICtrlRead ($PassWrd)

$line +=1
            If $mdpfi[$line] = $mdp Then
                GUICtrlSetData($PassWrd, _PassWordGenerate(GUICtrlRead($PassWrdLen), _IsChecked($SpecialChars)))
                _vmdp ()
            EndIf
    
EndFunc
 

Ma fonction la voici :

► Afficher le texte

Code : Tout sélectionner

Func _vmdp ()
Local $line = 0
$mdpf = FileRead ($file)
$mdpfi = StringSplit ($mdpf,@CRLF)
$mdp = GUICtrlRead ($PassWrd)

$line +=1
            If $mdpfi[$line] = $mdp Then
                GUICtrlSetData($PassWrd, _PassWordGenerate(GUICtrlRead($PassWrdLen), _IsChecked($SpecialChars)))
                _vmdp ()
            EndIf
    
EndFunc

La fontion de creation de mot de passe la voici :

► Afficher le texte

Code : Tout sélectionner

Func _PassWordGenerate($PassWordLen, $CharFlag)
Local $PassWrd, $Global
    If $CharFlag = 1 Then
        $SpecialChar = StringSplit("&'_:;,.!@#$%*()-=+[]\/?", "")
        For $X = 1 to $SpecialChar[0]    
            $Global &= $SpecialChar[$X]      
        Next
        $Array = StringSplit("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" & $Global,"")
    Else
   
        $Array = StringSplit("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789","")
    Endif
   
   
    For $X = 1 to $PassWordLen
        $PassWrd &= $Array[Random (1, $Array[0], 1)]
    Next
 
    Return $PassWrd
EndFunc

Donc a présent tu a deux choix possibles :

-Soit tu reprends mon script a la place du tient

-Soit tu ajuste ma fonction pour ton script


PS : il y avait donc bien un generateur de mot de passe qui a été fait avant toi et dont je pense "plus facile a utiliser".

PwdGen.au3

Remeciment a JBnh

(3.63 Kio) Téléchargé 192 fois

PS2 : dans ton script quand tu met :

Code : Tout sélectionner

            MsgBox (64,"About this","About this program : By Drave, All right reserved")

S'il te plait sa me tue rajoute un "s" a right donc sa donne rights

[sylvanie]

Une suggestion d'amélioration serait de chiffrer le fichier ini, au moins avec stringencrypt, pour éviter d'avoir des mots de passe qui se baladent gentiment sur le disque dur.

[guitarist]

Voilà le script :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <UpDownConstants.au3>
#Include <String.au3>

$file = FileOpen ("mpgenerator.txt",1)
$file2 = FileOpen("Mots de passe décodés.txt",1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PassWord Generator v1.0", 279, 211, 192, 124)
GUICtrlCreateLabel("PassWord Generator", 42, 8, 205, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

GUICtrlCreateLabel("Password Len", 115, 60, 83, 17)
$PassWrdLen = GUICtrlCreateInput("10", 67, 56, 40, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY,$ES_NUMBER))
GUICtrlCreateUpdown (-1)
GUICtrlSetLimit(-1, 20, 1)

$SpecialChars = GUICtrlCreateCheckbox("    Special Chars", 80, 96, 145, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$PassWrd = GUICtrlCreateInput("", 52, 136, 170, 21, BitOR($ES_CENTER,$ES_READONLY))

$Generate = GUICtrlCreateButton("Generate", 106, 176, 75, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetState($Generate, $GUI_FOCUS)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$line2 = 1
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE

        $msgbox = MsgBox (0,"Codeur","Ouverture de fichier avec les mots de passe décodés")
        $filereadd = FileRead ($file)
        $fileread = StringSplit ($filereadd ,@CRLF)
        $textnnencrypt = _StringEncrypt (0,$fileread[$line2],"afheofhoa23425")
        FileWrite ($file2,$textnnencrypt)
        $line2 +=1
        ShellExecute($file2)
        FileClose ($file)
        FileClose ($file2)
        Exit
        
        Case $Generate
            GUICtrlSetData($PassWrd, _PassWordGenerate(GUICtrlRead($PassWrdLen), _IsChecked($SpecialChars)))
            _vmdp ()
            $mdp = GUICtrlRead ($PassWrd)
            $mdpe = _StringEncrypt (1,$mdp,"afheofhoa23425")
            FileWrite ($file,$mdpe & @CRLF)         
    EndSwitch
WEnd

;===============================================================================
; Description:      Returns a password string with or without special chars.
; Parameter(s):     $PassWordLen - The len of desired password
;                   $CharFlag    - Use special chars in password.
;                                  0 = No
;                                  1 = Yes
; Requirement(s):   None
; Return Value(s):  Return a string.
;
; Author(s):        JBnH
; Note(s):
; Examples:         MsgBox(64,"Password without special chars", _PassWordGenerate(10, 0))
;                   MsgBox(64,"Password with special chars", _PassWordGenerate(10, 1))
;===============================================================================
Func _PassWordGenerate($PassWordLen, $CharFlag)
Local $PassWrd, $Global
    If $CharFlag = 1 Then
        $SpecialChar = StringSplit("&'_:;,.!@#$%*()-=+[]\/?", "")
        For $X = 1 to $SpecialChar[0]    
            $Global &= $SpecialChar[$X]      
        Next
        $Array = StringSplit("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" & $Global,"")
    Else
   
        $Array = StringSplit("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789","")
    Endif
   
   
    For $X = 1 to $PassWordLen
        $PassWrd &= $Array[Random (1, $Array[0], 1)]
    Next
 
    Return $PassWrd
EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc
;===============================================================================
; Description:      Verifie si le mot de passe n'existe pas deja et le change si il l'est
; Parameter(s):     Avoir un creatueur de mot de passe avec sa fonction
;                                                  
; Requirement(s):   None
; Return Value(s):  Return a string.
;
; Author(s):        guitarist
; Note(s):
; Examples:         
;                   
;===============================================================================

Func _vmdp ()
Local $line = 0
$mdpf = FileRead ($file)
$mdpfi = StringSplit ($mdpf,@CRLF)
$mdp = GUICtrlRead ($PassWrd)

$line +=1
            If $mdpfi[$line] = $mdp Then
                GUICtrlSetData($PassWrd, _PassWordGenerate(GUICtrlRead($PassWrdLen), _IsChecked($SpecialChars)))
                _vmdp ()
            EndIf
    
EndFunc