Evet arkadaşlar hiç bir yerde geniş kapsamlı yoktu hep replace falan var ben siz kengi algoritmalarımıda vericem hep forumda soru soruduk birazda paylaşalım :D 1-)Replace ile sql ve form güvenliği; Şimdi replace fonksiyonumuzu yazayım : <% 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) Then 'Eğer bu karakterlerden biri varsa ban. asp adresine ynlendiriliyor Response. Redirect "Ban. asp" End IF suz=veri end function %> Bu fonksiyon daha uzatılabilirŞimdi bu fonksiyonu kullanmayı ğrenelim= Şimdi aşağıdaki kodlar replace edilmemiş olsun : <% formumuz = request. form >>> bu replace edilmemiş formumu id= Request. QueryString >>>Bu ise replace edilmemiş QueryString %> Şimdi fonksiyonumuzun kullanılmış hali yane güvenli: <% formumuz = suz(Request. form id = suz(Request. Querystring %> Replace ile süzmeyi anlatttım bu her yerde var 2-)IF Not IsNumeric yntemi ; <% ID = REQUEST. QUERYSTRING IF Not IsNumeric(REQUEST. QUERYSTRING THEN response. write "Lütfen Geçerli bir ID numarası girin." response. end END IF %> Bu yntem ile sadece id çeklen QUERYSTRING leri alabiliriz ama bunun daha daha güvenli hali için hem fonksiyon ile süzüp hemde bu yntemi kullanırsak çok iyi olur bür türlü pek işe yaramaz yane : <% ID = suz(REQUEST. QUERYSTRING IF Not IsNumeric(suz((REQUEST. QUERYSTRING THEN response. write "Lütfen Geçerli bir ID numarası girin." response. end END IF %> 3-)Siteye proxy ile girişi yasaklama : Siteye proxy ile girişi yasaklarsanız ip ban alanların girmesi engellemiş olursunuz hemde birazda olsa ddos saldırılarını nlemiş olursunuz <% gercekip = Request. serverVariables prliip = Request. ServerVariables IF Not gercekip = prliip Then response. redirect "ban. asp" Response. END END IF %> 4-)ddos flod koruma : Bu yntem bizzat ben geliştirdim işe yaramıyoda deil yana yarıyor <% 'Coded by arkinfes Dim suz(21) ' // saldırı yapabilecek 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" '//Bizim denyodan korunma suz(7) = "Nightmare" suz(8) = "Denyo" suz(9) = "HolyOne" suz(10) = "Tahribat" suz(11) = "Launch" suz(12) = "Denyo Launch" '//Antirus, syn gibi prorramlardan korun 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" ' Degiskenleri bildir Dim user_agent, host, document, referrer, cezaver ' Kullanicinin bilgilerini alma user_agent = Request. ServerVariables host = Request. ServerVariables document = Request. ServerVariables referrer = Request. ServerVariables ' Bilgileri 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 '// eşleşmeme durumunda ban. asp sayfasına yolluyoruzIf cezaver = 1 Then ' Sayfayi ynlendir... Response. Redirect "ban. asp" End If %> 5-)Html kodlarını süzme = <% Server. HTMLEncode(Request. form %> Ne zamandır yapayım diyordum paylaştım sonunda Arkın fescioğlu Do majr soylu ve açık szlü, Do minr patetik, Re majr parlak, Re minr melankolik, Mi bemol majr soylu ve patetik, aydinlik ama soylu ve karamsar tonmu lazim ozaman; mi majr, Mi minr doğanin ilk minr tonu olmasina karsin biraz melankoliktir, Fa majr karışıktır, Fa minr hepsinden patetiktir, Fa Diyez majr iste güçtür çünkü degiştirgeçlerle asiri yuklenmistir, Si majr parlak ve oyun bozannn :))

S. a. abi ben bi asp script kullanıyorum filmulkesi scripti oyle deniyorum yani acıgı cıkmıs nasıl kapatabilirim acemisiyimde bu işin sitenin sonuna Kategoridetay. asp?Kategori=YabanciFilm&katID=5%20union+select+all+0,1,2, kullaniciadi,4,5,6,7, parola,9,10,11+from+uyeler site sonuna bunu ekleyince uyelerin sifre ve kullanıcı adrlarını veriyor nasıl duzeltebilirim? Uzman

kopyala yapıştır gibi duruyor hacı biraz düzgün yapsaydın boşlukları :O ha?

