Mit diesem kleinen und einfachen code lassen sich sicherere random passwörter generieren.
Man braucht: 1 Button, 1 Label = lblPwd, 1 NumericUpDown = nud
Mit dem NumericUpDown kann man die Länge des Passworts einstellen.
Code:
Public Class Form1 Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" Dim r As New Random Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click lblPwd.Text = "" For i As Integer = 1 To nud.Value generieren() Next End Sub Private Sub generieren() Try lblPwd.Text += Buchstaben.Substring(r.Next(1, 62), 1) Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class
Oder man macht es so: (Code im Button einfügen)
dim rnd as new random for i as integer = 0 to 29 ''Das sagt dem tool es soll 30 ziffern erstellen textbox1.text &= rnd.next(0,9)
Das ist jetzt alles keine große nummer, aber naja…
Das ganze ist auch noch anpassbar…
Wie man will.