AutoIt Français

Hello all je ne savais pas qu'il y avais un autoit français! J'en profite de ce pas !!!

Je suis sur l'edition d'un simple script qui stockerait 5 mot de login/passes dans un fichier settings.ini et les enverai automatiquement dans une fenetre de login uniquement a la pression du shordcut associer

j'utilise le ensuite le script de l'aide officiel pour crypter ce fichier en RC4 (le cryptage utiliser m'importe peu...)

je veu ensuite que mon script puisse lire les Login/passes dans le fichier ini sans le decrypter au prealable dans un nouveau fichier qui rendrai inutile le cryptage:

Voici le script que j'ai coder

► Afficher le texte

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 ****.")

$SettingsFile = @SCRIPTDIR & '\Settingstestcrypter.ini' ;Emplacement du fichier ini pour le script

$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))

;~ Verifier le mot de passe
Password ()
;~ 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 ()

Pause ()
Exite ()

;~ Verification du password de cryptage
Func Password ()
   GUICreate("Entrez votre mot de passe svp", 200, 70, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018)
    $Password = GUICtrlCreateInput("Mot de passe", 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)
   $vCryptKey = $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()

mon problème est le suivant, lorsque j'appuis sur le shordcut F1 par exempla tout fonctionne j'ai bien le retour d'une valeur mais elle reste crypter ou est mon erreur ?

Au cas ou voici le fichier settings.ini que j'utilise avan le cryptage le nom du fichier ini n'est pa identique dans le code juste car dans le script de cryptage j'utilise une ligne suplementaire qui efface le fichier ini d'origine raison pour la quelle je travail sur un Settingstestcrypter.ini au lieu de settings.ini

Code : Tout sélectionner

;À modifier selon vos préférences

[Login]

;Ici les logins desiré

Login1=Test Login 1
Login2=Test Login 2
Login3=Test Login 3
Login4=Test Login 4
Login5=Test Login 5

[Mot de passes]

Pw1=Test Password 1
Pw2=Test Password 2
Pw3=Test Password 3
Pw4=Test Password 4
Pw5=Test Password 5


;1) Ne pas changer le nom du fichier ini

;2) Garder le fichier ini et l'exe dans le meme dossier

;4) Ne pas partager le fichier ini il contient vos mdp... 


;========= TOUCHES ===============
;========= Escape = Quitter script
;========== Pause = Pause script
;============= F1 =
;============= F2 =
;============= F3 =
;============= F4 =
;============= F5 =


;Developpé par Jordane ***

Bonjour,

Si je reprend votre code ici :

Code : Tout sélectionner

 $b1 = BinaryToString(_Crypt_DecryptData($Pw1,$Password,$CALG_RC4))

votre $password est vide, il devrait être setté par la suite par la fonction password() qui n'est appelé que par la suite ...

Essayez de modifier le fonction password comme ceci :

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
    EndFunc

et d'appeler votre votre fonction avant le decryptage des mdp et login comme ceci :

Code : Tout sélectionner

    $Password = Password()

    $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))

Merci beaucoup pour votre aide précieuse Je test dés ce soir et je vous tien au courent

PS:

puis-je toujours appeler ma fonction "attendre ()" comme cela ete le cas a la fin de la premiere version de "password ()" ?

comme ceci

► Afficher le texte

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

Le code retourne une valeur toujours incorect
Voici le code que j'ai utiliser

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()

PS2: je vien de comprendre... je vous remerci xD

Votre problème est-il résolu ?

Non effectivement vous m avez remit sur la bonne voie
En revanche si je prend la derniere version du script plus haut
La valeur décrypter ne corespond pas a la valeur désirer :
en effet si je tape la touche F1 la valeur décrypter devrai être :
Test Login 1<TAB> test password 1
Au lieu de ça j obtien une valeur diferente de la valeur crypter mais pas la valeur decrypter
Cdt

EXEMPLE: (car je suis au travail je ne peut donc pas copier coller les caractere exact mais dans le fond le probleme est le suivant maintenan)

Valeur desirer:
Test Login 1<TAB> Test password 1
Valeur crypter:
azertyuiop^$$$
Valeur decrypter obtenu:
&é&"'(èç_-(

Je vous invite a tester le script

La fonction password ne retournait aucune valeur, je viens de m'en apercevoir !

la voici corrigée :

Code : Tout sélectionner

    Func Password ()
        $hGUI = GUICreate("Entrez votre mot de passe svp", 200, 70, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018)
        $iPass = 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
        GUIDelete($hGUI)
       Return GUICtrlRead($iPass)
    EndFunc

J'ai du faire d'autres modifications pour que cela fonctionne, voici votre script (je l'ai modifié pour laisser qu'une fonction ("F1") histoire que cela soit plus simple) :

