Tahribat.com Forumları
Asp - Php - Cgi - Perl
ASP"De Kötü Karakter Temizleme Foksiyonu Buyrun

Yazar Abizittin (1) BuZuL (1) eagleofcondor (1) EmQceR (2) Fikret (2) FOXXLY (3) j4x (1) kartalkethuda (2) NmC (1) ontedi (1) pesimistzombie (2) undefined-01 (1) Gösterim 10 50 75 100
Ağ ve Veri Güvenliği     Hertürlü Web tabanlı Saldırı Taktik ve Stratejileri     Web sitesi Güvenliği, DOS - DDOS Saldırıları...     Bilgisayar Güvenliği - Backdoorlar     Virüs - Trojan - Keylogger - BotNet     Skype - Mirc - Irc - Icq - Mail Güvenliği     Bilişim Güvenliği     Hesaplar / Üyelikler     Domain - Hosting - Reseller - Dedicated Server - Virtual Server - IRC Shell - Seedbox     İnternet Güvenliğine Giriş Programlama     C#, Asp.Net, .Net Core     C - C++     Delphi - Pascal     Visual Basic - Basic - PicBasic ve Türevleri     Java     Android - IOS Programlama     Mobil Programlama     Asp - Php - Cgi - Perl     Assembly - Reverse Engineering     Html - CSS - XML - JavaScript - Ajax     Database - Veritabanı     Python     Grafik - Animasyon - Flash - 3D Modelleme     Webmaster ve Yazılım Geliştiriciler     Google / Yandex / Bing ve Servisleri     Programlama Genel     Programlamaya Giriş Bilgisayar ve Teknoloji     Microsoft Windows Ailesi İşletim Sistemleri     Yapay Zeka     Linux ve Diğer İşletim Sistemleri     Donanım & Driver     Network - İnternet     Elektronik / Embedded / Mobil Cihazlar     Kriptoparalar & Blockchain     Fotografçılık ve Digital Fotograf Makineleri - Video Kameralar     Cep Telefonları, Gsm Operatörleri ve Mobil İnternet     Oyunlar     Yazılımlar / Diğer Programlar     Bilgisayarla İlgili Diğer Konular İnternet     Download / Dosya Paylaşım     Bilgisayar ve Internet Teknolojileri İle İlgili Video / Resim / Flash Paylaşım     İnternet Siteleri     Sosyal Ağlar Genel     Genel     Gündem - Güncel Konular     Derin Konular     Bilim Teknik Teknoloji     Müzik & Sinema & Tiyatro & Kitap & Televizyon & Seminerler & Edebiyat     Eğitim & Ödev & Bilimsel Döküman     E-Book     İş - Güç, E-Ticaret, Alışveriş     Hukuk & Muhasebe & Sigorta Soru - Cevap     Ulaşım Araçları ve Seyahat     Vukuatlar     Geyik & Teknoloji İle İlgili Olmayan Video / Resim / Flash Paylaşım Tahribat.com Konuları     Tahribat.com Programları®     Tahribat.Com - Açık Kapılar Önünde     Tahribat.Com - Sosyal Etkinlikler     TahriDepo

ASP"De Kötü Karakter Temizleme Foksiyonu Buyrun

