Arkadaşlar random şifre oluşturma kodlarım aşağıda fakat tek sorunum şifreler oluşturulurken tekrar ediyor bunu engellemenin bir yolu va mı?
<% Option Explicit %>
<%
Dim X
Response.Write "<HTML>" & vbCrLf
Response.Write "<HEAD>" & vbCrLf
Response.Write "<TITLE> GGMC RANDOM DATABASE PASSWORD CREATER</TITLE>" & vbCrLf
Response.Write "</HEAD>" & vbCrLf
Response.Write "<BODY>" & vbCrLf
Response.Write "<FONT FACE=COURIER>" & vbCrLf
Response.Write "<B>8 KARAKTERLİ 50K ADET ŞİFRE ÜRETİLDİ</B><BR>" & vbCrLf
For X = 0 To 49000
Response.Write RandomPW(8) & "<br>" & vbCrLf
Next
Function RandomPW(myLength)
Const minLength = 6
Const maxLength = 20
Dim X, Y, strPW
If myLength = 0 Then
Randomize
myLength = Int((maxLength * Rnd) + minLength)
End If
For X = 1 To myLength
'Randomize the type of this character
Y = Int((2 * Rnd) + 1) '(1) Numeric, (2) Uppercase
Select Case Y
Case 1
'Numeric character
Randomize
strPW = strPW & CHR(Int((9 * Rnd) + 48))
Case 2
'Uppercase character
Randomize
strPW = strPW & CHR(Int((25 * Rnd) + 65))
End Select
Next
RandomPW = strPW
End Function
%>