ASP İle Güvenlik Kodu Yapımı

Döküman ile ilgili konu şu linktedir : http://www.tahribat.com/Forum-Dokuman-Php-Ile-Guvenlik-Kodu-Yapimi-139337/

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şmaktadır.Kodlar ü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=5
strHarf=1
strSayi=1

‘Burada karmaşık bir şifre üretecek fonksiyonumuz var

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
‘şifre üreten fonksiyonumuz bitiyor

‘Üretilen şifreyi Ekrana Yazdıracağımız Fonksiyonumuz
Function ParolaYazdir(Veri)
For i = 1 To Len(Veri) : TBT = Mid(Veri,i,1)
Response.Write”" & TBT &”"
Next
End Function
‘Bu Fonksiyonumuzda Bitiyor

‘Session nesnemize şifremizi atıyoruz & sonra yazdırıyoruz
Session(“Parola” ) = SifreUret(ParolaUzunluk,strSayi,strHarf)
ParolaYazdir Session(“Parola” )
%>
<form action=”kontrol.asp” method=”get”>
Lütfen yukarıdaki güvenlik kodunu aşağıdaki alana yazınız.<br>
<input type=”text” name=”frmParola” size=”20″><input type=”submit”>
</form>

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 TBT kelimesi her bir parola karakterini temsil ediyor.Yani bunu resimle yapmak isterseniz oraya;

<img src=resim_”& TBT &”.gif>

gibi bir ifade kullanmanız gerekecek.Peki buradan gelen formu nasıl kontrol edeceğiz.

Kontrol.asp

<table width=”100%”>
<tr>
<td width=”50%”>Yazmanız Gereken Parola</td>
<td width=”50%”><%=Session(“Parola” )%></td>
</tr>
<tr>
<td width=”50%”>Yazdığınız Parola</td>
<td width=”50%”><%=request(“frmParola” )%></td>
</tr>
<tr>
<td width=”100%” colspan=”2″><b><%
If Request(“frmParola” )=Session(“Parola” ) Then
Response.Write”<font size=” “5″ ” color=” “#008000″ “>Denetimi Geçti</font>”
Else
Response.Write”<font size=” “5″ ” color=” “#FF0000″ “>Denetimi Geçemedi</font>”
End If
%></b>
</td>
</tr>
</table>