evet ya :d süzmeyi unutmuşm ama gerek te yoqmuş :S

d4 ün son versiyonunda o süzülecek şeyler yazmıo... antirus kullananda kalamadıgereksiz olmuş oralar... Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

veri = Replace (veri,"Chr(39)"," ",1,-1,1)suz=veri 'demeyi unutmuşsunend function sifre = request. form kul = request. form bunun yerinesifre = suz(request. form kul = suz(request. form olarak kullan. İçindeki gavur kodları temizle ondan sonra veritabanında sorgulat. Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

hoca saolasın birşeyler yapabilmek ve paylaşmak çok güzel birşeydir sağol tekrardan. Umudumu bu güne bağlamadım ki yarınım dan umutsuz olayım.

ben şle açık olamayan bi üyelik sistemi istiyorum ve kendi çağımda bişiler yazdım. proxy flood engeli(5 kere ardı ardına girince hata) güvenlik kodu sql injeksiyon için de bi kaç nlem var. ama hala içeme sinmeyen bazı noktalar var burda. rn. sql injeksiyonu tam olmadı gibime geldi aşağıda kodları verdim açık varsa kapatmak istiyorum şimdiden teşekkürler arkadaşlar. formun olduğu sayfa<%orjip = Request. serverVariables proxip = Request. ServerVariables IF orjip = proxip Then response. write "proxy ha :))"Response. endend ifsession =now if session ="" then session = 1 else session = session + 1 end ifRandomizes1 = Int(Rnd 99) +1s2 = Int(Rnd 9) +1s3 = Int(Rnd 9) +1s4 = Int(Rnd 9) +1%><form action="login. asp" method="post">Kullanıcı Adı : <input type="text" name="kul"><br>Şifre : <input type="text" name="sif"><br>G Kod : <input type="text" name="gkod" value="<%=s1%><%=s2%><%=s3%><%=s4%>"><br>G Kod : <input type="text" name="gkod2"><br><input type="submit" value="GİR"></form>giriş sayfası <%function suz veri = Replace (veri,"`"," ",1,-1,1)veri = Replace (veri,"="," ",1,-1,1)veri = Replace (veri,"&"," ",1,-1,1)veri = Replace (veri,"%"," ",1,-1,1)veri = Replace (veri,"!"," ",1,-1,1)veri = Replace (veri,"#"," ",1,-1,1)veri = Replace (veri,"<"," ",1,-1,1)veri = Replace (veri,">"," ",1,-1,1)veri = Replace (veri," "," ",1,-1,1)veri = Replace (veri,"/"," ",1,-1,1)veri = Replace (veri,"\"," ",1,-1,1)veri = Replace (veri,"And"," ",1,-1,1)veri = Replace (veri,"'"," ",1,-1,1)veri = Replace (veri,"Chr(34)"," ",1,-1,1)veri = Replace (veri,"Chr(39)"," ",1,-1,1)IF InStr(1, veri," ",1) ThenResponse. Redirect "Ban. asp"End IFsuz=veriend functionorjip = Request. serverVariables proxip = Request. ServerVariables IF orjip = proxip Then response. write "proxy ha :))"Response. endend ifdeger = datediff("s", session , now )If session > 5 AND DEGER < 60 thenResponse. write 60-deger & " sn. bekle." ElseSet Bag = Server. CreateObject bag. open "Provider=Microsoft. Jet. OLEDB.4.0;Data Source=" & Server. Mappath gkod = request. form gkod2 = request. form("gkod2")if gkod="" or gkod2="" thenresponse. write "mal g. kodlarını niye boş bırakıon"response. endend ifif not gkod=gkod2 thenresponse. write "ikile güvenlik kodu hatalı"response. endelsesifre = request. form kul = request. form if sifre="" or kul="" thenresponse. write "kul. adı yada şifre kısmı boş"response. endend ifSet rs = Server. CreateObject tablo = "Select From giris"rs. open tablo, bag,1,3Do Until rs. EofIF suz(ucase = ucase(rs Thenkul=TrueIF suz(ucase = ucase(rs Then sifre=Trueresponse. write "girdi"End IfEnd Ifrs. MoveNextloopIf kul <> True thenResponse. Write "hata :) kullanıcı adını sok bi tarafına"ElseIf sifre <> True thenResponse. Write "hata sifre hatalı "end Ifend ifend if%>ayrıca md5 yada base64 ile db'ye şifrelicem şifreleribide bi sitede grmüştüm botlardan korunma diye bişey vardı kodları aşağıda onu da eklim mi?Dim suz(21 ) '// PROGRAMLAR suz(0 ) = "Wget" suz(1 ) = "EmailSiphon" suz(2 ) = "WebZip" suz(3 ) = "MSProxy/2.0" suz(4 ) = "EmailWolf" suz(5 ) = "webbandit" suz(6 ) = "MS FrontPage" '//DENYO LAUNCH KORUMA SATIRLARI suz(7 ) = "Nightmare" suz(8 ) = "Denyo" suz(9 ) = "HolyOne" suz(10 ) = "Tahribat" suz(11 ) = "Launch" suz(12 ) = "Denyo Launch" '//ANTIRUS, DDOS, SYNDOS, NUKE KORUMA SATIRLARI suz(13 ) = "Antirus" suz(14 ) = "AventGrup" suz(15 ) = "Robot" suz(16 ) = "DDos" suz(17 ) = "Flood" suz(18 ) = "SYNDos" suz(19 ) = "VTJBomber" suz(20 ) = "Vai-Te Ja" suz(21 ) = "Packet Storm" Dim user_agent, host, document, referrer, cezaver user_agent = Request. ServerVariables host = Request. ServerVariables document = Request. ServerVariables referrer = Request. ServerVariables ' Kullanici bilgilerini kontrol et cezaver = 0 If InStr(user_agent, suz(0 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(1 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(2 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(3 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(4 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(5 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(6 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(7 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(8 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(9 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(10 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(11 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(12 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(13 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(14 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(15 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(16 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(17 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(18 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(19 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(20 ) ) > -1 Then cezaver = 1 If InStr(user_agent, suz(21 ) ) > -1 Then cezaver = 1 If cezaver = 1 Then 'islemEnd IfŞimdiden teşekkür ederim arkadaşlar.