Random string generator | VB2008
Platform: Visual Basic
Published Mar 12, 2011
Updated Mar 12, 2011
So, after 3-4 years of inactivity I decided to return to Hawkee, my old account was 'Criminal'.
I'm not sure if this is the right section to post this snippet in, kinda unclear. Also I think it's weird to post a VB snippet without having a close look at the form itself. So I'll provide a screenshot to help you out. It's a single string generator, if you're planning on learning .NET or other languages, I'm sure this tool will be a life safer. You can adjust the length of each string by changing the Convert.ToDecimal(NumericUpDown1.Text) to either a static value like 75, be creative.
Another feature this snippet has is that it automatically copies the string to your clipboard.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num_characters As Integer
Dim i As Integer
Dim txt1 As String
Dim ch As Integer
num_characters = Convert.ToDecimal(NumericUpDown1.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt1 = txt1 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt1 = txt1 & Chr(ch + Asc("a"))
ch = ch - 26 - 26
txt1 = txt1 & Chr(ch + Asc("0"))
TextBox1.Text = txt1