Salut,
Ce tutoriel s'adresse au débutant. Dans ce tuto, nous allons voir comment faire un générateur de mots de passe.
Qu'est-ce que c'est ? C'est un programme qui va renvoyer aléatoirement des caractères : lettres en minuscule/majuscule, chiffres, et les signes.
Pour faire ce programme, vous devez en premier lieu ouvrir Visual Basic et créer un nouveau projet puis une ApplicationWindowsForm.
Sur votre Form, placez :
-Une TextBox,
-Un Button,
-Un NumericUpDown (pour choisir la longueur du mot de passe),
-Quatre CheckBoxs, la première pour les chiffres, la deuxième pour les minuscule, la troisième pour les majuscule et la quatrième pour les signes.
Organisez le tout comme vous voulez et direction la partie code.
Sous Public Class Form1, mettez :
Ensuite cliquez sur votre Button et assignez lui ce code la :
Débugez et essayer votre générateur de mot de passe. Voilà c'est tout pour ce tutoriel très basique.
Sonicboss.
Ce tutoriel s'adresse au débutant. Dans ce tuto, nous allons voir comment faire un générateur de mots de passe.
Qu'est-ce que c'est ? C'est un programme qui va renvoyer aléatoirement des caractères : lettres en minuscule/majuscule, chiffres, et les signes.
Pour faire ce programme, vous devez en premier lieu ouvrir Visual Basic et créer un nouveau projet puis une ApplicationWindowsForm.
Sur votre Form, placez :
-Une TextBox,
-Un Button,
-Un NumericUpDown (pour choisir la longueur du mot de passe),
-Quatre CheckBoxs, la première pour les chiffres, la deuxième pour les minuscule, la troisième pour les majuscule et la quatrième pour les signes.
Organisez le tout comme vous voulez et direction la partie code.
Sous Public Class Form1, mettez :
Dim caractères As String = ""
Try
caractères = ""
If CheckBox1.Checked = True Then
caractères = caractères & "0123456789"
End If
If CheckBox2.Checked = True Then
caractères = caractères & "abcdefghijklmnopqrstuvwxyz"
End If
If CheckBox3.Checked = True Then
caractères = caractères & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
End If
If CheckBox4.Checked = True Then
caractères = caractères & "&#'{([-|è`é_\ç^à@)]=}/*+°,;:!§?.£$¤µ*^¨%ù"
End If
Dim compteur = 0
TextBox1.Text = ""
Dim aléa As New Random
Dim a = ""
While compteur <= NumericUpDown1.Value
a = aléa.Next(0, caractères.Length)
TextBox1.Text = TextBox1.Text & caractères(a)
compteur = compteur + 1
End While
Catch ex As Exception
MsgBox("Vous devez choisir au moins une des options proposées.", MsgBoxStyle.Critical, "Erreur.")
End Try
caractères = ""
If CheckBox1.Checked = True Then
caractères = caractères & "0123456789"
End If
If CheckBox2.Checked = True Then
caractères = caractères & "abcdefghijklmnopqrstuvwxyz"
End If
If CheckBox3.Checked = True Then
caractères = caractères & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
End If
If CheckBox4.Checked = True Then
caractères = caractères & "&#'{([-|è`é_\ç^à@)]=}/*+°,;:!§?.£$¤µ*^¨%ù"
End If
Dim compteur = 0
TextBox1.Text = ""
Dim aléa As New Random
Dim a = ""
While compteur <= NumericUpDown1.Value
a = aléa.Next(0, caractères.Length)
TextBox1.Text = TextBox1.Text & caractères(a)
compteur = compteur + 1
End While
Catch ex As Exception
MsgBox("Vous devez choisir au moins une des options proposées.", MsgBoxStyle.Critical, "Erreur.")
End Try
Débugez et essayer votre générateur de mot de passe. Voilà c'est tout pour ce tutoriel très basique.
Sonicboss.