1. 08/Haz/09 02:30 Kısayol Şikayet Özel Mesaj
   eagleofcondor
   
   

   Kayıt Tarihi: 13/Haziran/2007
   

   Evet Arkadaşlar Replace Foksiyonunu Kısaca Anlatayım

   Bizim default.asp sayfamız olsun bu sayfa'da form olsun

    

   -------------Default.asp-----------------------------------------------

   <form action="isle.asp" method="post">

   Adi : <input name="adi" type="text"><br>

   Notu : <input name="notu" type="textarea"><br>

   <input name="Submit" type="submit" value="Gönder Aşkım">

   </form>

   ------------------------------------------------------------------------------

   -------------------------İsle.asp-----------------------------------------

    

   <%

   adi=request.form("adi")

   notu=request.form("notu")

   
   security(Trim(request.form("adi")))
   security(Trim(request.form("notu")))
   %>
   <%

   Function security(Filtre )

   security = Filtre
   security = Replace(security, "sex","SEX YAPAYINIZ")
   security = Replace(security, "<", "<" )
   security = Replace(security, ">", ">" )
   security = Replace(security, "^", "-" )
   security = Replace(security, vbcrlf, "<br>" )
   security = Replace(security, "script", "script", 1, -1, 0 )
   security = Replace(security, "SCRIPT", "SCRIPT", 1, -1, 0 )
   security = Replace(security, "Script", "Script", 1, -1, 0 )
   security = Replace(security, "script", "Script", 1, -1, 1 )
   security = Replace(security, "object", "object", 1, -1, 0 )
   security = Replace(security, "OBJECT", "OBJECT", 1, -1, 0 )
   security = Replace(security, "Object", "Object", 1, -1, 0 )
   security = Replace(security, "object", "Object", 1, -1, 1 )
   security = Replace(security, "applet", "applet", 1, -1, 0 )
   security = Replace(security, "APPLET", "APPLET", 1, -1, 0 )
   security = Replace(security, "Applet", "Applet", 1, -1, 0 )
   security = Replace(security, "applet", "Applet", 1, -1, 1 )
   security = Replace(security, "embed", "embed", 1, -1, 0 )
   security = Replace(security, "EMBED", "EMBED", 1, -1, 0 )
   security = Replace(security, "Embed", "Embed", 1, -1, 0 )
   security = Replace(security, "embed", "Embed", 1, -1, 1 )
   security = Replace(security, "event", "event", 1, -1, 0 )
   security = Replace(security, "EVENT", "EVENT", 1, -1, 0 )
   security = Replace(security, "Event", "Event", 1, -1, 0 )
   security = Replace(security, "event", "Event", 1, -1, 1 )
   security = Replace(security, "document", "document", 1, -1, 0 )
   security = Replace(security, "DOCUMENT", "DOCUMENT", 1, -1, 0 )
   security = Replace(security, "Document", "Document", 1, -1, 0 )
   security = Replace(security, "document", "Document", 1, -1, 1 )
   security = Replace(security, "cookie", "cookie", 1, -1, 0 )
   security = Replace(security, "COOKIE", "COOKIE", 1, -1, 0 )
   security = Replace(security, "Cookie", "Cookie", 1, -1, 0 )
   security = Replace(security, "cookie", "Cookie", 1, -1, 1 )
   security = Replace(security, "form", "form", 1, -1, 0 )
   security = Replace(security, "FORM", "FORM", 1, -1, 0 )
   security = Replace(security, "Form", "Form", 1, -1, 0 )
   security = Replace(security, "form", "Form", 1, -1, 1 )
   security = Replace(security, "on", "on", 1, -1, 0 )
   security = Replace(security, "ON", "ON", 1, -1, 0 )
   security = Replace(security, "On", "On", 1, -1, 0 )
   security = Replace(security, "on", "on", 1, -1, 1 )
   security = Replace(security, "or", "or", 1, -1, 0 )
   security = Replace(security, "OR", "OR", 1, -1, 0 )
   security = Replace(security, "Or", "Or", 1, -1, 0 )
   security = Replace(security, "or", "or", 1, -1, 1 )
   security = Replace(security, "document.cookie", "Document.cookie", 1, -1, 1 )
   security = Replace(security, "javascript:", "javascript ", 1, -1, 1 )
   security = Replace(security, "vbscript:", "vbscript ", 1, -1, 1 )
   security = Replace(security, "SELECT", "Select ", 1, -1, 1 )
   security = Replace(security, "DROP", "Drop ", 1, -1, 1 )
   security = Replace(security, ";", "; ", 1, -1, 1 )
   security = Replace(security, "--", "-- ", 1, -1, 1 )
   security = Replace(security, "INSERT", "Insert ", 1, -1, 1 )
   security = Replace(security, "DELETE", "Delete ", 1, -1, 1 )
   security = Replace(security, "xp_", "xp_ ", 1, -1, 1 )
   security = Replace(security, "UNION", "Union ", 1, -1, 1 )
   security = Replace(security, "'", "`" )
   End Function
   %>

   <%=security(adi)%>
   <%=security(notu)%>

    

    

   ----------------------------------------------------------------------------------------------------

    

   Yukarıda Gözünüze Çarpmıştır . Özellikle ekledim security = Replace(security, "sex","SEX YAPAYINIZ")

   formdan gelen sex cümleciği bize güvenlik fitresinden geçerek SEX YAPMAYINIZ kelimelerini yazdıyor.

   bu fonksiyon çok işe yarar hem küfür koruması olur hemde veritabanına kayıt yaparken meta kodlarından koruruz. sql açıklarına karşı koruruz kısacası biraz daha geliştirilebilir .

    

    

   Müridlerim benim

   Alıntı yap
