[R] Gui Login Mot de passe

[jcaspar]

B onjour à tous !

Je souhaiterais créer un outil avec une fenêtre de départ qui demande une authentification
avec un login et mot de passe... pouvez vous svp m'expliquer comment créer sécuriser
la configuration du login et du mot de passe...

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Example()

Func Example()
    Local $file, $btn, $msg

    GUICreate(" Authentification", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
    $file = GUICtrlCreateInput("", 10, 5, 300, 20)
;~     GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    GUICtrlCreateInput("", 10, 35, 300, 20) ; will not accept drag&drop files
    $btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)

    GUISetState()

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        Select
            Case $msg = $btn
                ExitLoop
        EndSelect
    WEnd

;~     MsgBox(4096, "drag drop file", GUICtrlRead($file))
EndFunc   ;==>Example

 

[Tlem]

Avec la balise de code ce sera plus facile à lire.

[Ks10]

Bonsoir jcaspar !

Quel heureux hasard, aujourd'hui j'ai poster mon code qui est similaire à ta demande.
J'utilise les fichiers INI pour stocker mes informations et effectuer les vérifications.

Tien je t'enlève la peine de chercher même si c'est pas loin, voici le lien :
http://www.autoitscript.fr/forum/viewto ... =3&t=11584

Si tu veux tester :
- Crée un dossier
- A l'intérieur crée un fichier database.ini
- Et copie le code dans un fichier .au3

Il y a d'autre moyen de perfectionner ce code mais c'est un très bon début pour avoir une structure de base et fonctionnel.

[Rancar]

Coucou,

Tu souhaites créer plusieurs utilisateurs avec chacun leur mot de passe ou un seul utilisateur avec un seul mot de passe ?

[jcaspar]

B onjour à tous !

Je reprends le sujet ... dans le code ci dessous je ne vois pas comment récupérer
la valeur de GUICtrlCreateInput ..je pensais faire une boucle qui teste la valeur saisie
si elle est correcte on passe à l'étape suivante sinon avertirt l'utilisateur ....

Ensuite pour plusieurs personnes j'imagine que l'on peut soit utiliser un fichier ini ou mieux
une base de donnée sqlite...

M erci pour vos idées et suggestions ...

Jean-Marc

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Example()

Func Example()
    Local $file, $btn, $msg

    GUICreate(" Authentification", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
    $file = GUICtrlCreateInput("", 10, 5, 300, 20)
;~     GUICtrlSetState(-1, $GUI_DROPACCEPTED)

local $stesst
;~ Eval
;~ IsDeclared()

      ; will not accept drag&drop files
    $btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)

    GUISetState()

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        Select
            Case $msg = $btn
                ExitLoop
             EndSelect

;~           Assign($stesst,GUICtrlCreateInput("", 10, 35, 300, 20))
msgbox(64,"titre",$stesst)
    WEnd


EndFunc
 

[orax]

Pour récupérer la valeur :

Code : Tout sélectionner

GUICtrlRead($file)

[jguinch]

on peut soit utiliser un fichier ini ou mieux une base de donnée sqlite...

Si tu en as la possibilité, tu peux déporter l'authentification sur un serveur Web (les identifiants/mots de passe seront stockés dans une base de données distance, inaccessible)

[jcaspar]

Voici mon code en l'état ...je voudrais ajouter une touche annulation pour remettre à zero la saisie
l'idée étant de supprimer la valeur à GUICTRLINPUT quel serait à votre avis le meilleur moyen d'y parvenir
que me conseiller vous pour améliorer un peu la sécurité de l'authentification ? ( ajouter un cryptage autre ? )

Avec mes remerciements pour vos conseils

Jean-Marc

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ColorConstants.au3>



Astreintes()

Func Astreintes()

Local $login,$password, $btn,$btn1,$file,$lecture,$lecture1, $msg,$BS_ICON

GUICreate(" Authentification Astreinte", 320, 150, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
$login = GUICtrlCreateInput("Saisir login", 10, 5, 300, 20)
$password = GUICtrlCreateInput("Saisir mot de passe", 10, 50, 300, 20)

;~     GUICtrlSetState(-1, $GUI_DROPACCEPTED)
 ; will not accept drag&drop files

Local $btn = GUICtrlCreateButton("Ok", 40, 100, 60, 20)
Local $btn1 = GUICtrlCreateButton("Annuler",150, 100, 60, 20)

    GUISetState()
    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        Select
        Case $msg = $btn

        Case $msg=$btn1
           msgbox(64,"Annulation", " Reinitialisation des champs")
           GUICtrlSetColor($password,$COLOR_RED)
                ExitLoop
             EndSelect
    WEnd

$lecture_login =GUICtrlRead($login,1)
$lecture_password=GUICtrlRead($password,1)
$check=$lecture_login&$lecture_password
;~ msgbox(64,"test",$lecture_login & " " & $lecture_password)


If $check="xxxx"  Then
   msgbox(64,"Bienvenue "," Bonne visite !")
    GUICreate(" Accès aux sites astreinte", 320, 150, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
    Local $btn = GUICtrlCreateButton("Google", 40, 100, 60, 20)
    Local $btn1 = GUICtrlCreateButton("GrosBill",150, 100, 60, 20)
    GUISetState()

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        Select
        Case $msg = $btn
           ShellExecute("www.google.fr")

        Case $msg=$btn1
              ShellExecute("http://www.grosbill.com")
                ExitLoop
             EndSelect
    WEnd
EndIf

EndFunc

 

[PandiPanda]

Bonjour,
avez vous parcourus l'aide ? (F1)

ceci devrai faire ce que vous désirer GUICtrlSetData

► Afficher le texte

Code : Tout sélectionner

GUICtrlSetData($login,"")
GUICtrlSetData($password,"")

pour le champ password, je suppose que vous n'avez pas lu les options qu'il contient ...

GUICtrlCreateInput, plus précisement ceci ($ES_PASSWORD)

Pour la sécuriter, vous pouvez crypter ce que vous voulez si la personne est assez motivée il passera quand même.

[jguinch]

jcaspar : merci d'utiliser la balise Spoiler pour le code, pour éviter un ascenseur de 3km...