A Password Generator With Strength Options

Category:

Miscellaneous

Type:

Applications

Difficulty:

Beginning

Author: Anonymous

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

This project creates completely random passwords with the options to change the strength of the password. The UI gives you the ability to set the number of characters, uppercase, lowercase, and whether to add numbers to create alphanumeric passwords. Add a text box control that will display the generated password, 3 checkbox controls to dictate lowercase, uppercase and numbers, a combobox to select how many characters and finally a command button to execute.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Password Generator"
   ClientHeight    =   2745
   ClientLeft      =   150
   ClientTop       =   720
   ClientWidth     =   4695
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2745
   ScaleWidth      =   4695
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Hide Password"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2400
      TabIndex        =   9
      Top             =   2160
      Width           =   1575
   End
   Begin VB.CheckBox Check3 
      Caption         =   "Uppercase"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   1080
      Width           =   1335
   End
   Begin VB.CheckBox Check2 
      Caption         =   "Lowercase"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   840
      Value           =   1  'Checked
      Width           =   1335
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Add Numbers"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   1320
      Width           =   1455
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      ItemData        =   "PasswordGen.frx":0000
      Left            =   2520
      List            =   "PasswordGen.frx":0002
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   1080
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Get Password"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   720
      TabIndex        =   1
      Top             =   2160
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   0
      Locked          =   -1  'True
      TabIndex        =   0
      Top             =   240
      Width           =   4695
   End
   Begin VB.Frame Frame1 
      Caption         =   "Options"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   0
      TabIndex        =   7
      Top             =   600
      Width           =   4695
      Begin VB.Label Label2 
         Caption         =   "Select # Of Characters:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2520
         TabIndex        =   8
         Top             =   240
         Width           =   2055
      End
   End
   Begin VB.Label Label1 
      Caption         =   "Your Password:"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   4695
   End
   Begin VB.Menu Clip 
      Caption         =   "Clipboard"
      Begin VB.Menu Copy 
         Caption         =   "Copy"
         Shortcut        =   ^C
      End
   End
   Begin VB.Menu About 
      Caption         =   "About..."
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim PassSet, TextTxt, mylower, myupper

Private Sub About_Click()
Load Form2
Form2.Show
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Randomize
Dim mypass, NumOfChars
Dim uporlow

NumOfChars = Combo1.Text

'Checking if Combo1 has value or if value under 3
If NumOfChars = "" Then
mynull = MsgBox("Error: Number of characters not selected!", vbExclamation, "Error!")
Exit Sub
ElseIf NumOfChars <= 3 Then
mynull = MsgBox("Error: Number of characters not selected!", vbExclamation, "Error!")
Exit Sub
End If

NumOfChars = Int(NumOfChars)

For i = 1 To NumOfChars

If Check2.Value And Check3.Value = 1 Then

'Deciding if uppercase or lowercase
 Randomize
 uporlow = Int((Rnd * 2) + 1)
 If uporlow = 1 Then
  myupper = 122
  mylower = 97
  
  Call NumChooser
  
 Else
  myupper = 90
  mylower = 65
  
  Call NumChooser
  
 End If
  
ElseIf Check3.Value = 1 Then
myupper = 90
mylower = 65

Call NumChooser
 
ElseIf Check2.Value = 1 Then
myupper = 122
mylower = 97

Call NumChooser
 
Else
mynull = MsgBox("Error: You must select Lowercase or Uppercase!", vbExclamation, "Error!")
Exit Sub
End If

mypass = Int((myupper - mylower + 1) * Rnd + mylower)
Text1.Text = Text1.Text & Chr(mypass)
Next
End Sub

Private Sub Command2_Click()

If Text1.Text = "" Then
Exit Sub
End If

If PassSet = True Then
Text1.PasswordChar = ""
Text1.Text = TextTxt
Command2.Caption = "Hide Password!"
PassSet = False
ElseIf PassSet = False Then
TextTxt = Text1.Text
Text1.PasswordChar = "*"
Command2.Caption = "Unhide Password!"
PassSet = True
End If
End Sub

Private Sub Copy_Click()
Clipboard.SetText (Text1.Text)
End Sub

Private Sub Form_Load()
For i = 4 To 20
Combo1.AddItem (i)
Next
End Sub

Private Sub NumChooser()
 'Adding number if number checkbox is selected and
 'random generator chooses number over characters
 If Check1.Value = 1 Then
 Randomize
 isnumorchar = Int((Rnd * 4) + 1)
 If isnumorchar = 1 Then
 mylower = 48
 myupper = 57
 End If
 End If
End Sub