excel - 密码生成器不断生成同一系列的密码

Question

我的生成器每次运行时都会生成相同系列的密码

dXEFj1im
e3OpkLxq
4wKWi4SF
yBX7zb17
7kE3FLFw
yNDNNeH6
RsCjLEtP
7Zdtn1Xt
   .
   .
   .
  etc

任何人都可以看到需要更改什么，我已经玩过，但我不知道如何修复它。谢谢

函数

Function Pwd(ByVal strTemp As String) As String

Dim i As Integer, iTemp As Integer, bOK As Boolean, iLength As Integer

'48-57 = 0 To 9, 65-90 = A To Z, 97-122 = a To z
'amend For other characters If required
For i = 1 To 8
    Do
        iTemp = Int((122 - 48 + 1) * Rnd + 48)
        Select Case iTemp
        Case 48 To 57, 65 To 90, 97 To 122: bOK = True
        Case Else: bOK = False
        End Select
    Loop Until bOK = True
    bOK = False
    strTemp = strTemp & Chr(iTemp)

' Initialize the seed using Timer.
Randomize (Timer)

Next i
Pwd = strTemp
End Function

子

Sub RanPassword()
Dim rng As range
Dim LastRow As Long

With Sheets("sheet1")
    LastRow = .range("E" & .Rows.Count).End(xlUp).Row
End With

For Each rng In Sheets("Sheet1").range("B2:B" & LastRow)
    rng.Value = Pwd(rng.Value)
Next
End Sub

Answer 1

您没有为随机数生成器播种。它必须在每次新的运行中播种，以产生随机结果。它默认为某个数字，并且该数字生成相同系列的密码。您必须通过调用Randomize函数来为其设定种子。 Randomize 采用一个参数，即种子。系统时间是一个很好但不安全的种子。