There are\u00a0a\u00a0few of way I like to create random passwords usually from a Filemaker server based database, for more security,\u00a0but here is an Excel visual basic equivalent of what I use:<\/p>\n
This code below generates passwords completely randomly.<\/p>\n
Public Function RndPass(Length As Integer, Optional Lower As Boolean) As String<\/p>\n
Dim Max As Integer
\nDim Min As Integer<\/p>\nDim RndPassLoop As String<\/p>\n
Max = 126
\nMin = 48<\/p>\nRandomize Timer<\/p>\n
If Length < 8 Then
\nLength = 8
\nEnd If<\/p>\nFor i = 1 To Length
\nRndPassLoop = RndPassLoop & Chr(Int((Max – Min + 1) * Rnd + Min))
\nNext i<\/p>\nIf Lower = False Then
\nRndPass = RndPassLoop
\nElse
\nRndPass = StrConv(RndPassLoop, vbLowerCase)
\nEnd If<\/p>\nEnd Function<\/strong><\/p>\n
‘add this code to a vb module
\n‘syntax is RndPass(Length of password, True (lowercase) \/ Empty or False (both upper and lower)
\n‘RndPass(20,1) = 20 characters lower case<\/strong><\/p><\/blockquote>\nRandom Letter Generator<\/h3>\n
This code below will generator code for a random letter or number based string.<\/p>\n
Public Function RndPassP(Phrase As String) As String<\/p>\n
Dim Max As Integer
\nDim Min As Integer<\/p>\nDim RndPassLoop As String<\/p>\n
If Len(Phrase) < 12 Then
\nRndPassP = “Phrase too short – please choose something longer”
\nExit Function
\nEnd If<\/p>\nIf subStringCount(Phrase, “a”) + _
\nsubStringCount(Phrase, “c”) + _
\nsubStringCount(Phrase, “e”) + _
\nsubStringCount(Phrase, “i”) + _
\nsubStringCount(Phrase, “o”) + _
\nsubStringCount(Phrase, “s”) + _
\nsubStringCount(Phrase, “u”) + _
\nsubStringCount(Phrase, “r”) < 4 Then<\/p>\nRndPassP = “Phrase does not include enough key letters – please choose another”
\nExit Function
\nEnd If<\/p>\nPhrase = StrConv(Phrase, vbLowerCase)<\/p>\n
Randomize Timer<\/p>\n
RndPassLoop = Replace(Phrase, “a”, “@”)
\nPhrase = Replace(RndPassLoop, “b”, “8”)
\nRndPassLoop = Replace(Phrase, “e”, “3”)
\nPhrase = Replace(RndPassLoop, “i”, “!”)
\nRndPassLoop = Replace(Phrase, “o”, “0”)
\nPhrase = Replace(RndPassLoop, “s”, “$”)
\nRndPassLoop = Replace(Phrase, ” “, “”)
\nPhrase = Replace(RndPassLoop, “u”, ” * “)
\nRndPassLoop = Replace(Phrase, “r”, “\u00a3”)
\nPhrase = Replace(RndPassLoop, “M”, “M”)
\nRndPassLoop = Replace(Phrase, “N”, “N”)
\nPhrase = Replace(RndPassLoop, “T”, “T”)
\nRndPassLoop = Replace(Phrase, “X”, “X”)
\nPhrase = Replace(RndPassLoop, “G”, “G”)<\/p>\nPhrase = RndPassLoop & “:)”””<\/p>\n
RndPassP = Phrase<\/p>\n
End Function<\/p>\n
Function subStringCount(longString As String, subString As String) As Double
\nsubStringCount = Len(longString) _
\n– Len(Application.Substitute(longString, subString, vbNullChar))
\nEnd Function<\/p>\n‘add this code to a vb module
\n‘syntax is \u2018RndPassP(string):
\n‘RndPassP (“I work in Property Finance”)<\/strong><\/p><\/blockquote>\nLet me know what you think about these and what sort of password system you use?<\/p>\n","protected":false},"excerpt":{"rendered":"
There are\u00a0a\u00a0few of way I like to create random passwords usually from a Filemaker server based database, for more security,\u00a0but here is an Excel visual basic equivalent of what I use: Random Password Generator This code below generates passwords completely randomly. Public Function RndPass(Length As Integer, Optional Lower As Boolean) As String Dim Max As […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0},"categories":[26],"tags":[123,79,78,117,55,27,119,121],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/posts\/133"}],"collection":[{"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/comments?post=133"}],"version-history":[{"count":0,"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/posts\/133\/revisions"}],"wp:attachment":[{"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/media?parent=133"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/categories?post=133"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/simoncpage.co.uk\/blog\/wp-json\/wp\/v2\/tags?post=133"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}