Back to Blog
![]() ![]() 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
Read More
Leave a Reply. |