Visual Basic

<br />
Private Sub btnGeneratePassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeneratePassword.Click<br />
        Dim RandomNo As New Random<br />
        Dim x As Integer<br />
        Dim y As Integer<br />
        Dim Chars As String<br />
        Chars = "1234567890abcdefghijklmnopqrstuvwxyz"<br />
        Chars += "ABCDEFGHIJKLMNOPQRSTUVWXYZ~!@#$%^&*()[]{};:<>?/.,"<br />
        Count = CInt(numLength.Text)<br />
        txtPassword.Text = ""<br />
        For y = 0 To 10 ' Number of chars in password<br />
            If chkUseSpecial.Checked Then<br />
                x = RandomNo.Next(0, Chars.Length - 1)<br />
            Else<br />
                x = RandomNo.Next(0, Chars.Length - 24)<br />
            End If<br />
            txtPassword.Text += Chars.Chars(x)<br />
        Next<br />
    End Sub<br />

Public Function GeneratePassword(ByVal passwordLength As Integer) As String<br />
Dim Vowels() As Char = New Char() {"a", "e", "i", "o", "u"}<br />
Dim Consonants() As Char = New Char() {"b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "r", "s", "t", "v"}<br />
Dim DoubleConsonants() As Char = New Char() {"c", "d", "f", "g", "l", "m", "n", "p", "r", "s", "t"}<br />
<br />
Dim wroteConsonant As Boolean 'boolean<br />
Dim counter As Integer<br />
<br />
Dim rnd As New Random<br />
Dim passwordBuffer As New StringBuilder<br />
<br />
wroteConsonant = False<br />
For counter = 0 To passwordLength<br />
If passwordBuffer.Length > 0 And (wroteConsonant = False) And (rnd.Next(100) < 10) Then<br />
passwordBuffer.Append(DoubleConsonants(rnd.Next(Do ubleConsonants.Length)), 2)<br />
counter += 1<br />
wroteConsonant = True<br />
Else<br />
If (wroteConsonant = False) And (rnd.Next(100) < 90) Then<br />
passwordBuffer.Append(Consonants(rnd.Next(Consonan ts.Length)))<br />
wroteConsonant = True<br />
Else<br />
passwordBuffer.Append(Vowels(rnd.Next(Vowels.Lengt h)))<br />
wroteConsonant = False<br />
End If<br />
End If<br />
Next<br />
<br />
'size the buffer<br />
passwordBuffer.Length = passwordLength<br />
Return passwordBuffer.ToString<br />
End Function

text_change event<br />
<br />
textbox1.text = GeneratePassword