Ich glaube, dass Zitronenfalter Zitronen falten

Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        str =<erstes generiertes Zeichen>
            For x as Integer = 1 to <Länge des PW -1>
                If str.Contains(<x. generiertes Zeichen>) = True Then
                    String.concat(str, <x. generiertes Zeichen>)
                End If
            Next
    End Sub

Gruss Caddy

Ich glaube, dass Zitronenfalter Zitronen falten

Public Class zufallsgenerator
 
    'Variable für die Zufallszahl
    '---------------------------
    Private _z As Random
 
    'Konstruktor
    '-----------
    Public Sub New()
        _z = New Random
    End Sub
 
    'Zufallsgenerator
    '----------------
    Public Overridable Function zufallstring(ByVal input As String, ByVal _
      anzzeichen As Integer) As String
        Dim strgb As New System.Text.StringBuilder
        Dim zeichenarray() As Char = input.ToCharArray
        For i As Integer = 1 To anzzeichen
            Dim p As Integer = _z.Next(0, zeichenarray.Length)
            strgb.Append(zeichenarray(p))
        Next i
        Return strgb.ToString
    End Function
 
End Class

Ich glaube, dass Zitronenfalter Zitronen falten

Ich glaube, dass Zitronenfalter Zitronen falten

Gruss Caddy