Hey,
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
Credits: Kaspersky
Grüße
