Hi,

I have the following code to generate random passwords:

Sub passgen()
Dim k As Long
With Sheets(Licentie)

For k = 1 To 6
For a = 1 To 1000
X = Int(Rnd * 2)
If X = 1 Then
Cells(a, k) = Chr(Int(26 * Rnd) + 65)
Else
Cells(a, k) = Int(9 * Rnd)
End If
Next a
Next k
End With
End Sub

The code puts random numbers and figures in column 1-6.
in column 7 i put the values of column 1-6 together to get a password.
However, the passwords are not unique...
How can i make the passwords unique?
Thanks,
Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200511/1

your algorithm doesn't allow you to generate that many "unique" values.

You have 6 x 1000, ie 6000 potential values but for about 1/2 the time you
just use a letter from A to z, so 3000 values use just one of 26 letters.

"Pierre via OfficeKB.com" wrote:

Hi,

I have the following code to generate random passwords:

Sub passgen()
Dim k As Long
With Sheets(Licentie)

For k = 1 To 6
For a = 1 To 1000
X = Int(Rnd * 2)
If X = 1 Then
Cells(a, k) = Chr(Int(26 * Rnd) + 65)
Else
Cells(a, k) = Int(9 * Rnd)
End If
Next a
Next k
End With
End Sub

The code puts random numbers and figures in column 1-6.
in column 7 i put the values of column 1-6 together to get a password.
However, the passwords are not unique...
How can i make the passwords unique?
Thanks,
Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200511/1

hi patrick,

do you have some additional code so that i can generate unique codes please?
thanks,
Pierre

Patrick Molloy wrote:
your algorithm doesn't allow you to generate that many "unique" values.

You have 6 x 1000, ie 6000 potential values but for about 1/2 the time you
just use a letter from A to z, so 3000 values use just one of 26 letters.

Hi,

[quoted text clipped - 23 lines]
Thanks,
Pierre


--
Message posted via http://www.officekb.com