: S. a. abi ben bi asp script kullanıyorum filmulkesi scripti oyle deniyorum yani acıgı cıkmıs nasıl kapatabilirim acemisiyimde bu işin sitenin sonuna Kategoridetay. asp?Kategori=YabanciFilm&katID=5%20union+select+all+0,1,2, kullaniciadi,4,5,6,7, parola,9,10,11+from+uyeler site sonuna bunu ekleyince uyelerin sifre ve kullanıcı adrlarını veriyor nasıl duzeltebilirim? is_numeric işine yarar sanıyorum. Onun dışında ' + , gibi kodları id de süzeceksin.

Hocam onu değiştirebiliyorsan değiştir. Belki birinin ihtiyacı olur ikisini birden kullanmak ister muvaffak olamaz acemi falan olur, hayın arkinfes demesin ardından. Dizi değişkenler işimizi kolaylaştırmak için varlar ama sen maşallah tek tek yazmışsın şylşe olsa daha iyi olmaz mı; ' Bilgileri kontrol et cezaver = 0 For i = 0 To UBound If InStr(user_agent, suz > -1 Then cezaver = 1 Next'// eşleşmeme durumunda ban. asp sayfasına yolluyoruzIf cezaver = 1 Then ' Sayfayi ynlendir... Response. Redirect "ban. asp" fazla uzaklaşmış olamaz...

Abi İs Numeric Falan Demissin de anlamıyorum id e gelince nereye koyucam? veya nasıl yapacam acemıyım biraz sana zahmet abi birazdaha ayrıntılı anlatırmısın? Uzman

: Hocam onu değiştirebiliyorsan değiştir. Belki birinin ihtiyacı olur ikisini birden kullanmak ister muvaffak olamaz acemi falan olur, hayın arkinfes demesin ardından. Dizi değişkenler işimizi kolaylaştırmak için varlar ama sen maşallah tek tek yazmışsın şylşe olsa daha iyi olmaz mı; ' Bilgileri kontrol et cezaver = 0 For i = 0 To UBound If InStr(user_agent, suz > -1 Then cezaver = 1 Next'// eşleşmeme durumunda ban. asp sayfasına yolluyoruzIf cezaver = 1 Then ' Sayfayi ynlendir... Response. Redirect "ban. asp" evet aslında bak o aklıma hiç gelmedi :D Do majr soylu ve açık szlü, Do minr patetik, Re majr parlak, Re minr melankolik, Mi bemol majr soylu ve patetik, aydinlik ama soylu ve karamsar tonmu lazim ozaman; mi majr, Mi minr doğanin ilk minr tonu olmasina karsin biraz melankoliktir, Fa majr karışıktır, Fa minr hepsinden patetiktir, Fa Diyez majr iste güçtür çünkü degiştirgeçlerle asiri yuklenmistir, Si majr parlak ve oyun bozannn :))

: Fonksiyona da dizi değişkene de suz adını verince saçmalamıyor mu o script? hayır ben şimdi rnek vermek amacıyla yazdım şimdi ikisinede normalde ayrı ad veriyorum Do majr soylu ve açık szlü, Do minr patetik, Re majr parlak, Re minr melankolik, Mi bemol majr soylu ve patetik, aydinlik ama soylu ve karamsar tonmu lazim ozaman; mi majr, Mi minr doğanin ilk minr tonu olmasina karsin biraz melankoliktir, Fa majr karışıktır, Fa minr hepsinden patetiktir, Fa Diyez majr iste güçtür çünkü degiştirgeçlerle asiri yuklenmistir, Si majr parlak ve oyun bozannn :))

: sanki kopyala yapıştır gibi duruyor hacı biraz düzgün yapsaydın boşlukları :O hayır algoritma derken hepsi deil 4 zellik aklıma gelip yapmıstım bu arada bide zengin metin editorunde yapmıştım kodların hepsini tabloların içine koyup tabloları renklendirip yapmıstım tablolar çıkmamış? Do majr soylu ve açık szlü, Do minr patetik, Re majr parlak, Re minr melankolik, Mi bemol majr soylu ve patetik, aydinlik ama soylu ve karamsar tonmu lazim ozaman; mi majr, Mi minr doğanin ilk minr tonu olmasina karsin biraz melankoliktir, Fa majr karışıktır, Fa minr hepsinden patetiktir, Fa Diyez majr iste güçtür çünkü degiştirgeçlerle asiri yuklenmistir, Si majr parlak ve oyun bozannn :))

Fonksiyona da dizi değişkene de suz adını verince saçmalamıyor mu o script? fazla uzaklaşmış olamaz...

şimdi bunlar algoritma ve sana ait yle mi? hmm... screw you guys! i"m goin" hoooome!