Asp ile mail doğruluğu kontrolü

[Yunus Emre]

Önce fonksiyonumuzu kuralım . Alttaki fonksiyon sadece "@", ".com" ve geçerli karakterleri ayarlıyor. Yani direkt msn sitesinden mail varmı diye kontrol etmiyor . Yani "asasdasd" diye bir maili kabul etmez ..

Kod: [Seç]

<%
Function EmailKontrol(email)
     Dim regEx, Match, Matches
     If email <> "" Then
          Set regEx = New RegExp
          regEx.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
          regEx.IgnoreCase = True
          If regEx.Test(email) Then EmailKontrol = True Else EmailKontrol = False
     End If
End Function
%>

Alttaki kodlarda ise "post" yöntemi ile formdan gönderilen mail adlı inputun değerini cevir fonksiyonundan geçiriyor . Burada cevir fonksiyonunu gelen bilgiyi zararlı kodlardan temizlemek için kullanıyoruz. Fonksiyonu kendiniz yazabilirsiniz veya ben bir sonraki mesajta gönderirim ( veya cevir() kısmını silebilirsiniz .. Herneyse cevir 'den geçirdikten sonra mail değişkenine atıyor ve yukarda kurduğumuz fonksiyonu uyguluyor. Eğer fonksiyon tutmazsa yani mail geçersiz se 2 önceki tarihe (sayfaya) gidiyor. Eğer geldiği sayfaya gitmesini isterseniz o satırı silerek Request.ServerVariables("http_referer") adresine yönlendirme yapabilirsiniz ..

Kod: [Seç]

<%
mail=cevir(Request.Form("mail"))

If not EmailKontrol(mail) Then

Response.Write("<script>alert('Geçerli bir e-mail giriniz !..')</script>")
Response.Write("<script>location.href(history.back(2))</script>")
Response.End()

end if
%>
Makaleyi yazan: Yunus Emre EVKURAN / 1993 - Sakarya

Mümkün olduğunca açık anlatmaya çalıştım. Pek zamanım olmadığı için daha fazla şey anlatamıyacağım üzerinde yoğunlaştığım bir scriptim var .. Önümüzdeki makalelerimde önemli asp açıklarını kapatmayı yazmayı düşünüyorum Görüşürüz : )

[Yunus Emre]

Kod: [Seç]

<%
function cevir(data)
Data = Replace( data ,"'" , "", 1, -1,1)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"or","o_r",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"!","",1,-1,1)
data = Replace (data ,"#","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"And","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"Chr(34)","",1,-1,1)
data = Replace (data ,"Chr(39)","",1,-1,1)
data = Replace (data ,"select","",1,-1,1)
data = Replace (data ,"join","",1,-1,1)
data = Replace (data ,"union","",1,-1,1)
data = Replace (data ,"where","",1,-1,1)
data = Replace (data ,"insert","",1,-1,1)
data = Replace (data ,"delete","",1,-1,1)
data = Replace (data ,"update","",1,-1,1)
data = Replace (data ,"like","",1,-1,1)
data = Replace (data ,"drop","",1,-1,1)
data = Replace (data ,"create","",1,-1,1)
data = Replace (data ,"modify","",1,-1,1)
data = Replace (data ,"rename","",1,-1,1)
data = Replace (data ,"alter","",1,-1,1)
data = Replace (data ,"cast","",1,-1,1)
cevir=data
end function %>