Gerador de Senhas(simples)

por **schnaidinha** Qui Mar 08, 2012 7:06 pm

Componentes:

1 Button
1 TextBox
3 CheckBox
1 NumericUpDown

Nomes
1 Button = Gerar
1 CheckBox = Números
2 CheckBox = Letras Maiúsculas
3 CheckBox = Letras Minusculas

Pré-visualização:

Gerador de Senhas(simples) Schnai10

Código:: Public Function GenerateCode() Dim intred As Integer Dim intstep As Integer = Nothing Dim strname As String Dim intLength As Integer Dim strinputstring As String = "" Dim Numbers As String = "1234567890" Dim Lower As String = "abcdefghijklmnopqrstuvwxyz" Dim Upper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim intnamelength As Integer = 1 If CheckBox1.Checked Then strinputstring &= Numbers If CheckBox2.Checked Then strinputstring &= Lower If CheckBox3.Checked Then strinputstring &= Upper intLength = Len(strinputstring) Integer.TryParse(NumericUpDown1.Text, intnamelength) Randomize() strname = "" For instep = 1 To intnamelength intred = Int(Rnd() * intLength) + 1 strname = strname & Mid(strinputstring, intred, 1) Next Return strname End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = TextBox1.Text.Trim If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False Then MessageBox.Show("Você deve selecionar um método para gerar sua senha com") End If If Val(NumericUpDown1.Text) < 3 Then MessageBox.Show("Você deve digitar um valor mínimo de 3 para prosseguir") End If If Val(NumericUpDown1.Text) > 100 Then MessageBox.Show("Comprimento da senha deve ser apenas de números 3 a 100") Exit Sub End If TextBox1.Text = GenerateCode() End Sub

por **Vector** Qui Mar 08, 2012 8:03 pm

Muito Bom,Gostei mesmo!

=~Aprovado~=

Continue assim,o fórum precisa de pessoas como você!

Obigado.

Gerador de Senhas(simples)

Gerador de Senhas(simples)

Re: Gerador de Senhas(simples)