Password

Soyez le premier à donner votre avis sur cette source.

Vue 8 126 fois - Téléchargée 1 001 fois

Description

Exemple très simple pour générer un fichier "mot de passe" nécessaire
au premier lancement d'une application.

Le code qui suit explique la manière de créer un fichier contenant
le mot de passe et l'application devra démarrer par le formulaire
FormPasswd. Une fois le fichier créé, l'application s'ouvrira normalement
dès sa seconde ouverture

Le nom et l'extension du fichier "mot de passe" sont libre de choix.

Un timer limite le temps de tentative de saisie.

Source / Exemple :


Créer un Form nommé FormPasswd et coller le code suivant:

'Saisie du mot de passe pour l'installation

Private Sub Form_Load()
    Path = App.Path + "\"
    Call ReadFilePw                     'Appel lecture fichier mot de passe
End Sub

Private Sub Command1_Click()            'Test et écriture fichier si saisie valide
    If TextPassWord.Text = Pw Then
        PassWd = TextPassWord.Text
        Call WriteFilePw
        Unload Me
        Load Form1
        Form1.Show
    Else
        i = MsgBox("Mot de passe incorrect !", vbExclamation, "Saisie incorrecte !")
    End If
End Sub

Private Sub Timer1_Timer()              'Animation introduction
    Select Case (Saut)
        Case 0:
            Saut = 1
        Case 1:
            i = MsgBox("Il ne vous restera que 10 secondes de tentative après avoir quittancé ce message!", vbOKOnly, "Saisie mot de passe")
            Saut = 2
        Case 2:
            Saut = 3
        Case 3:
            End
            Saut = 4
    End Select
End Sub

Puis ajouter un Form1 (votre application). Ajouter un module et coller le code suivant:

'Constantes mot de passe
Public Const FilePw As String = "pw.dsc"                'Fichier password
Public Const Pw As String = "My application"                  'Mot de passe

'Variables répertoire et fichiers
Public Path As String               'Répertoire
Public FileNamePw                   'Variable pour fichier password
Public Saut As Integer              'Variable timer init
Public PassWd As String             'Variable traitement mot de passe

Public Sub WriteFilePw()            'Ecriture du fichier password
    FileNamePw = Path + FilePw
    Open FileNamePw For Output As #1
        Print #1, PassWd
    Close #1
End Sub

Public Sub ReadFilePw()             'Lecture du fichier password
    On Error GoTo gestionerreur
    FileNamePw = Path + FilePw
    Open FileNamePw For Input As #1
        Input #1, PassWd
        If PassWd = Pw Then
            Unload FormInit
            Load Form1
            Form1.Show
        End If
    Close #1
gestionerreur:
    If Err = 53 Then
        FormInit.Show
    End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Fkil
Messages postés
6
Date d'inscription
samedi 6 avril 2002
Statut
Membre
Dernière intervention
10 juin 2003
-
Salut, simpas ton code !! mais bon sa a deja etait fait ...
perso pour un pass tu fait simplement if text1.text = PW
cs_Daniélo
Messages postés
1
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
19 avril 2002
-
En réponse à Fkil: merci pour tes comentaires. Concernant les noms des champs, des variables et des constantes, c'est délibéré car ce code a été extrait d'une de mes applics et je garde toujours la même syntaxe.
khaleid
Messages postés
41
Date d'inscription
mercredi 4 juillet 2001
Statut
Membre
Dernière intervention
8 avril 2014
-
Il faut penser a crypter le passe ...
sinon...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.