2. 08/Haz/09 03:10 Kısayol Şikayet Özel Mesaj
   BuZuL
   
   

   Kayıt Tarihi: 09/Eylül/2005
   

   müritlerim benim :D

   ---

   DAĞDA ÜÇ BEŞ KOYUN SÜRÜSÜ, TUTTURMUŞ BİR KÜRDİSTAN TÜRKÜSÜ, ELİNE ALMIŞ BAYRAK DİYE BİR MASA ÖRTÜSÜ, SATSAN BEŞ PARA ETMEZ NE DİRİSİ NE DE ÖLÜSÜ, SOYU SOYSUZ OLAN SENSİN TOPRAK SENİN NEYİNE, İTE İTLİK YAPIP KAFA TUTMA BEYİNE, ANLASA DEDİĞİMİ SOKAKTAKİ KÖPEK AĞLAR HALİNE, DUY ULAN SOYSUZ NE MUTLU TÜRKÜM DİYENE.......
   Alıntı yap
3. 08/Haz/09 03:20 Kısayol Şikayet Özel Mesaj
   Hunter
   j4x
   
   

   Kayıt Tarihi: 16/Temmuz/2005
   

   php rulz, htmlspecialchars() tek komutta çoğu işi yapior maşallah.

   ---

   The king is bleeding.
   Alıntı yap
4. 08/Haz/09 03:23 Kısayol Şikayet Özel Mesaj
   pesimistzombie
   
   

   Kayıt Tarihi: 14/Haziran/2006
   

   çalışmaz bu replaceler tıpkısının aynısı sadece 2 3 replace iş görür.. ayrıca çok fazla birbirinin aynısı replace var gereksiz.

   Function tmz(temizle)
   temizle=Replace(temizle,Chr(10),"" ,1,-1,1)
   temizle=Replace(temizle,Chr(34),"" ,1,-1,1)
   temizle=Replace(temizle,Chr(39),"´" ,1,-1,1)
   temizle=Replace(temizle,Chr(13),"" ,1,-1,1)
   temizle=Replace(temizle,"'","´" ,1,-1,1)
   temizle=Replace(temizle,"&#039;","´")

   
   'temizle=Server.HtmlEncode(temizle)

   temizle=Replace(temizle,"select","< span>select</ span>", 1, -1, 1)
   temizle=Replace(temizle,"INFORMATION","< span>information</ span>", 1, -1, 1)
   temizle=Replace(temizle,"TABLE","< span>table</ span>", 1, -1, 1)
   temizle=Replace(temizle,"union","< span>union</ span>", 1, -1, 1)
   temizle=Replace(temizle,"update","< span>update</ span>", 1, -1, 1)
   temizle=Replace(temizle,"create","< span>create</ span>", 1, -1, 1)
   temizle=Replace(temizle,"modify","< span>modify</ span>", 1, -1, 1)
   temizle=Replace(temizle,"rename","< span>rename</ span>", 1, -1, 1)
   temizle=Replace(temizle,"alter","< span>alter</ span>", 1, -1, 1)
   temizle=Replace(temizle,"join","< span>join</ span>", 1, -1, 1)
   temizle=Replace(temizle,"WHERE","< span>where</ span>", 1, -1, 1)
   temizle=Replace(temizle,"char","< span>char</ span>", 1, -1, 1)
   temizle=Replace(temizle,"script","< span>script</ span>", 1, -1, 1)
   tmz=trim(temizle)
   End Function

   
   adi=tmz(request.form("adi"))
   notu=tmz(request.form("notu"))
   
   
   işte bu çalışır. 

   asp de rulz Server.HtmlEncode() her türlü html içeriği encode eder index vırt zırt yemezsiniz. tek komutta yapar :W

   ---

   :|
   Alıntı yap
