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