[Source+Tutorial] Visual Basic 2008 - Gerador De Senhas

[Stigal 221]

• Irá precisar de:
  3 - CheckBox
  1 - NumericUpDown
  1 - TextBox
  2 - Label
  1 - Button

  -

  -

  -

• Tutorial:

  #CheckBox:

  CheckBox1 = Nomear para "Números"

  CheckBox2 = Nomear para "Letras Minusculas"

  CheckBox3 = Nomear para "Letras Maiúsculas"

  -

  #Label:

  Label1 = Nomear para "N° de Digitos:"

  Label2 = Nomear para "Resultado"

  -

  #Button:

  Button1 = Nomear para "Gerar Nova Senha"

  -

  -

  -

• Source/Código:

  Public Class Form1
      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 uma opção para gerar a senha.")
          End If
          If Val(NumericUpDown1.Text) < 3 Then
              MessageBox.Show("Para gerar uma senha, deve ter no minimo 3 digitos.")
          End If
          If Val(NumericUpDown1.Text) > 100 Then
              MessageBox.Show("Comprimento da senha deve ser apenas 3 a 100 digitos.")
              Exit Sub
          End If
          TextBox1.Text = GenerateCode()
      End Sub
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          MessageBox.Show("Ola Usuario, Gerador de Senhas Foi Aberto Com Sucesso." & Chr(13) & "Aperte OK Para Ir Ao Programa.", _
     "Gerador de Senhas - Stigal")
      End Sub
  End Class
  

  -

  -
• Resultado Final:

  

  

  

  -

Atenciosamente, Stigal.

[Visitante]

Gerador de senhas é uma coisa bem útil, para criar senhas difíceis para seus projetos, como por exemplo a senha do phpmyadmin do seu OTServ.

[Stigal 221]

Gerador de senhas é uma coisa bem útil, para criar senhas difíceis para seus projetos, como por exemplo a senha do phpmyadmin do seu OTServ.

Sim, esse gerador gera senhas aleatórias entre 3 a 100 dígitos.

Muito bom para quem quer se manter seguro

[TsplayerT 83]

Stigal, será que você não pode Disponibilizar o Download e Versão do Visual Basic?

Também se possivel Deixar o Download do Gerador de Senhas.exe?