Add files via upload

PassGen.vbp

@@ -14,8 +14,8 @@ Name="PassGen"
 HelpContextID="0"
 CompatibleMode="0"
 MajorVer=1
-MinorVer=1
-RevisionVer=1
+MinorVer=2
+RevisionVer=0
 AutoIncrementVer=0
 ServerSupportFiles=0
 VersionCompanyName="Jigsy"

changelog.txt

@@ -0,0 +1,98 @@
+v1.2.0:
+----------
+1. Fixed a very minor glitch.
+2. Included an "Exclude All" button on the specials form.
+3. Pressing F5 or the Generate button now resets the timer if it is enabled.
+
+v1.1.0.1:
+----------
+1. Added a "Website..." menu item.
+2. Minor cosmetic changes.
+3. Minor code changes.
+
+v1.1.0:
+----------
+1. I found out that the password length for VeraCrypt increased to 128 characters, so PIM has now been extended to passwords that are 128 characters;
+     however, added an override option to limit PIM usage to 64 character passwords.
+2. Added an override option to drop the default PIM to 92 characters for those that use sha512/Whirlpool in VeraCrypt.
+3. Fixed a bug in the override form where pressing Esc didn't check to see if settings needed to be reset to defaults after unchecking the boxes.
+4. One or two minor tweaks to the code.
+
+v1.0.0.9:
+----------
+1. Included "for Next Time" on the Save Settings menu item to make it more clearer. (Also makes it slightly longer, but there's nothing I can do about that.)
+2. Added an option to avoid repeating characters. (E.g. ABBA vs. ABCA)
+
+v1.0.0.8:
+----------
+1. App version now appears in the titlebar. (Eight revisions later...)
+2. Changed "Settings:" to "Include:" in the main frame.
+3. You can now close forms using the Escape (Esc) key.
+4. Added a pointless "About" form which just includes a copy of The Unlicense text.
+5. Added hotkeys for menu items (CTRL+E for Exit, CTRL+O for override, etc.) (They're mentioned next to the item in the menubar.)
+6. You can now save your settings to the registry upon exit, these will be saved under: HKCU\Software\Github\Jigsy1\PassGen\
+     The existence(?) of the registry entry will always be viewed as "Save Settings to Registry on Exit."
+     This can be stopped either by unchecking this option in the menubar (which deletes the key), or simply by deleting the key from the registry itself.
+7. Fixed a bug where automatic generation when everything was deselected would generate [empty strings].
+8. Added a minor key functionality (aside from Escape):
+     * Pressing Del (Delete) will now clear the password list.
+     * Pressing F5 (Refresh) will now generate new passwords.
+9. Other minor changes. (Uniform button width, etc.)
+
+v1.0.0.7:
+----------
+1. Clarified what Uppercase characters and Lowercase characters are for those who aren't "tech savvy."
+2. I noticed that having just specials enabled and one special character didn't offer any variety, so you now need a minimum of two special characters enabled.
+
+v1.0.0.6:
+----------
+1. Increased randomness parameters.
+2. Although nobody asked, increased PIM from 2048 to 8192. (The default is still 1024.)
+3. Two minor tweaks to the code.
+
+v1.0.0.5:
+----------
+1. Noticed I forgot to include a "Minimize" button on the main form. (Either that or I accidentally unset it.)
+2. Re-arranged the special characters form so that the ordering is based on the ASCII table standard. !, ", #, etc.
+3. Also clarified a few other characters on the same form.
+4. Increased randomness parameters.
+5. Tidied up the code. (Condensed, etc.)
+
+v1.0.0.4:
+----------
+1. Added error checking to the Copy command since trying to copy 1,024 512 character passwords caused it to crash on Windows 8.1 (and possibly other OS'.)
+     Oddly enough, it works perfectly fine on my Windows XP Virtual Machine. *shrug*
+2. Added an option to include a random PIM (number) at the end of a password for those who use VeraCrypt. This will appear like: <password> -------- <N>
+     This will only be included if the password is between 8 and 64 characters. Anything longer than that will be ignored.
+     The choices are between 1->128, 1->256, 1->512, 1->1024, 1->2048. Anything above that is overkill, but I will include slightly above that if anyone
+     requests it. (Not set as default.)
+
+v1.0.0.3:
+----------
+1. Fixed a (possible) bug where Rand was only returning passwords up to 63 characters instead of 64.
+2. I remembered one the applications I use has a max password of 80 characters. Rather than keep updating this every so often
+     in order to update the max length, I've added settings that allow you to override the maximum length of the password generated.
+     In the Menubar via a new option called "Settings," you can call the "Override" form where you can do this.
+     You can choose up to 128, 256 or 512 characters. (Not set as default.)
+3. In the same form, I've added an option for "increased randomness." (Not set as default incase it's "too random." E.g. mostly special characters.)
+4. Even though these are the only two with Tool Tips specifically for this reason, I decided to update the special character
+     selection form to help clarify "Minus" and "Period" better.
+
+v1.0.0.2:
+----------
+1. Noticed I forgot to include & in Close for ALT+C functionality, so added that.
+2. Added a separate form to allow you to choose what special characters you want to include.
+3. Tidied up the form so everything is aligned correctly.
+4. Added a menu with an option to exit the program.
+5. Other minor changes not worth mentioning.
+
+v1.0.0.1:
+----------
+1. Rephrased settings.
+2. Included an option to include spaces in passwords. (Not set as default.)
+3. Included an option to automatically (re-)generate new passwords every 60s. (Not set as default.)
+4. Added a "Select All" button for easier copying.
+
+v1.0.0:
+----------
+1. Initial release.

frmAbout.frm

@@ -64,7 +64,7 @@ Private Sub Form_KeyPress(KeyAscii As Integer)
 End Sub
 
 Private Sub Form_Load()
-  Me.Caption = Me.Caption & " " & frmPassGen.Caption
+  Me.Caption = Me.Caption & " " & frmPassGen.Tag
 End Sub
 
 Private Sub Form_Terminate()

frmPassGen.frm

@@ -322,6 +322,11 @@ Public Function addLenNumbers()
   ' `-> The minimum is eight, but nobody should really be using sub 16 character passwords in 2022.
 End Function
 
+Private Function resetTimer()
+  tmrAutomatic.Enabled = False
+  tmrAutomatic.Enabled = True
+End Function
+
 Private Function makePass(passCount As Integer, inputLength As Variant)
   Randomize Timer
   Dim baseString As String
@@ -575,6 +580,7 @@ Private Sub cmdGenerate_Click()
     ' `-> Do not include chkSpace here because it would offer no differences.
   Else
     Call makePass(cmbNumber.Text, cmbLength.Text)
+    If tmrAutomatic.Enabled = True Then Call resetTimer
   End If
 End Sub
 
@@ -595,7 +601,10 @@ End Sub
 
 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF5 Then
-    If chkUpperChars.Value <> 0 Or chkLowerChars.Value <> 0 Or chkNumChars.Value <> 0 Or chkSpecialChars.Value <> 0 Then Call makePass(cmbNumber.Text, cmbLength.Text)
+    If chkUpperChars.Value <> 0 Or chkLowerChars.Value <> 0 Or chkNumChars.Value <> 0 Or chkSpecialChars.Value <> 0 Then
+      Call makePass(cmbNumber.Text, cmbLength.Text)
+      If tmrAutomatic.Enabled = True Then Call resetTimer
+    End If
   End If
   If KeyCode = vbKeyDelete Then lstPasswords.Clear
 End Sub

frmSpecial.frm

@@ -12,6 +12,14 @@ Begin VB.Form frmSpecial
    ScaleHeight     =   3000
    ScaleWidth      =   6480
    StartUpPosition =   1  'CenterOwner
+   Begin VB.CommandButton cmdExclude 
+      Caption         =   "&Exclude All"
+      Height          =   375
+      Left            =   1560
+      TabIndex        =   33
+      Top             =   2520
+      Width           =   1335
+   End
    Begin VB.CommandButton cmdIncludeAll 
       Caption         =   "&Include All"
       Height          =   375
@@ -24,15 +32,15 @@ Begin VB.Form frmSpecial
       Caption         =   "&OK"
       Height          =   375
       Left            =   5040
-      TabIndex        =   33
+      TabIndex        =   34
       Top             =   2520
       Width           =   1335
    End
    Begin VB.Frame fmeInclude 
       Caption         =   "Include:"
       Height          =   2295
       Left            =   120
-      TabIndex        =   34
+      TabIndex        =   35
       Top             =   120
       Width           =   6255
       Begin VB.CheckBox chkUnderscore 
@@ -458,6 +466,42 @@ Private Sub chkUnderscore_Click()
   frmPassGen.useUnderscore = chkUnderscore.Value
 End Sub
 
+Private Sub cmdExclude_Click()
+  If chkExclamation.Value = 1 Then chkExclamation.Value = 0
+  If chkQuote.Value = 1 Then chkQuote.Value = 0
+  If chkHash.Value = 1 Then chkHash.Value = 0
+  If chkDollar.Value = 1 Then chkDollar.Value = 0
+  If chkPercent.Value = 1 Then chkPercent.Value = 0
+  If chkAmpersand.Value = 1 Then chkAmpersand.Value = 0
+  If chkApostrophe.Value = 1 Then chkApostrophe.Value = 0
+  If chkLeftParenthesis.Value = 1 Then chkLeftParenthesis.Value = 0
+  If chkRightParenthesis.Value = 1 Then chkRightParenthesis.Value = 0
+  If chkAsterisk.Value = 1 Then chkAsterisk.Value = 0
+  If chkPlus.Value = 1 Then chkPlus.Value = 0
+  If chkComma.Value = 1 Then chkComma.Value = 0
+  If chkMinus.Value = 1 Then chkMinus.Value = 0
+  If chkPeriod.Value = 1 Then chkPeriod.Value = 0
+  If chkForwardSlash.Value = 1 Then chkForwardSlash.Value = 0
+  If chkColon.Value = 1 Then chkColon.Value = 0
+  If chkSemiColon.Value = 1 Then chkSemiColon.Value = 0
+  If chkLessThan.Value = 1 Then chkLessThan.Value = 0
+  If chkEquals.Value = 1 Then chkEquals.Value = 0
+  If chkGreaterThan.Value = 1 Then chkGreaterThan.Value = 0
+  If chkQuestion.Value = 1 Then chkQuestion.Value = 0
+  If chkAtSign.Value = 1 Then chkAtSign.Value = 0
+  If chkLeftBracket.Value = 1 Then chkLeftBracket.Value = 0
+  If chkBackSlash.Value = 1 Then chkBackSlash.Value = 0
+  If chkRightBracket.Value = 1 Then chkRightBracket.Value = 0
+  If chkPower.Value = 1 Then chkPower.Value = 0
+  If chkUnderscore.Value = 1 Then chkUnderscore.Value = 0
+  If chkGrave.Value = 1 Then chkGrave.Value = 0
+  If chkLeftBrace.Value = 1 Then chkLeftBrace.Value = 0
+  If chkPipe.Value = 1 Then chkPipe.Value = 0
+  If chkRightBrace.Value = 1 Then chkRightBrace.Value = 0
+  If chkTilde.Value = 1 Then chkTilde.Value = 0
+  ' `-> ASCII table order.
+End Sub
+
 Private Sub cmdIncludeAll_Click()
   If chkExclamation.Value = 0 Then chkExclamation.Value = 1
   If chkQuote.Value = 0 Then chkQuote.Value = 1