Passwort Generator Buchstaben Wählen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Florian.

    Passwort Generator Buchstaben Wählen

    also bei mit steht im passwort generator oben bei Public Class Form1

    VB.NET-Quellcode

    1. Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890"
    2. Dim r As New Random


    Nun möchte ich aber, dass man nun mit 2 RadioButtons einstellen kann, ob es jez nur das normale alphabet mit zahlen sein soll oder ob es mit diesen Sonderzeichen sien soll: @€#+"$§/\&

    welchen code brauche ich dafür und in welchen Subtab muss das? wahrscheinlich auch in Public class form aber ok

    okay und wie bring ich das in form von code ein bei

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890"
    3. Dim r As New Random
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. Label1.Text = ""
    7. For i As Integer = 1 To NumericUpDown1.Value
    8. generieren()
    9. Next
    10. End Sub
    12. Private Sub generieren()
    13. Try
    14. Label1.Text += Buchstaben.Substring(r.Next(1, 62), 1)
    15. Catch ex As Exception
    16. MsgBox(ex.Message)
    17. End Try
    18. End Sub
    20. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    22. End Sub
    24. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    25. Close()
    26. End Sub
    28. Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    29. My.Computer.Clipboard.SetText(Label1.Text)
    30. End Sub
    32. Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    34. End Sub
    37. End Class

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890"
    3. Dim Sonderzeichen As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890@€#+" & Chr(34) & "$§/\&"
    4. Dim r As New Random
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. Label1.Text = ""
    8. For i As Integer = 1 To NumericUpDown1.Value
    9. If Radiobutton1.Checked Then
    10. generieren(Buchstaben)
    11. Else
    12. generieren(Sonderzeichen)
    13. End If
    14. Next
    15. End Sub
    17. Private Sub generieren(ByVal Signs As String)
    18. Try
    19. Label1.Text += Signs.Substring(r.Next(1, Signs.Lenght), 1)
    20. Catch ex As Exception
    21. MsgBox(ex.Message)
    22. End Try
    23. End Sub
    25. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    27. End Sub
    29. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    30. Close()
    31. End Sub
    33. Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    34. My.Computer.Clipboard.SetText(Label1.Text)
    35. End Sub
    37. Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    39. End Sub
    42. End Class

    Oder so ähnlich

    jez is aber bei Label1.Text += Signs.Substring(r.Next(1, Signs.Lenght), 1) (z. 19) nen fehler, nämlich das Lenght kein member von String ist

    aber wenn ich nun Label1.Text += Buchstaben.Substring(r.Next(1, 62), 1) vom ALTEN einfüge, kmmt beim Testen der fehler

    "minValue" kann nicht größer als maxValue sein
    Parametername: minValue

Facebook
Telefonspende