AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

Local $vDLL = DllOpen("user32.dll")
$StopInprogress = 0

; ===============GUI Principale=====================
Global $GenerateurGUI = GUICreate("Générateur WPA - FishPanai", 282, 194, 465, 258)
Global $Tab1 = GUICtrlCreateTab(8, 8, 265, 177)
Global $Onglet_NeufBox = GUICtrlCreateTabItem("WPA NeufBox")
Global $Nombre_Cles_NeufBox = GUICtrlCreateInput("100", 32, 48, 89, 21)
Global $Fichier_NeufBox = GUICtrlCreateInput("wordlist.txt", 32, 80, 89, 21)
Global $Bouton_NeufBox = GUICtrlCreateButton("Générer!", 16, 112, 243, 57)
Global $Texte1 = GUICtrlCreateLabel("Nombre de clés à générer", 128, 48, 126, 17)
Global $Texte2 = GUICtrlCreateLabel("Nom du fichier à générer", 128, 80, 126, 17)
Global $Onglet_LiveBox = GUICtrlCreateTabItem("WPA LiveBox")
Global $Texte1 = GUICtrlCreateLabel("Nombre de clés à générer", 128, 48, 126, 17)
Global $Texte2 = GUICtrlCreateLabel("Nom du fichier à générer", 128, 80, 126, 17)
Global $Nombre_Cles_LiveBox = GUICtrlCreateInput("100", 32, 48, 89, 21)
Global $Fichier_LiveBox = GUICtrlCreateInput("wordlist.txt", 32, 80, 89, 21)
Global $Bouton_LiveBox = GUICtrlCreateButton("Générer!", 16, 112, 243, 57)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

; ===============GUI Avancement=======================
Global $AvancementGUI = GUICreate("Avancement - Générateur WPA - FishPanai", 242, 122, 378, 180)
Global $Group1 = GUICtrlCreateGroup("Avancement", 8, 8, 225, 49)
Global $Texte5 = GUICtrlCreateLabel("/", 120, 32, 9, 17)
Global $Avancement = GUICtrlCreateLabel("0", 16, 32, 98, 17)
Global $Total = GUICtrlCreateLabel("0", 136, 32, 90, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Clé en écriture", 8, 64, 225, 49)
Global $CleActuelle = GUICtrlCreateLabel("", 16, 88, 212, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
Global $charset[16] = ["A", "B", "C", "D", "E", "F", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9]

$cle = ""

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Bouton_NeufBox
        $nombre_cles = GUICtrlRead ($Nombre_Cles_NeufBox)
        GUISetState (@SW_SHOW, $AvancementGUI)
        GUICtrlSetData ($Total, $nombre_cles)
        GUICtrlSetData ($Avancement,0)

        $nombre_cles = GUICtrlRead ($Nombre_Cles_NeufBox)
        $fichier = GUICtrlRead ($Fichier_NeufBox)
        TrayTip ("Clés en cours de génération", "Appuyez sur F3 pour stopper la génération de clés. ", 10)
        For $i = 0 To $nombre_cles -1

            For $j = 0 To 19
                If Random (0, 19, 1) = $j Then
                    $cle&=Random (0, 9, 1)
                Else
                    $cle&=chr(Random (65, 90, 1))
                EndIf
            Next
            FileWriteLine ($fichier, $cle)
            GUICtrlSetData ($Avancement, $i +1)
            GUICtrlSetData ($CleActuelle, $cle)
            $cle = ""
            If _IsPressed (72, $vDLL) Then
                GUISetState (@SW_HIDE, $AvancementGUI)
                MsgBox (0, "Générateur WPA - FishPanai", "Génération arretée! Nombre de clés générés : " &$i)
                $StopInprogress = 1
                ExitLoop
            EndIf
        Next

        If not $StopInprogress = 1 then
            GUISetState (@SW_HIDE, $AvancementGUI)
            MsgBox (0, "Générateur WPA - FishPanai", "Génération finie! Nombre de clés générés : " &$i)
        Else
            $StopInprogress = 0
        EndIf

    Case $Bouton_LiveBox
        $nombre_cles = GUICtrlRead ($Nombre_Cles_LiveBox)
        GUISetState (@SW_SHOW, $AvancementGUI)
        GUICtrlSetData ($Avancement,0)
        GUICtrlSetData ($Total, $nombre_cles)

        $nombre_cles = GUICtrlRead ($Nombre_Cles_LiveBox)
        $fichier = GUICtrlRead ($Fichier_LiveBox)
        TrayTip ("Clés en cours de génération", "Appuyez sur F3 pour stopper la génération de clés. ", 10)
        For $i = 1 To $nombre_cles -1
            For $j = 0 To 25
                $random = Random (0, 15, 1)
                $cle = $cle & $charset[$random]
            Next

            FileWriteLine ($fichier, $cle)
            GUICtrlSetData ($Avancement, $i +1)
            GUICtrlSetData ($CleActuelle, $cle)
            $cle = ""
            If _IsPressed (72, $vDLL) Then
                GUISetState (@SW_HIDE, $AvancementGUI)
                MsgBox (0, "Générateur WPA - FishPanai", "Génération arretée! Nombre de clés générés : " &$i)
                $StopInprogress = 1
                ExitLoop
            EndIf
        Next

        GUISetState (@SW_HIDE, $AvancementGUI)
        If not $StopInprogress = 1 then
            MsgBox (0, "Générateur WPA - FishPanai", "Génération finie! Nombre de clés générés : " &$i)
        Else
            $StopInprogress = 0
        EndIf
    EndSwitch
WEnd