Проблема генератора случайных паролей
Привет. Я пытаюсь закодировать генератор случайных паролей, но предполагаю, что возникла проблема.
Проблема:
str2 = Conversions.ToString(random.Next(0, pool.Length)) str = (str & Conversions.ToString(pool(Conversions.ToInteger(str2))))
Что я уже пробовал:
Dim num As Integer = 0 Me.TextBox1.Text = "" Dim str As String = "" Dim random As New Random Dim str2 As String = "" Do While (num < 3) str2 = Conversions.ToString(random.Next(0, pool.Length)) str = (str & Conversions.ToString(pool(Conversions.ToInteger(str2)))) num += 1 Loop Me.TextBox1.Text = ("1618ML00" & str & "8")
MadMyche
В чем же проблема? Есть ли исключение, которое выбрасывается?