Generate A Random Password

This Content Component encountered an error

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 first published in November 2000

Dig deeper on Domino Resources - Part 2

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

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

SearchVirtualDataCentre.co.UK

Close