O contido HTML, a función PHP seguro
Sábado, 28 de marzo do 2009 02:43Html entrada para a función é de limpeza, pero moi fermoso o ensaio gozukuor etmedım
copyright: http://www.ysfkc.com/dosyalar/guvenliHtml.phps
función guvenliHtml ($ texto) (
global $ recurso;
KonumK $ = 0; # <(estaban abaixo), xa vimos, a posición final do personaxe
KonumB $ = 0; #> (Buyuktur), vimos, a posición final do personaxe
$ Tag_mi = False; tag # dentro de ti?
OzellikSablon $ = "# propiedade = valor a ser usado para chamadas global formatindaki
$ TagTablosu = array (); información etiqueta #, substitúe alacagi global
$ OzellikTablosu = array (); función # atributo () información sobre a localización do alacagi global
$ DegerTablosu = array (); # valor (value), un espazo de información global alacagi
# As variables globais definidas para valores
guvenliGlobal ();
# Procesamento de Texto sobre o proceso de corrección faise antes
$ Texto = onDuzeltme ($ texto);
$ I = 0;
Buffer $ = ";
$ KonumK = strpos ($ texto, '<', $ i); # <carácter na primeira posición rastlandigi
$ KonumB = strpos ($ texto, '>', $ i); #> personaxe na primeira posición rastlandigi
# Lea o texto dentro da etiqueta
while (true) (
# Se o carácter <antes rastlandiysa
# Ou <characters foron found, but> carácter bulunamadiysa
if (($ konumK! == false & & $ konumK <$ konumB) | | ($ konumK! == false & & $ konumB === false)) (
# Icerisindeysek Tag
if ($ tag_mi) (
# Tag en olamayacagi <sandigimiz parte para a etiqueta
# Basindaki carácter <<á declaración ambiental
Buffer $ .= '<'. substr ($ texto, $ i, $ konumK - $ i);
Se vostede non está dentro da etiqueta #
Else ()
#
$ Buffer .= substr ($ texto, $ i, $ konumK - $ i);
)
konumK $ i = $ + 1;
$ KonumK = strpos ($ texto, '<', $ i);
# Iniciar tag
$ Tag_mi = True;
# Se o carácter> antes rastlandiysa
# Ou> personaxe, pero el <carácter bulunamadiysa
konumB) elseif (($ konumB! == false & & $ konumK> $ konumB) | | ($ konumK === false & & $! == false)) (
# Icerisindeysek Tag
if ($ tag_mi) (
# Smoothed Engadir tag
$ Buffer .= guvenliTag (substr ($ texto, $ i, $ konumB - $ i));
# Tag Pechar
$ Tag_mi = False;
Se vostede non está dentro da etiqueta #
Else ()
Kodar comezar a parte # aquí
# E>> caracteres da declaración ambiental
$ Buffer .= substr ($ texto, $ i, $ konumB - $ i). '>';
)
$ I = $ konumB 1;
$ KonumB = strpos ($ texto, '>', $ i);
# Se rastlanmadiysa <ou> carácter
Else ()
# Icerisindeysek Tag
if ($ tag_mi) (
# Fin do común <carácter <a declaración ambiental
# E engadir texto para continuar o buffer
Buffer $ .= '<'. substr ($ texto, $ i);
Else ()
Desde o final do texto para continuar a posición acordada # engadir buffer
$ Buffer .= substr ($ texto, $ i);
)
# Agora tag acordo kalmadigina Dong et
break;
)
)
buffer de retorno $;
)
# ------------------------------------------------- -------------------------------------------------
función onDuzeltme ($ texto) (
''$ DegisiklikOncesi =;
# Debe ser mudado mentres eu sigo a abundancia de
while ($ degisiklikOncesi! = $ texto) (
DegisiklikOncesi $ = $ texto;
& # XX formato, algúns caracteres están escritos en ASCII cevriliyor karsiliklarina
# E o contido de algunhas etiquetas permiten atiliyor
$ Texto = preg_replace ('/ / Borrar ',' texto $);
$ Texto = preg_replace ('/
$ Texto = preg_replace ('/








































