Public Class Form2
Public Function Random25() As Int16
Dim n As Int16
Randomize()
'9 possibilità: da 0 a 8
n = Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd()
'Si può arrivare fino a 16
n += Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd()
'A 24
n += Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd()
'A 25
n += Rnd()
Return n
End Function
Public Function Random9() As Int16
Dim n As Int16
Randomize()
n = Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd() + Rnd()
Return n
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, n As Int16
Dim c As Char
pass_p.Text = ""
For i = 0 To NumericUpDown1.Value - 1
Randomize()
n = Rnd() + Rnd()
Select Case n
Case 0
c = Chr(Asc("a") + Random25())
Case 1
If Button2.Text = "Disabilita maiuscole" Then
c = Chr(Asc("A") + Random25())
Else
n = Rnd()
If n = 0 Then
c = Chr(Asc("a") + Random25())
Else
c = Chr(Asc("0") + Random9())
End If
End If
Case 2
c = Chr(Asc("0") + Random9())
End Select
pass_p.Text = pass_p.Text & c
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Disabilita maiuscole" Then
Button2.Text = "Abilita maiuscole"
Else
Button2.Text = "Disabilita maiuscole"
End If
End Sub
End Class