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

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

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

任何人都可以看到有什么需要改变，我曾经玩过，我不知道解决这个问题。 谢谢

function

 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有一个参数，种子。 系统时间好，但不安全的种子。