generating passwords question
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 |
generating passwords question
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 |
generating passwords question
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 |
All times are GMT +1. The time now is 05:43 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com