Passwort Generator

[Kaspersky]

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.

Public Class Form1
Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwx yz1234567890"
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

Grüße