Code : Tout sélectionner
Func Password()
GUICreate("Entrez votre mot de passe svp", 300, 70, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018)
$Password = GUICtrlCreateInput("", 10, 5, 180, 20,0x0020)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$btn = GUICtrlCreateButton("Ok", 20, 35, 60, 20)
GUISetState()
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $btn
ExitLoop
EndSelect
WEnd
GUISetState (@SW_HIDE)
return $Password
Attendre ()
EndFunc
Code : Tout sélectionner
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
#include <Crypt.au3>
#include <ComboConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <file.au3>
HotKeySet("{PAUSE}", "Pause")
HotKeySet("{ESCAPE}", "Exite")
HotKeySet("{F1}", "Login1")
HotKeySet("{F2}", "Login2")
HotKeySet("{F3}", "Login3")
HotKeySet("{F4}", "Login4")
HotKeySet("{F5}", "Login5")
Global $Paused
Local $Password, $btn, $msg
Local $a1,$a2 ,$a3 ,$a4 ,$a5
Local $b1,$b2 ,$b3 ,$b4 ,$b5
MsgBox ( 0, "Merci", "Developpé par Jordane Guemara.")
$SettingsFile = @SCRIPTDIR & '\Settingstestcrypter.ini' ;Emplacement du fichier ini pour le script
$Password1 = Password()
$Password = $Password1
$Login1 = IniRead ($SettingsFile, 'Login', 'Login1', "Corrigez le fichier ini svp")
$Login2 = IniRead ($SettingsFile, 'Login', 'Login2', "Corrigez le fichier ini svp")
$Login3 = IniRead ($SettingsFile, 'Login', 'Login3', "Corrigez le fichier ini svp")
$Login4 = IniRead ($SettingsFile, 'Login', 'Login4', "Corrigez le fichier ini svp")
$Login5 = IniRead ($SettingsFile, 'Login', 'Login5', "Corrigez le fichier ini svp")
$Pw1 = IniRead ($SettingsFile, 'Mot de passes', 'Pw1', "Corrigez le fichier ini svp")
$Pw2 = IniRead ($SettingsFile, 'Mot de passes', 'Pw2', "Corrigez le fichier ini svp")
$Pw3 = IniRead ($SettingsFile, 'Mot de passes', 'Pw3', "Corrigez le fichier ini svp")
$Pw4 = IniRead ($SettingsFile, 'Mot de passes', 'Pw4', "Corrigez le fichier ini svp")
$Pw5 = IniRead ($SettingsFile, 'Mot de passes', 'Pw5', "Corrigez le fichier ini svp")
$a1 = BinaryToString(_Crypt_DecryptData($Login1,$Password,$CALG_RC4))
$a2 = BinaryToString(_Crypt_DecryptData($Login2,$Password,$CALG_RC4))
$a3 = BinaryToString(_Crypt_DecryptData($Login3,$Password,$CALG_RC4))
$a4 = BinaryToString(_Crypt_DecryptData($Login4,$Password,$CALG_RC4))
$a5 = BinaryToString(_Crypt_DecryptData($Login5,$Password,$CALG_RC4))
$b1 = BinaryToString(_Crypt_DecryptData($Pw1,$Password,$CALG_RC4))
$b2 = BinaryToString(_Crypt_DecryptData($Pw2,$Password,$CALG_RC4))
$b3 = BinaryToString(_Crypt_DecryptData($Pw3,$Password,$CALG_RC4))
$b4 = BinaryToString(_Crypt_DecryptData($Pw4,$Password,$CALG_RC4))
$b5 = BinaryToString(_Crypt_DecryptData($Pw5,$Password,$CALG_RC4))
;~ L'outil decrypt les pw
;~ Decryptage ()
;~ Le programme attend
While (1)
Attendre ()
WEnd
;~ Fonction activer par la pression des touche Configurer plus haut
Login1 ()
Login2 ()
Login3 ()
Login4 ()
Login5 ()
;~ Verifier le mot de passe
Password ()
Pause ()
Exite ()
;~ Verification du password de cryptage
Func Password()
GUICreate("Entrez votre mot de passe svp", 300, 70, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018)
$Password = GUICtrlCreateInput("", 10, 5, 180, 20,0x0020)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$btn = GUICtrlCreateButton("Ok", 20, 35, 60, 20)
GUISetState()
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $btn
ExitLoop
EndSelect
WEnd
GUISetState (@SW_HIDE)
return $Password
attendre ()
EndFunc
;~ Func Decryptage ()
;~ $bEncrypted = _Crypt_DecryptData($bEncrypted, $sUserKey, $CALG_RC4) ; Decrypt the data using the generic password string. The return value is a binary string.
;~ MsgBox(0, "Decrypted data", BinaryToString($bEncrypted)) ; Convert the binary string using BinaryToString to display the initial data we encrypted.
;~ Attendre ()
;~ EndFunc
Func Attendre ()
While (1)
Sleep(1000)
WEnd
EndFunc
Func Login1 ()
Sleep (100)
Send ($a1)
Sleep (500)
Send ("{TAB}")
Sleep (500)
Send ($b1)
Sleep (100)
EndFunc
Func Login2 ()
Sleep (100)
Send ($a2)
Sleep (500)
Send ("{TAB}")
Sleep (500)
Send ($b2)
Sleep (100)
EndFunc
Func Login3 ()
Sleep (100)
Send ($a3)
Sleep (500)
Send ("{TAB}")
Sleep (500)
Send ($b3)
Sleep (100)
EndFunc
Func Login4 ()
Sleep (100)
Send ($a4)
Sleep (500)
Send ("{TAB}")
Sleep (500)
Send ($b4)
Sleep (100)
EndFunc
Func Login5 ()
Sleep (100)
Send ($a5)
Sleep (500)
Send ("{TAB}")
Sleep (500)
Send ($b5)
Sleep (100)
EndFunc
;~ Touche Quitter
Func Exite ()
Exit
EndFunc
;~ Touche Pause
Func Pause()
$Paused = NOT $Paused
While $Paused
Sleep (500)
WEnd
EndFunc; => Pause()
J'ai de la fumée qui commence a sortir des oreilles xD
