随机密码生成器问题

问题描述

您好。我正在尝试编写随机密码生成器，但我认为有问题。



问题是：

Hello. I am trying to code a random password generator but I assume a problem.

Problem is:

str2 = Conversions.ToString(random.Next(0, pool.Length))
            str = (str & Conversions.ToString(pool(Conversions.ToInteger(str2))))

我尝试过：

What I have tried:

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")

推荐答案

'  Assume "pool" is an array of characters accessible by this method.
Public Function GeneratePasswordString(length As Integer) As String
    If length < 0 Then
        Throw New ArgumentException
    End If

    Dim RNG As New Random
    Dim buffer As New StringBuilder
    Dim index As Integer

    For count As Integer = 1 to length
        index = RNG.Next(0, pool.length)
        buffer.Append(pool(index))
    Next

    Return buffer.ToString
End Function

这篇关于随机密码生成器问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！