Générateur de mot de pass cripter pouvant etre enregistrer

Commenter

Contenu du snippet

Private Sub Cmdpass_Click()
Dim Nom As String
Dim Password As String
Nom = "martial"
Password = "martial"

If ((Text1.Text = Nom) And (Text2.Text = Password)) Then
frmMain.Visible = True
Form1.Visible = False
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
Cmdpass_Click

End If
End Sub

Source / Exemple : 


Dim caracter As String 'Contient le caractère qui sera ajouté au mot de passe
Dim Chiffre As String 'Contient le numéros du caractère
Dim PasswdGen As String 'Contient le mot de passe générer
Dim chle As Byte 'Définit si on sélection un chiffre ou une lettre
Dim MajMin As Byte  'Définit si le caractère sera en majuscule ou non
Dim NbChar As String 'Contient le nombre de caractère pour le mot de passe
Option Explicit
'***************sebsoft**************
'Petit exemple de cryptage/decryptage
'code source sans aucune pretention
'************************************

Dim cryptini, cryptresul As String
Dim decrypt, decryptresul As String
Dim nb, i, j As Integer
Public Sub Mod_Cryptage()
cryptini = txtPasswd
txtverif = ""
cryptresul = ""
nb = Len(cryptini) 'nb de caracteres
If cryptini = "" Then
MsgBox "Mauvais !!!"
Else
    For i = 1 To nb  'conversion de chaque caracteres au format ASCII (4 chiffres)
    cryptresul = cryptresul & Format((Asc(Mid(cryptini, i, 1)) * 2), "0##")
    Next i
End If
Txtresult = cryptresul

End Sub
Public Sub Mod_Decryptage()
decrypt = Txtresult
Txtresult = ""
decryptresul = ""  ' remet la variable à 0
nb = Len(decrypt) / 3  ' /4 pour trouver nb exacte
j = 0    'variable qui positionne le pointeur Mid
For i = 1 To nb     'conversion de chaque caracteres au format CHR
    decryptresul = decryptresul & Chr((Mid(decrypt, i + j, 3) / 2))
    j = j + 2
Next i
txtverif = decryptresul
End Sub

Private Sub Cmdend_Click()
  End
End Sub

Private Sub cmdGen_Click()
    'On vérifie si l'utilisateur a décidé la longueur souhaiter pour le mot de passe
    If cboNbrchar.Text = "" Then 'Si l'utilisateur n'a pas choisi dans la liste on affiche un message
        MsgBox "Veuillez choisir le nombre de caractère que vous désirez.", vbExclamation, "Erreur!"
        Exit Sub 'On sort du sub
    End If
    NbChar = cboNbrchar.ListIndex + 3 'On ajuste 3 a la valeur du cbo vu que le minimum est 4 caractères
    txtPasswd.Text = "" 'On efface le txt d'affichage du pass
    Chiffre = "" 'On efface la variable des chiffres de caractère
    PasswdGen = "" 'On efface le pass en mémoire
    Dim i As Byte 'On déclare une variable pour la boucle
    For i = 0 To NbChar 'On boucle selon le nombre de caractere voulu pour former le passwd
        Randomize 'Initialisation du moteur de hasard
        chle = Int(Rnd * 2) + 1 'On choisi entre les chiffres et lettre 1 = chiffre et 2 = lettre
        If chle = 1 Then 'Si chle = 1 on choisi une lettre
            Chiffre = Int(Rnd * 9) + 48
            caracter = Chr(Chiffre) 'On enregistre cette lettre
        Else 'Sinon chle = 2, donc on choisi un chiffre
            Chiffre = Int(Rnd * 26) + 97
            caracter = Chr(Chiffre) 'On enregistre ce chiffre
        End If
        If chkMinmaj.Value = 1 Then 'Si l'utilisateur a décidé de mélanger les lettres MAJ et Min
            MajMin = Int(Rnd * 2) + 1 'On décide si la prochaine lettre sera MAJ ou MIN
            If MajMin = 2 Then 'Si elle est MAJ on fait un UCase
                caracter = UCase(caracter) 'On met en majuscule le caractère
            End If
        End If
        PasswdGen = PasswdGen & caracter 'On ajoute le caractère au mot de passe
    Next i
    txtPasswd.Text = PasswdGen 'On affiche le mot de passe
    Txtresult = ""
    txtverif = ""
End Sub

Private Sub Cmdsave_Click()
  CommonDialog1.DefaultExt = "txt"
  CommonDialog1.ShowSave  '  vous devez enregistrer sous l'extension .txt
  If Right(CommonDialog1.FileName, 4) <> ".txt" Then
    CommonDialog1.FileName = CommonDialog1.FileName & ".txt"
  End If
  
    Open CommonDialog1.FileName For Append As #1
    Write #1, Txtresult
    Close #1
 MsgBox "Important d'enregistrer sous l'extension votrenom.txt (Bloc notes)"
End Sub

Private Sub command1_Click()
Txtresult.Text = ""
Call Mod_Cryptage
End Sub

Private Sub Command2_Click()
Call Mod_Decryptage
End Sub

Private Sub Command3_Click()
txtPasswd.Text = ""
Txtresult = ""
txtverif = ""
End Sub

Conclusion :


frm1 = entrer par le mot de pass
frmmain = acceder au générateur et cryptage et enregistrer-le
+++ enregistrer le fichier votrenom.txt crypter et decryptable par la personne seulement lors de perte de mot de pass

A voir également

S'inscrire maintenant

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.