<%
ParolaUzunluk=6
strHarf=1
strSayi=1
Function SifreUret(KarekterMiktari, RakamOlacakmi, strHarf)
Harfler=Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","P","Q","R","S","T","U","V","W","X","Y","Z")
Rakamlar=Array("1","2","3","4","5","6","7","8","9")
If RakamOlacakmi = "1" AND strHarf = "1" Then
Kontrol = "3"
Elseif RakamOlacakmi = "1" Then
TempK = "2"
Elseif strHarf = "1" Then
TempK = "1"
End if
i = DatePart("s", Now)+2 : do while i > j : j=DatePart("s", Now) : loop
Randomize Timer
For I = 1 To INT(KarekterMiktari)
If Kontrol = "3" Then TempK = Int((Rnd * 2) + 1)
If TempK = 1 Then
TempPass = TempPass & "" & Harfler(Int((Rnd * 25) + 0))
Elseif TempK = 2 Then
TempPass = TempPass& "" & Rakamlar(Int((Rnd * 9) + 0))
End if
Next
SifreUret = TempPass
End Function
%>