Güvenlik Kodu

Merhabalar.Yine geçende bir forumda soruldu ve yine cevabını buradan vermek istedim.Çünkü bizim amacımız herkese faydalı olabilmek.Olay çok basit.Bir form girişinde bir alan daha belirtiyorsunuz.Örneğin bir üye girişinde genelde 2 form alanı vardır.Kullanıcı Adı & şifre buna bir de Güvenlik alanı ekliyoruz ve diğer sayfada güvenlik şifresini kontrol ediyoruz.Uygulama 2 asp dosyasından oluşmakta.Kod üzerinde küçük oynamalarla kendinize göre düzenleyebilirsiniz.Form.asp___________________________________________________________<%'Güvenlik parolasının uzunluğunu 1. satırdan'Parola içinde harf olup olmayacağını 2. satırdan'Parola içinde sayı olup olmayacağını 3. satırdan'Ayarlıyoruz bu arada 1 evet 2 hayır anlamına geliyor (2. & 3. satırlar için)ParolaUzunluk=5strHarf=1strSayi=1'Burada karmaşık bir şifre üretecek fonksiyonumuz varFunction 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 ifi = DatePart(""s"", Now)+2 : do while i > j : j=DatePart(""s"", Now) : loopRandomize TimerFor I = 1 To INT(KarekterMiktari) If Kontrol = ""3"" Then TempK = Int((Rnd * 2) + 1) If TempK = 1 ThenTempPass = TempPass & """" & Harfler(Int((Rnd * 25) + 0)) Elseif TempK = 2 ThenTempPass = TempPass& """" & Rakamlar(Int((Rnd * 9) + 0)) End ifNextSifreUret = TempPassEnd Function'şifre üreten fonksiyonumuz bitiyor'Üretilen şifreyi Ekrana Yazdıracağımız FonksiyonumuzFunction ParolaYazdir(Veri)for i = 1 to Len(Veri) : TH = Mid(Veri,i,1)response.write """" & TH &""""nextend function'Bu Fonksiyonumuzda Bitiyor'Session nesnemize şifremizi atıyoruz & sonra yazdırıyoruzSession(""Parola"") = SifreUret(ParolaUzunluk,strSayi,strHarf)ParolaYazdir Session(""Parola"")%>

Lütfen yukarıdaki güvenlik kodunu aşağıdaki alana yazınız.

Gördüğünüz gibi form.asp sayfasının yapısı bu şekilde.Fonksiyonları anlamasanızda olur önemli olan ben bu sayfada işlemi normal yazı şeklinde yazdırdım.Siz belki resim şeklinde yazdırmak isteyebilirsiniz.Ya da sitenizin tasarımına uygun bir hale getirmek isteyebilirsiniz.ışte bu durumları ""ParolaYazdir"" Fonksiyonundan düzenliyoruz.Ve orda görmüş bulunduğunuz TH kelimesi her bir parola karakterini temsil ediyor.Yani bunu resimle yapmak isterseniz oraya;gibi bir ifade kullanmanız gerekecek.Peki buradan gelen formu nasıl kontrol edeceğiz.Kontrol.asp___________________________________________________________

Yazmanız Gereken Parola	<%=Session(""Parola"")%>
Yazdığınız Parola	<%=request(""frmParola"")%>
<%If Request(""frmParola"")=Session(""Parola"") ThenResponse.Write ""Denetimi Geçti""ElseResponse.Write ""Denetimi Geçemedi""End If%>

ışte bu kadar.ıncelediğiniz zaman kodu anlayacağınıza eminim ancak anlayamayacağınızı varsayaraktan ""Forum"" köşemiz olduğunu hatırlatıyorum.Gelecek yazılarda görüşebilmemiz dileği ile hoşçakalın arkadaşlar.Bu arada hepinizin Mübarek Kurban bayramını kutlarım.

Asp KodBank 2 yıl önce Melek Kentmen 364