Kaspersky
02.04.2009, 19:20
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
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