generating passwords question

[Pierre via OfficeKB.com]

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

[Patrick Molloy]

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
>

[Pierre via OfficeKB.com]

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