► Afficher le texte

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")


    Global $Paused
    Local $Password, $btn, $msg
    Local $a1,$a2 ,$a3 ,$a4 ,$a5
    Local $b1,$b2 ,$b3 ,$b4 ,$b5

    MsgBox ( 0, "Merci", "Developpé par Jordane ****.")

    $SettingsFile = @SCRIPTDIR & '\Settingstestcrypter.ini' ;Emplacement du fichier ini pour le script

    $Login1  = IniRead ($SettingsFile, 'Login', 'Login1', "Corrigez le fichier ini svp")

    $Pw1  = IniRead ($SettingsFile, 'Mot de passes', 'Pw1', "Corrigez le fichier ini svp")

    $Password = Password()

    $a1 = BinaryToString(_Crypt_DecryptData($Login1,$Password,$CALG_RC4))

    $b1 = BinaryToString(_Crypt_DecryptData($Pw1,$Password,$CALG_RC4))

    MsgBox(0,"Password et login cryptés","Login : " & $a1 & @crlf & "MDP : " & $b1)

    $Password = ""

    ;~ Verifier le mot de passe
    $Password = Password()
    ;~ L'outil decrypt les pw

    ;exemples

    MsgBox(0,"Password et login décrypté", "Login : " & Decryptage($a1, $Password) & @crlf &  "MDP : " & Decryptage ($b1, $Password))

    ;~ Le programme attend
    While (1)
    Attendre ()
    WEnd
    ;~ Fonction activer par la pression des touche Configurer plus haut
    Login1 ()

    Pause ()
    Exite ()

    ;~ Verification du password de cryptage
    Func Password ()
        $hGUI = GUICreate("Entrez votre mot de passe svp", 200, 70, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018)
        $iPass = 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
        GUIDelete($hGUI)
       Return GUICtrlRead($iPass)
    EndFunc

    Func Decryptage($bEncrypted, $sUserKey)
        $bEncrypted = _Crypt_DecryptData($bEncrypted, $sUserKey, $CALG_RC4) ; Decrypt the data using the generic password string. The return value is a binary string.
        Return BinaryToString($bEncrypted)
    EndFunc

    Func Attendre ()
       While (1)
        Sleep(1000)
       WEnd
    EndFunc

    Func Login1 ()
       Sleep (100)
       Send (Decryptage ($a1, $Password))
       Sleep (500)
       Send ("{TAB}")
       Sleep (500)
       Send (Decryptage ($b1, $Password))
       Sleep (100)
    EndFunc


    ;~ Touche Quitter
    Func Exite ()
        Exit
    EndFunc

    ;~ Touche Pause
    Func Pause()
        $Paused = NOT $Paused
    While  $Paused
            Sleep (500)
    WEnd
    EndFunc; => Pause()

La valeur maintenan renvoyer n'est pas crypter mais lorsque la touche F1 est pressé

Cette ligne de code
$Login1 = IniRead ($SettingsFile, 'Login', 'Login1', "Corrigez le fichier ini svp")
Renvoi la valeur ERROR = true

donc logiquement le resulta est

Corrigez le fichier ini svp<TAB>Corrigez le fichier ini svp

Est ce que cela fonctionne chez vous :O ?

De plus le mot de passe est demander Deux foi ?(cryptage/décryptage ?) Or il n'est pas nécessaire de crypter la donnée et de demander un mot de passe de cryptage puisque le mot de passe de cryptage est indiquer lors de l'utilisation du deuxieme script totalement dissocier du script sur le quelle nous pêchons .

peut etre serai t'il possible que nous communiquions d'une façon plus direct ? je suis prêt a vous donner un contact en MP afin que l'on en discute pour bien-sur déposer la solution ici ensuite

Je me rend meme compte d'autre chose la valeur crypter est egalement identique meme si je change significativement les mot de passe de test en :
login1=aaaaaaaaa
Password1=bbbbbbbbbb
Je deduit donc la valeur crypter est egalement :
Corrigez le fichier ini svp<TAB>Corrigez le fichier ini svp
mais ecri en crypter

or le script sans cryptage marche nikel je n'y comprend plus rien...

La fonction password ne retourne rien à cause de ça

Code : Tout sélectionner

GUIDelete($hGUI)
Return GUICtrlRead($iPass)

qu'il faut remplacer par ça

Code : Tout sélectionner

$test = GUICtrlRead($iPass)
GUIDelete($hGUI)
Return $test

Pour le reste la manière doit fonctionner ce script n'est vraiment pas claire ^^

Pour le reste la manière doit fonctionner ce script n'est vraiment pas claire ^^

Je prend note et la facon dont je peut t'aider a m'aider est la suivante si tu veu simplement comprendre le script lit le Premier post et suis cette routine

Transparent pour toi:
-Je stock 5 mot de passe dans un fichier.ini
-Je crypt le fichier qui contient ces mot de passe avec un mot de passe
-Je delete le fichier initial
-Je le sauvegarde dans le meme dossier

