Generate Password for each textbox
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.
Generate Password for each textbox
The code is to get a Real Hardware Fingerprint, there is no reason to generate new letters and numbers based on it, because it is already unique.
Originally Posted by NextGen1
The code is to get a Real Hardware Fingerprint, there is no reason to generate new letters and numbers based on it, because it is already unique.
C'mon champ, don't forget your own tutorials.
Oh........Open Source Password Generator
I read it as OS (operating system) and assumed he meant hardware fingerprint....
I read it as OS (operating system) and assumed he meant hardware fingerprint....
Originally Posted by ppl2pass
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
Code:
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
one more question. how would i use the code in a button now?
help plz...
Leave code as is, and if you want to use a button
under your button event add
Which is the original event, as long as you didn't move the code out of that event it will work
under your button event add
Code:
Generate_Click
NextGen1 wat would the code be for the button if i used lolland's altered code.
Code:
GeneratePass
but there is also a reference to where as text?
how do ui do that?
how do ui do that?
.........? What do you mean?
I am not sure what you are asking , Sorry , Explain more
If you are referring to Where.text in Lollands sample, That's just a place holder
I am not sure what you are asking , Sorry , Explain more
If you are referring to Where.text in Lollands sample, That's just a place holder
GeneratePass(Textbox1.text)
Etc.
Etc.
This thread is closed for replies.
Similar Threads
GeneralPassword for a site.
13 Combat Arms Mods & Rez ModdingConvert these to .rez and win[10x nx for each convert] 40 Call of Duty Modern Warfare 2 HelpExp for each level, and time for each perstige.
16 Visual Basic Programming[help]For each statement[Closed]PP 1 Visual Basic Programming[Help] For Each ""PP 14
13 Combat Arms Mods & Rez ModdingConvert these to .rez and win[10x nx for each convert] 40 Call of Duty Modern Warfare 2 HelpExp for each level, and time for each perstige. 16 Visual Basic Programming[help]For each statement[Closed]PP 1 Visual Basic Programming[Help] For Each ""PP 14