Programalama > ASP

Function SifreUret(HarfSayi, SayiUret, HarfUret) 'Bir function açtık

Harf = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "Y", "Z", "Q", "W", "X") 'Arraya harflerimizi tanıtık.
Sayi = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0") 'Şimdide sayılarımızı tanıttık


If SayiUret = "1" AND HarfUret = "1" Then 'Eğer sayı üretme e harf üretme 1 ise
     Denetim = "3" ' Denetim 3 olsun
Elseif SAyiUret = "1" Then 'Aksi Taktirde SAyiUret 1 ise
     Salla = "2" 'Salla 2 olsun
Elseif HarfUret = "1" Then 'Yoksa HarfUret 1 ise
     Salla = "1" 'Salla 1 olsun
End if
Randomize Timer 'Zamana göre üret
For I = 0 To INT(HarfSayi) 'İstenilen Karaktere kadar dön

     If Denetim = "3" Then ' Denetim 3 ise
          Salla = Int((Rnd * 2) + 1) 'Salla 1 veya 2 olsun
     End if
     
     If Salla = 2 Then 'Eğer Salla 2 ise
          Gidecek = Gidecek & "" & Sayi(Int((Rnd * 10) + 0)) 'Bir Sayı üret
     Elseif Salla = 1 Then 'Yoksa Salla 1 ise
          Gidecek = Gidecek & "" & Harf(Int((Rnd * 26) + 0)) 'Harf üret
     End if

Next
     
SifreUret = Gidecek

End Function

Response.Write SifreUret(8, "1", "1") '8 karakterli harf ve sayılardan oluşan bir şifre oluşturur
Response.Write "<br>---"
Response.Write SifreUret(8, "1", "0") '8 Karakterli sayılardan oluşan bir şifre 
Response.Write "<br>---"
Response.Write SifreUret(8, "0", "1") '8 Karakterli harflerden oluşan bir şifre
Response.Write "<br>---"