5. 08/Haz/09 03:34 Kısayol Şikayet Özel Mesaj
   eagleofcondor
   
   

   Kayıt Tarihi: 13/Haziran/2007
   

   pesimistzombie bunu yazdı:
   -----------------------------
   

   çalışmaz bu replaceler tıpkısının aynısı sadece 2 3 replace iş görür.. ayrıca çok fazla birbirinin aynısı replace var gereksiz.

   Function tmz(temizle)
   temizle=Replace(temizle,Chr(10),"" ,1,-1,1)
   temizle=Replace(temizle,Chr(34),"" ,1,-1,1)
   temizle=Replace(temizle,Chr(39),"´" ,1,-1,1)
   temizle=Replace(temizle,Chr(13),"" ,1,-1,1)
   temizle=Replace(temizle,"'","´" ,1,-1,1)
   temizle=Replace(temizle,"'","´")

   
   'temizle=Server.HtmlEncode(temizle)

   temizle=Replace(temizle,"select","< span>select", 1, -1, 1)
   temizle=Replace(temizle,"INFORMATION","< span>information", 1, -1, 1)
   temizle=Replace(temizle,"TABLE","< span>table", 1, -1, 1)
   temizle=Replace(temizle,"union","< span>union", 1, -1, 1)
   temizle=Replace(temizle,"update","< span>update", 1, -1, 1)
   temizle=Replace(temizle,"create","< span>create", 1, -1, 1)
   temizle=Replace(temizle,"modify","< span>modify", 1, -1, 1)
   temizle=Replace(temizle,"rename","< span>rename", 1, -1, 1)
   temizle=Replace(temizle,"alter","< span>alter", 1, -1, 1)
   temizle=Replace(temizle,"join","< span>join", 1, -1, 1)
   temizle=Replace(temizle,"WHERE","< span>where", 1, -1, 1)
   temizle=Replace(temizle,"char","< span>char", 1, -1, 1)
   temizle=Replace(temizle,"script","< span>script", 1, -1, 1)
   tmz=trim(temizle)
   End Function

   
   adi=tmz(request.form("adi"))
   notu=tmz(request.form("notu"))
   
   
   işte bu çalışır. 

   asp de rulz Server.HtmlEncode() her türlü html içeriği encode eder index vırt zırt yemezsiniz. tek komutta yapar :W

   
   -----------------------------

   Elinde Asci Code Table Varmı kardeş

   Alıntı yap
6. 08/Haz/09 03:44 Kısayol Şikayet Özel Mesaj
   NmC
   
   

   Kayıt Tarihi: 23/Kasım/2008
   

   forza php :)

   $degisken = addslashes(htmlspecialchars($degisken));

   ---

   There are 10 types of people in the world. Those who knows binary and those who dont...
   Alıntı yap
7. 08/Haz/09 03:50 Kısayol Şikayet Özel Mesaj
   pesimistzombie
   
   

   Kayıt Tarihi: 14/Haziran/2006
   

   @aktas_967
   
   resim olarak 

   http://users.physik.fu-berlin.de/~goerz/blog/wp-content/uploads/2008/09/ascii.gif

   http://www.cdrummond.qc.ca/cegep/informat/Professeurs/Alain/images/ASCII1.GIF

   http://www.antrak.org.tr/gazete/062006/cizimler/tolga-tastan/ascii_table.jpg

    

   pdf olarak

   http://users.physik.fu-berlin.de/~goerz/blog/wp-content/uploads/2008/09/ascii.pdf 

   http://users.physik.fu-berlin.de/~goerz/blog/wp-content/uploads/2009/03/ascii_a4.pdf

   http://users.physik.fu-berlin.de/~goerz/blog/wp-content/uploads/2009/03/ascii_letter.pdf 

    

   ---

   :|
   Alıntı yap
