Asp Random Generator Tekrar sorunu

31-05-2014, 13:50:49

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

%>

31-05-2014, 15:00:41

#2

moss218

Randomize sayı üretirken saatle çarpabilirsin.

*Time()

31-05-2014, 15:33:58

#3

Turkey_TR

Tam olarak kullanımı nasıl yapacağım

01-06-2014, 14:48:20

#4

oktayman

Randomize
bu kodu sayfanının üstüne yazınız