![]() ![]() Private Iterator Function RandomItems(ByVal input As String) As IEnumerable(Of Char)Įnd ModuleThis is more or less what dbasnett just did, but I find the "use LINQ to shuffle" approach to be a smell. Yield thisCollection(_rng.Next(thisCollection.Length)) Private Iterator Function RandomAnything() As IEnumerable(Of Char)ĭim collections() = ĭim thisCollection = collections(_rng.Next(collections.Length)) Private Function RandomSpecials() As IEnumerable(Of Char) Private Function RandomNumbers() As IEnumerable(Of Char) Private Function RandomUppercases() As IEnumerable(Of Char) Private Function RandomLowercases() As IEnumerable(Of Char) Private Iterator Function RequiredChars() As IEnumerable(Of Char) Private Function Shuffle(ByVal input As IEnumerable(Of Char)) As Stringįor i As Integer = buffer.Length - 1 To 1 Step -1 Private _special As String = Main(args As String())ĭim charStream = RequiredChars().Concat(RandomAnything().Take(desiredLength - 4)) Private _lowercase As String = "abcdefghijklmnopqrstuvwxyz" Private _uppercase As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Password = (From c In passWD.ToString Select c Order By prng.Next).ToArray PassWD.Append(Special(prng.Next(Special.Length))) PassWD.Append(Numeric(prng.Next(Numeric.Length))) PassWD.Append(Lower(prng.Next(Lower.Length))) PassWD.Append(Upper(prng.Next(Upper.Length))) ![]() Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clickĭim passWD As New Private ReadOnly Special As String = PasswordLength As Integer = 9 Private ReadOnly Numeric As String = "0123456789" Private ReadOnly Lower As String = "abcdefghijklmnopqrstuvwxyz" Private ReadOnly Upper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ![]()
0 Comments
Leave a Reply. |