8. 08/Haz/09 10:11 Kısayol Şikayet Özel Mesaj
   FOXXLY
   
   

   Kayıt Tarihi: 19/Haziran/2006
   

   benim kullandığım ripleys de bu

    

   
   Function PostKontrol(yazi)
   yazi = Replace(yazi, "<", "&lt;")
   yazi = Replace(yazi, ">", "&gt;")
   yazi = Replace(yazi, "script", "&#115;cript", 1, -1, 0)
   yazi = Replace(yazi, "SCRIPT", "&#083;CRIPT", 1, -1, 0)
   yazi = Replace(yazi, "Script", "&#083;cript", 1, -1, 0)
   yazi = Replace(yazi, "script", "&#083;cript", 1, -1, 1)
   yazi = Replace(yazi, "object", "&#111;bject", 1, -1, 0)
   yazi = Replace(yazi, "OBJECT", "&#079;BJECT", 1, -1, 0)
   yazi = Replace(yazi, "Object", "&#079;bject", 1, -1, 0)
   yazi = Replace(yazi, "object", "&#079;bject", 1, -1, 1)
   yazi = Replace(yazi, "applet", "&#097;pplet", 1, -1, 0)
   yazi = Replace(yazi, "APPLET", "&#065;PPLET", 1, -1, 0)
   yazi = Replace(yazi, "Applet", "&#065;pplet", 1, -1, 0)
   yazi = Replace(yazi, "applet", "&#065;pplet", 1, -1, 1)
   yazi = Replace(yazi, "embed", "&#101;mbed", 1, -1, 0)
   yazi = Replace(yazi, "EMBED", "&#069;MBED", 1, -1, 0)
   yazi = Replace(yazi, "Embed", "&#069;mbed", 1, -1, 0)
   yazi = Replace(yazi, "embed", "&#069;mbed", 1, -1, 1)
   yazi = Replace(yazi, "event", "&#101;vent", 1, -1, 0)
   yazi = Replace(yazi, "EVENT", "&#069;VENT", 1, -1, 0)
   yazi = Replace(yazi, "Event", "&#069;vent", 1, -1, 0)
   yazi = Replace(yazi, "event", "&#069;vent", 1, -1, 1)
   yazi = Replace(yazi, "document", "&#100;ocument", 1, -1, 0)
   yazi = Replace(yazi, "DOCUMENT", "&#068;OCUMENT", 1, -1, 0)
   yazi = Replace(yazi, "Document", "&#068;ocument", 1, -1, 0)
   yazi = Replace(yazi, "document", "&#068;ocument", 1, -1, 1)
   yazi = Replace(yazi, "cookie", "&#099;ookie", 1, -1, 0)
   yazi = Replace(yazi, "COOKIE", "&#067;OOKIE", 1, -1, 0)
   yazi = Replace(yazi, "Cookie", "&#067;ookie", 1, -1, 0)
   yazi = Replace(yazi, "cookie", "&#067;ookie", 1, -1, 1)
   yazi = Replace(yazi, "document.cookie", "&#068;ocument.cookie", 1, -1, 1)
   yazi = Replace(yazi, "javascript:", "javascript ", 1, -1, 1)
   yazi = Replace(yazi, "vbscript:", "vbscript ", 1, -1, 1)
   yazi = Replace(yazi, "'", "&#39;")
   yazi = Replace(yazi, chr(34), "&#34;")
   yazi = Replace(yazi, chr(9),"&#9;")
   yazi = Replace(yazi, "  ","&nbsp;&nbsp;")
   yazi = Replace(yazi, Chr(13),"<br>")
   PostKontrol = yazi
   End Function

    

    

   daha uzundu da slidim bi kısmını bokunu çıkarmıştım. 

   ---

   kelimeler albayım bazı anlamlara gelmiyor.
   Alıntı yap
9. 08/Haz/09 10:23 Kısayol Şikayet Özel Mesaj
   EmQceR
   
   

   Kayıt Tarihi: 14/Kasım/2007
   

   off of replace'lere bak hepsini aldım sağolun
   
   Bide şunun tr karakter problemini çözen bi replace'i koyarsanız on numara olur.

   ---

   ...
   Alıntı yap
10. 08/Haz/09 12:07 Kısayol Şikayet Özel Mesaj
    FOXXLY
    
    

    Kayıt Tarihi: 19/Haziran/2006
    

    emrah, al sana tr karakter sorunu için replace :) mysql, access tüm dblerde bunu kullanıyorum tr karakter sorunu asla yaşamazsın ;)

     

    
    Function trkarakter(heyy_gery)
    heyy_gery = Replace(heyy_gery,"""", "")
    heyy_gery = Replace(heyy_gery,chr(221),"&#304;")
    heyy_gery = Replace(heyy_gery,chr(222),"&#350;")
    heyy_gery = Replace(heyy_gery,chr(220),"&Uuml;")
    heyy_gery = Replace(heyy_gery,chr(253),"&#305;")
    heyy_gery = Replace(heyy_gery,chr(214),"&Ouml;")
    heyy_gery = Replace(heyy_gery,chr(199),"&Ccedil;")
    heyy_gery = Replace(heyy_gery,chr(208),"&#286;")
    heyy_gery = Replace(heyy_gery,chr(240),"&#287;") 
    heyy_gery = Replace(heyy_gery,chr(254),"&#351;")
    heyy_gery = Replace(heyy_gery,chr(252),"&uuml;")
    heyy_gery = Replace(heyy_gery,chr(246),"&ouml;")
    heyy_gery = Replace(heyy_gery,chr(231),"&ccedil;")
    heyy_gery = Replace(heyy_gery,chr(40),"&#40;")
    heyy_gery = Replace(heyy_gery,chr(41),"&#41;")
    heyy_gery = Replace(heyy_gery,"'", "&#39;")
    trkarakter = heyy_gery
    End Function

    ---

    kelimeler albayım bazı anlamlara gelmiyor.
    Alıntı yap
11. 08/Haz/09 12:17 Kısayol Şikayet Özel Mesaj
    EmQceR
    
    

    Kayıt Tarihi: 14/Kasım/2007
    

    heyy_gery i gorunce aklıma geldi ben bunu tbt de yine sana vermıstım :D fatihin yaptıgıydı ama bendeki kayboldugu için bi turlu bulamamıstım saolasın cagatay ;)

    ---

    ...
    Alıntı yap

Cevapla