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
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.