Generate A Random Password

Have you ever need to generate a random password but were unsure of what type
of logic to use to ensure it was truely random. Your problems are now
solved. Use the two functions below. Simply Make a Call To CreateAPw and
Pass in the Number of characters that your Password should be. It will return
a string of that many characters.
Function CreateAPw(iNumChars as integer) As String

dim x as integer
dim newPw as string
dim pwChar as string


Randomize

'Generate a 6 Character Password
pwChar = ""
newPw = ""
For x = 1 To iNumChars
pwChar = GetAChar()
newPw = newPw & pwChar
Next

CreateAPw = newPw


End Function

Function GetAChar As String

Dim num As Single
dim done as Variant

done = False

Do Until Done
num = Rnd 'Generate a number between 0 and 1
num = num * (10 ^2) 'Make the number 2 digits
If (Round(num, 0) >=10 And Round(num, 0) <= 12) Then 'If the number is
between 10 and 12 then make it three digits. We want to capture the characters
between 100 and 122
num = num * 10 'Make the number three digits
End If
num = Round(num, 0) 'Make the number a whole number
If (num >= 65 And num <=90) Or (num >= 97 And num <= 122) Then 'Ensure that
it is a alpha character
GetAChar = Chr$(num) '
done = True
End If
Loop
End Function

This was last published in November 2000

Dig Deeper on Domino Resources - Part 2

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close