Discussion :

[Weeever]

Bonjour à tous



Alors j'ai un petit problème en gros je suis entrain de créer une application qui permet de généré des mots de passes et j'aimerai que lorsque une personne met par exemple 10 dans la NumericUpDown sa lui génere 10 Mot de passe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
c = NumericUpDown1.Value
        TextBox1.Text = "Mot de passe: "
        g = NumericUpDown2.Value
        NumericUpDown2.Maximum = 1000
        While c > 0
 
            ran = random.Next(1, 62)
            a = ("AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz1234567890")
 
            b = Mid(a, ran, 1)
 
 
            TextBox1.AppendText(b)
            c = c - 1
 
        End While

Voici le code

Merci D'avance

[Miska59]

Voici un exemple pour généré des mots de passes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "Mot de passe: " & GetPassword(NumericUpDown1.Value)
    End Sub
 
    Private Function GetPassword(value As Integer) As String
        Dim s As String = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz1234567890"
        Dim r As New Random
        Dim sb As New StringBuilder
        For i As Integer = 1 To value
            Dim idx As Integer = r.Next(1, 62)
            sb.Append(s.Substring(idx, 1))
        Next
        Return sb.ToString()
    End Function
 
End Class

Cordialement,