rastgele şifreleme

SifreUret(Uzunluk, SayıOlsunMu, HarfOlsunMu)

SayıOlsunMu=> 1 = Olsun; 0 = Olmasın
HarfOlsunMu=> 1 = Olsun; 0 = Olmasın

<%
strSifre = SifreUret(8, "1", "1") '8 karakterli harf ve sayılardan oluşan bir şifre oluşturur
strSifre = SifreUret(8, "1", "0") '8 Karakterli sayılardan oluşan bir şifre
strSifre = SifreUret(8, "0", "1") '8 Karakterli harflerden oluşan bir şifre
%>



<%
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
%>