Generate Password for each textbox

ppl2pass · 2010-02-25T04:54:44.000Z

I have looked at NextGen1 OSPassword generator but i do not know how to alter the code to make it generate different letters and numbers for each textbox.

right now i have this code to generate random letters and numbers for textbox1. but i want it to generate a diffrent code for textbox2. how do i do that?

Code:

        If ch = 0 Then
            MessageBox.Show("Please Select The # Of Characters Before Continuing!", "User Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            FirstName.Text = ""
            Dim rg As New System.Random

            If CheckBox1.Checked = True Then
                x = 0
                y = 52
            ElseIf CheckBox2.Checked = True Then
                x = 0
                y = 62
            ElseIf CheckBox3.Checked = True Then
                x = 0
                y = 73
            ElseIf CheckBox4.Checked = True Then
                x = 52
                y = 62
            End If

            Do Until z = ch
                z += 1
                Dim rn As Integer = rg.Next(x, y)
                If rn = 0 Then
                    sym = "A"
                ElseIf rn = 1 Then
                    sym = "B"
                ElseIf rn = 2 Then
                    sym = "C"
                ElseIf rn = 3 Then
                    sym = "D"
                ElseIf rn = 4 Then
                    sym = "E"
                ElseIf rn = 5 Then
                    sym = "F"
                ElseIf rn = 6 Then
                    sym = "G"
                ElseIf rn = 7 Then
                    sym = "H"
                ElseIf rn = 8 Then
                    sym = "I"
                ElseIf rn = 9 Then
                    sym = "J"
                ElseIf rn = 10 Then
                    sym = "K"
                ElseIf rn = 11 Then
                    sym = "L"
                ElseIf rn = 12 Then
                    sym = "M"
                ElseIf rn = 13 Then
                    sym = "N"
                ElseIf rn = 14 Then
                    sym = "O"
                ElseIf rn = 15 Then
                    sym = "P"
                ElseIf rn = 16 Then
                    sym = "Q"
                ElseIf rn = 17 Then
                    sym = "R"
                ElseIf rn = 18 Then
                    sym = "S"
                ElseIf rn = 19 Then
                    sym = "T"
                ElseIf rn = 20 Then
                    sym = "U"
                ElseIf rn = 21 Then
                    sym = "V"
                ElseIf rn = 22 Then
                    sym = "W"
                ElseIf rn = 23 Then
                    sym = "X"
                ElseIf rn = 24 Then
                    sym = "Y"
                ElseIf rn = 25 Then
                    sym = "Z"
                ElseIf rn = 26 Then
                    sym = "a"
                ElseIf rn = 27 Then
                    sym = "b"
                ElseIf rn = 28 Then
                    sym = "c"
                ElseIf rn = 29 Then
                    sym = "d"
                ElseIf rn = 30 Then
                    sym = "e"
                ElseIf rn = 31 Then
                    sym = "f"
                ElseIf rn = 32 Then
                    sym = "g"
                ElseIf rn = 33 Then
                    sym = "h"
                ElseIf rn = 34 Then
                    sym = "i"
                ElseIf rn = 35 Then
                    sym = "j"
                ElseIf rn = 36 Then
                    sym = "k"
                ElseIf rn = 37 Then
                    sym = "l"
                ElseIf rn = 38 Then
                    sym = "m"
                ElseIf rn = 39 Then
                    sym = "n"
                ElseIf rn = 40 Then
                    sym = "o"
                ElseIf rn = 41 Then
                    sym = "p"
                ElseIf rn = 42 Then
                    sym = "q"
                ElseIf rn = 43 Then
                    sym = "r"
                ElseIf rn = 44 Then
                    sym = "s"
                ElseIf rn = 45 Then
                    sym = "t"
                ElseIf rn = 46 Then
                    sym = "u"
                ElseIf rn = 47 Then
                    sym = "v"
                ElseIf rn = 48 Then
                    sym = "w"
                ElseIf rn = 49 Then
                    sym = "x"
                ElseIf rn = 50 Then
                    sym = "y"
                ElseIf rn = 51 Then
                    sym = "z"
                ElseIf rn = 52 Then
                    sym = "0"
                ElseIf rn = 53 Then
                    sym = "1"
                ElseIf rn = 54 Then
                    sym = "2"
                ElseIf rn = 55 Then
                    sym = "3"
                ElseIf rn = 56 Then
                    sym = "4"
                ElseIf rn = 57 Then
                    sym = "5"
                ElseIf rn = 58 Then
                    sym = "6"
                ElseIf rn = 59 Then
                    sym = "7"
                ElseIf rn = 60 Then
                    sym = "8"
                ElseIf rn = 61 Then
                    sym = "9"
                ElseIf rn = 62 Then
                    sym = "!"
                ElseIf rn = 63 Then
                    sym = "@"
                ElseIf rn = 64 Then
                    sym = "#"
                ElseIf rn = 65 Then
                    sym = "$"
                ElseIf rn = 66 Then
                    sym = "%"
                ElseIf rn = 67 Then
                    sym = "&"
                ElseIf rn = 68 Then
                    sym = "*"
                ElseIf rn = 69 Then
                    sym = "/"
                ElseIf rn = 70 Then
                    sym = "?"
                ElseIf rn = 71 Then
                    sym = "<"
                ElseIf rn = 72 Then
                    sym = ">"
                End If
                FirstName.Text = sym + FirstName.Text
            Loop
            z = 0
        End If

Dim pass, sym As String Public Sub GeneratePass(ByRef Where As TextBox) If ch = 0 Then MessageBox.Show("Please Select The # Of Characters Before Continuing!", "User Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim rg As New System.Random If CheckBoxItem3.Checked = True Then x = 0 y = 52 ElseIf CheckBoxItem1.Checked = True Then x = 0 y = 62 ElseIf CheckBoxItem2.Checked = True Then x = 0 y = 73 ElseIf CheckBoxItem4.Checked = True Then x = 52 y = 62 End If Do Until z = ch z += 1 Dim rn As Integer = rg.Next(x, y) If rn = 0 Then sym = "A" ElseIf rn = 1 Then sym = "B" ElseIf rn = 2 Then sym = "C" ElseIf rn = 3 Then sym = "D" ElseIf rn = 4 Then sym = "E" ElseIf rn = 5 Then sym = "F" ElseIf rn = 6 Then sym = "G" ElseIf rn = 7 Then sym = "H" ElseIf rn = 8 Then sym = "I" ElseIf rn = 9 Then sym = "J" ElseIf rn = 10 Then sym = "K" ElseIf rn = 11 Then sym = "L" ElseIf rn = 12 Then sym = "M" ElseIf rn = 13 Then sym = "N" ElseIf rn = 14 Then sym = "O" ElseIf rn = 15 Then sym = "P" ElseIf rn = 16 Then sym = "Q" ElseIf rn = 17 Then sym = "R" ElseIf rn = 18 Then sym = "S" ElseIf rn = 19 Then sym = "T" ElseIf rn = 20 Then sym = "U" ElseIf rn = 21 Then sym = "V" ElseIf rn = 22 Then sym = "W" ElseIf rn = 23 Then sym = "X" ElseIf rn = 24 Then sym = "Y" ElseIf rn = 25 Then sym = "Z" ElseIf rn = 26 Then sym = "a" ElseIf rn = 27 Then sym = "b" ElseIf rn = 28 Then sym = "c" ElseIf rn = 29 Then sym = "d" ElseIf rn = 30 Then sym = "e" ElseIf rn = 31 Then sym = "f" ElseIf rn = 32 Then sym = "g" ElseIf rn = 33 Then sym = "h" ElseIf rn = 34 Then sym = "i" ElseIf rn = 35 Then sym = "j" ElseIf rn = 36 Then sym = "k" ElseIf rn = 37 Then sym = "l" ElseIf rn = 38 Then sym = "m" ElseIf rn = 39 Then sym = "n" ElseIf rn = 40 Then sym = "o" ElseIf rn = 41 Then sym = "p" ElseIf rn = 42 Then sym = "q" ElseIf rn = 43 Then sym = "r" ElseIf rn = 44 Then sym = "s" ElseIf rn = 45 Then sym = "t" ElseIf rn = 46 Then sym = "u" ElseIf rn = 47 Then sym = "v" ElseIf rn = 48 Then sym = "w" ElseIf rn = 49 Then sym = "x" ElseIf rn = 50 Then sym = "y" ElseIf rn = 51 Then sym = "z" ElseIf rn = 52 Then sym = "0" ElseIf rn = 53 Then sym = "1" ElseIf rn = 54 Then sym = "2" ElseIf rn = 55 Then sym = "3" ElseIf rn = 56 Then sym = "4" ElseIf rn = 57 Then sym = "5" ElseIf rn = 58 Then sym = "6" ElseIf rn = 59 Then sym = "7" ElseIf rn = 60 Then sym = "8" ElseIf rn = 61 Then sym = "9" ElseIf rn = 62 Then sym = "!" ElseIf rn = 63 Then sym = "@" ElseIf rn = 64 Then sym = "#" ElseIf rn = 65 Then sym = "$" ElseIf rn = 66 Then sym = "%" ElseIf rn = 67 Then sym = "&" ElseIf rn = 68 Then sym = "*" ElseIf rn = 69 Then sym = "/" ElseIf rn = 70 Then sym = "?" ElseIf rn = 71 Then sym = "<" ElseIf rn = 72 Then sym = ">" End If Where.Text = sym + Where.Text Loop Where.Text = vbNewLine & Where.Text z = 0 End If End Sub

Generate Password for each textbox

Post a Reply

Similar Threads

Tags for this Thread