random tekststreng

Prøv og leg lidt med den her:

Imports System
Imports System.Text

Namespace E3
    Public Class RanText
        Public Shared Function Gen(ByVal l As Integer, ByVal valid As String) As String
            Dim sb As StringBuilder = New StringBuilder("")
            Dim rng As Random = New Random
            Dim i As Integer
            For i = 1 To l
                sb.Append(valid.Substring(rng.Next(valid.Length), 1))
            Next
            Return sb.ToString
        End Function

        Public Shared Sub Main(ByVal args As String())
            Console.WriteLine(RanText.Gen(5, "ABCDEFGHIabcdefghi0123456789"))
        End Sub
    End Class
End Namespace

Som jeg læser dit spm. så skal du bare tilføje lidt flere valide tegn i kaldet
for at du har hvad du skal bruge.

personligt ville jeg nok bruge System.Security.Cryptography.RandomNumberGenerator() isteder for System.Random ...
men det kommer an på, hvad strengen skal bruges til.. hvis der er tale om tilfældige passwords, så bør den "sikre" RandomNumberGenerator() tages i brug..

Takker for hjælpen... hvad med pointene? :)

jo tak