[VB.NET] Random String

Простенький Snippet, позволяющий сгенерировать случайную строку определенной длины по заданному алфавиту

Код:

'// Code by NIKE22
'// youhack.top
'// 2013

    Function GenerateString(ByVal Length As Integer) As String
        Dim Charset As String = "abcdefghijklmnopqrstuvwxyz" 'Алфавит
        Dim R As New Random()
        Dim RandomString As String = ""

        For i As Integer = 0 To Length - 1
            RandomString &= Charset(R.Next(0, Charset.Length))
        Next

        Return RandomString
    End Function

Пример использования:

Код:

Dim Line As String
Line = GenerateString(5)  'Получаем случайную строку длиной 5 символов

 

Автор темы мудак, оригинал кода и реальный автор