To read the article online, visit http://www.4GuysFromRolla.com/webtech/tips/t011100-1.shtml

User Tips: A Quick and Dirty Random Password Generator


By Burt A.

There are a number of ways to generate useful, random passwords. In fact, there are a number of articles on 4Guys on generating random passwords. While these methods will generate variable-length, highly randomized passwords, there is another approach, and quick and dirty approach that requires just a few lines of code!

My method is to use the FileSystemObject's GetTempName, which returns the path to a temporary file. (If you're unfamiliar with the FileSystemObject be sure to read the FileSystemObject F.A.Q. These files have names like:

rad5VCE3.tmp

I thought to myself, why not just hack off the rad (using Right) and hack off the .tmp using the GetBaseName method? Those middle five characters are randomly generated and could serve as a random password. So, that's what I did. You can use this method to create random, five-length passwords. I find this technique useful for generating random passwords. If you run a site that requires members to create accounts, you may wish to assign them a default, random password. You may find this routine useful:

Dim fs, i, x Dim strTemp Response.Write "<U><B>Here are 50 Random " & _ "Passwords:</B></U><BR>" Set fs = CreateObject("Scripting.FileSystemObject") For x = 1 to 50 'Get just the filename part of the temp name path strTemp = fs.GetBaseName(fs.GetTempName) 'Hack off the 'rad' strTemp = Right(strTemp, Len(strTemp) - 3) Response.Write strTemp & "<br>" Next Set fs = Nothing

Pretty nifty, eh? You can view a running version of this code here. To generate a single random password, simply remove the For x = 1 to 50 and Next lines.

Happy Programming!

Return to user tips...


Article Information
Article Title: User Tips: A Quick and Dirty Random Password Generator
Article Author: Burt A.
Article URL: http://www.4GuysFromRolla.com/webtech/tips/t011100-1.shtml


Copyright 2017 QuinStreet Inc. All Rights Reserved.
Legal Notices, Licensing, Permissions, Privacy Policy.
Advertise | Newsletters | E-mail Offers