Dans ce topic
-je veu juste acceder au fichier crypter sans le sauvegarder ni dans un fichier temp ni dans un fichier decrypter cacher...
-En gro je veu decrypter la data du fichier crypter et la "Send ()" vraiment rien de plus

EDIT: effectivement avec ton code je n'obtien plus la meme valeur crypter mais la valeur decrypter reste

Corrigez le fichier ini svp<TAB>Corrigez le fichier ini svp

J'ai de la fumée qui commence a sortir des oreilles xD
La syntaxe du decryptage est vraiment compliquer m***e

Bah il suffit d'être clair dans sa logique ...
Essaie ce test, ya que l'essentiel mais comme ça on y voit mieux

Le fichier ini (celui de ton 1er post) doit exister
Pour le test je crée une nouvelle section dans le ini qui contient les id cryptés

► Afficher le texte

Code : Tout sélectionner

    #include <Crypt.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

     $SettingsFile = @SCRIPTDIR & '\Settingstestcrypter.ini' 

; lecture du ini 
    $Login1  = IniRead ($SettingsFile, 'Login', 'Login1', "Corrigez le fichier ini svp")
    $Pw1  = IniRead ($SettingsFile, 'Mot de passes', 'Pw1', "Corrigez le fichier ini svp")

    $Password = Password()
    msgbox(0,"", $Password)  ; vérification

; cryptage
    $a1 = BinaryToString(_Crypt_EncryptData($Login1,$Password,$CALG_RC4))
    $b1 = BinaryToString(_Crypt_EncryptData($Pw1,$Password,$CALG_RC4))
    MsgBox(0,"Password et login cryptés","Login : " & $a1 & @crlf & "MDP : " & $b1)  ; vérification

; écriture dans le ini (test)
    IniWrite ($SettingsFile, "cryptage", "Login1", $a1)
    IniWrite ($SettingsFile, "cryptage", "Pw1", $b1)
    msgbox(0,"", FileRead($SettingsFile))  ; vérification lecture du ini crypté

; lecture du ini crypté
    $Login1  = IniRead ($SettingsFile, 'cryptage', 'Login1', "Corrigez le fichier ini svp")
    $Pw1  = IniRead ($SettingsFile, 'cryptage', 'Pw1', "Corrigez le fichier ini svp")

; décryptage
    MsgBox(0,"Password et login décrypté", "Login : " & Decryptage($a1, $Password) & @crlf &  "MDP : " & Decryptage ($b1, $Password))

Exit


;==================================================
    Func Password ()
        $hGUI = GUICreate("Entrez votre mot de passe svp", 200, 70, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018)
        $iPass = 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
       $test = GUICtrlRead($iPass)
        GUIDelete($hGUI)
        Return $test
    EndFunc


    Func Decryptage($bEncrypted, $sUserKey)
        $bEncrypted = _Crypt_DecryptData($bEncrypted, $sUserKey, $CALG_RC4) 
        Return BinaryToString($bEncrypted)
    EndFunc

tester sans succé... toujours la meme chose... si j appuy sur F1

la valeur envoyer Reste encore et toujours ...

Corriger le fichier ini svp<TAB>Corriger le fichier ini svp

EDIT autant pour moi il n'y a pas de hotckey set dans ton script et j'avai l'ancien script lancer xD
Ca marche nikel apres relecture du script

Tu obtiens cette erreur parce que le script a un problème d'accès au fichier ini
IniRead ne marche pas et renvoie donc la valeur par défaut

mikell a écrit :Tu obtiens cette erreur parce que le script a un problème d'accès au fichier ini
IniRead ne marche pas et renvoie donc la valeur par défaut

Tu n'a pas du lire mon edit

Ton script cartonne GG mec je rajoute les fonction desirer maintenan tu m'a vraiment bien aider et je remerci egalement bocoup ton predecesseur plus haut dans le topic

Arf, désolé de ne pas avoir pu faire plus

J'avais pas bien saisi, si vous bossiez sur un fichier déjà crypté ou sur l'ini directement du premier poste, du coup j'avais laisser deux fois la demande de mdp en imaginant que vous vouliez splitté le script par la suite, mes excuses.

@mikell
Énorme boulette de me part, en croyant résoudre un problème j'ai recréer le même, et bêtement en plus... :/

Bref, content que cela soit résolu

Un autre problem ce pose une foi la compilation du script effectuer avast antivirus detect un cheval de Troie roflm lmao lol

la problématique est d'autant plus embêtante en sachant que cela est destiner a un usage pro ... et qu'on parle de MDP

Meme si ce ne sont pas de mdp de secret d'etat c'est encore plus frustrant quand on connai le code utiliser et qu'on sais qu'il est inofenssif omg!

Désactivez la compilation avec compression (UPX).

AutoIt Français

[..] Aide crypt UDF

[..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF

Re: [..] Aide crypt UDF