HTML-innehåll, säkra PHP funktion
Lördag 28 mars 2009 02:43Html ingång för s-rengöring funktion, men i stort sett testet etmedım gozukuor
copyright: http://www.ysfkc.com/dosyalar/guvenliHtml.phps
guvenliHtml funktion ($ text) (
global $ start;
$ KonumK = 0; # <(var nedan) har vi sett, den slutliga positionen för det tecken
$ KonumB = 0; #> (Buyuktur) har vi sett, den slutliga positionen för det tecken
$ Tag_mi = false; # tagg inom dig?
$ OzellikSablon = "# egendom = värde som skall användas för globala samtal formatindaki
$ TagTablosu = array (); # taggen information, byta globala alacagi
$ OzellikTablosu = array (); # funktionen (attribut) uppgifter om platsen för den globala alacagi
$ DegerTablosu = array (); # värde (värde), en global information utrymme alacagi
# Globala variabler som till värden
guvenliGlobal ();
# Textbehandling den rättelse processen görs innan
$ Text = onDuzeltme ($ text);
$ I = 0;
$ Buffert = ";
$ KonumK = strpos ($ text, '<', $ i); # <tecken i den första positionen rastlandigi
$ KonumB = strpos ($ text, '>', $ i); #> karaktär i den första positionen rastlandigi
# Scan texten inom taggen för att
medan (sant) (
# Om <tecknet före rastlandiysa
# Eller <characters var found, but> karaktär bulunamadiysa
if (($ konumK! == false & & $ konumK <$ konumB) | | ($ konumK! == false & & $ konumB === false)) (
# Tag icerisindeysek
if ($ tag_mi) (
# Tag in <olamayacagi för taggen del sandigimiz
# Basindaki <tecken <till miljöredovisningen
$ Buffert .= "<". substr ($ text, $ i, $ konumK - $ i);
Om du inte är inom # tagg
Else ()
#
$ Buffert .= substr ($ text, $ i, $ konumK - $ i);
)
$ I = $ konumK + 1;
$ KonumK = strpos ($ text, '<', $ i);
# Starttagg
$ Tag_mi = true;
# Om> karaktär före rastlandiysa
# Eller> karaktär, men han <karaktär bulunamadiysa
) Elseif (($ konumB! == False & & $ konumK> $ konumB) | | ($ konumK === false & & $ konumB! == False)) (
# Tag icerisindeysek
if ($ tag_mi) (
# Smoothed Lägg till tagg
$ Buffert .= guvenliTag (substr ($ text, $ i, $ konumB - $ i));
# Stäng tagg
$ Tag_mi = false;
Om du inte är inom # tagg
Else ()
Kodar få del # här
# Och> tecken> till miljöredovisningen
$ Buffert .= substr ($ text, $ i, $ konumB - $ i). '>';
)
$ I = $ konumB 1;
$ KonumB = strpos ($ text, '>', $ i);
# Om kyla> karaktär rastlanmadiysa
Else ()
# Tag icerisindeysek
if ($ tag_mi) (
# Slut på gemensamma <tecken <till miljöredovisningen
# Och lägga till text fortsätta bufferten
$ Buffert .= "<". substr ($ text, $ i);
Else ()
Sedan slutet av texten att fortsätta överenskomna ståndpunkt # lägga till buffert
$ Buffert .= substr ($ text, $ i);
)
# Tag nu enligt kalmadigina Dong et
break;
)
)
return $ buffert;
)
# ------------------------------------------------- -------------------------------------------------
onDuzeltme funktion ($ text) (
$ DegisiklikOncesi ='';
# Bör ändras så länge som jag håller mycket
while ($ degisiklikOncesi! = $ text) (
$ DegisiklikOncesi = $ text;
# & # Xx-format, är några tecken skrivna i ASCII karsiliklarina cevriliyor
# Och innehållet i några taggarna får atiliyor
$ Text = preg_replace ('/ / Ta bort ",", $ text);
$ Text = preg_replace ('/
$ Text = preg_replace ('/








































