AutoIt Français

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
 

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
 

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
 

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

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

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