Imports System
Imports System.Linq
Imports System.Collections.Generic
Public Class RandomString
Public Shared Function GenerateRandStringWithoutRepetition(ByVal size As Integer) As String
Dim characters As String = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim charList As List(Of Char) = New List(Of Char)()
For Each ch As Char In characters
charList.Add(ch)
Next
charList = charList.OrderBy(Function(c) Guid.NewGuid()).ToList()
Dim randString As String = ""
For i As Integer = 0 To size - 1
randString += charList(i)
Next
Return randString
End Function
Public Shared Sub Main(ByVal args As String())
Dim length As Integer = 15
Dim randomString As String = GenerateRandStringWithoutRepetition(length)
Console.WriteLine(randomString)
End Sub
End Class
' run:
'
' GN7k2VWTeZfgl8y
'
