rastgele şifreleme

rastgele şifrelemeSifreUret(Uzunluk, SayıOlsunMu, HarfOlsunMu)SayıOlsunMu=> 1 = Olsun; 0 = OlmasınHarfOlsunMu=> 1 = Olsun; 0 = Olmasın<%strSifre = SifreUret(8, "1", "1") '8 karakterli harf ve sayılardan oluşan bir şifre oluştururstrSifre = 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ıkHarf = 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ıkIf SayiUret = "1" AND HarfUret = "1" Then 'Eğer sayı üretme e harf üretme 1 iseDenetim = "3" ' Denetim 3 olsunElseif SAyiUret = "1" Then 'Aksi Taktirde SAyiUret 1 iseSalla = "2" 'Salla 2 olsunElseif HarfUret = "1" Then 'Yoksa HarfUret 1 iseSalla = "1" 'Salla 1 olsunEnd ifRandomize Timer 'Zamana göre üretFor I = 0 To INT(HarfSayi) 'İstenilen Karaktere kadar dönIf Denetim = "3" Then ' Denetim 3 iseSalla = Int((Rnd * 2) + 1) 'Salla 1 veya 2 olsunEnd ifIf Salla = 2 Then 'Eğer Salla 2 iseGidecek = Gidecek & "" & Sayi(Int((Rnd * 10) + 0)) 'Bir Sayı üretElseif Salla = 1 Then 'Yoksa Salla 1 iseGidecek = Gidecek & "" & Harf(Int((Rnd * 26) + 0)) 'Harf üretEnd ifNextSifreUret = GidecekEnd Function%>