<?php echo $lang['logo_alt']; ?> HERA -

'.$lang['frm_url'].' '.URL.'

'; echo '
'."\n"; $File->fetch(URL, '', ''); $lines = preg_split("@[\n\r]{1}@", $File->results); echo "
    \n"; foreach ($lines as $num => $line) { echo "
  1.  ".htmlspecialchars($line)."
  2. \n"; } echo "
\n
\n"; } else { // Revisar algo function Add($este_tag, $mode=3, $res=DUDA, $txt='', $code=0, $in=0) { global $tag, $lang; if (($mode==1) || ($mode==4)) { $tag = $res.$este_tag; } else if (($mode==2) || ($mode==5)) { $tag = $este_tag.'[[[/span]]]'; } else { $tag = $res.$este_tag.'[[[/span]]]'; } } // Fin función Add if (!$File->fetch(URL, '', 'arry')) { exit(ucfirst($lang['file_error'])); } $icoa = '[[[img src=¶'.WEBSITE.'img/'; $icob = ' class=¶ico¶ /]]] '; define("BIEN", $icoa.'bien.gif¶ alt=¶'.ucfirst($lang['result_pass']).'¶'.$icob."[[[span class=¶bien¶]]]"); define("MAL", $icoa.'mal.gif¶ alt=¶'.ucfirst($lang['result_fail']).'¶'.$icob."[[[span class=¶mal¶]]]"); define("DUDA", $icoa.'duda.gif¶ alt=¶'.ucfirst($lang['result_notTested']).'¶'.$icob."[[[span class=¶duda¶]]]"); define("DUDABIS", $icoa.'duda.gif¶ alt=¶'.ucfirst($lang['result_notTested']).'¶'.$icob."[[[span class=¶dudabis¶]]]"); echo sprintf($lang['view_rev_que'], $elem[QUE]); echo '

'.$lang['frm_url'].' '.URL.'

'; echo '

'; echo ''.$lang['dd_alt_page'].''; echo $view[QUE].'

'; echo '
'."\n"; $body = 0; foreach ($tags as $key => $tag) { preg_match("@<([\/\?\!]*[\w]+)@i", $tag, $el); $elemen = strtolower($el[1]); if (preg_match("@]*>@i",$tag)) {$body = 1;} if ($elemen != 'a') { $cierre_a = 0; } Modificar(); if ($tag{1} != '/') { echo "
\n"; } $tag = htmlspecialchars($tag); $tag = str_replace("[[[", "<", $tag); $tag = str_replace("]]]", ">", $tag); $tag = str_replace("¶", '"', $tag); if (ereg("<",$tag)) { echo $tag; } else { echo ''.$tag.''; } switch ($elemen) { case '/a': $enl = preg_replace('@ @','',$contents[$key]); if (trim($enl) == '') { $cierre_a = 1; } echo $contents[$key]; break; case 'script': case 'style': $conten = ereg_replace("\n","
", $contents[$key]); echo $conten; break; default: echo $contents[$key]; break; } // Fin switch } // Fin de FOR echo "\n
\n"; echo ''."\n"; echo "\n\n"; } // Fin If code/QUE } else if (OPTION == 'page') { function Add($este_tag,$mode=3,$res=DUDA,$txt='',$code=0,$in=0) { global $tag; if ($code == 0) { switch ($mode) { case 1: if ($in == 0) { $tag = $res.$txt.$este_tag; } else { $tag = $este_tag.$res.$txt; } break; case 2: if ($in == 0) { $tag = $este_tag.''; } else { $tag = ''.$este_tag; } break; case 3: $tag = $res.$txt.$este_tag.''; break; case 4: $tag = $res.htmlspecialchars($este_tag).'
'; break; case 5: $tag = '
'.htmlspecialchars($este_tag).''; break; case 6: $tag = $res.htmlspecialchars($este_tag).''; break; case 7: $tag = $res.$txt.''.$este_tag; break; } // Fin switch } // Fin if } // Fin function $quitar_estilos = $_REQUEST['sincss']; if (!$File->fetch(URL, '', 'arry')) { exit(ucfirst($lang['file_error'])); } $basex = ''; $hojaestilo = ''; $icocss = ''.$lang['dd_alt_code'].' '; if ($quitar_estilos == 1) { $icocss .= ''.$lang['view_alt_concss'].''; } else { $icocss .= ''.$lang['view_alt_sincss'].''; } $icoa = ' '; define("BIEN", '
'.$icoa.'bien.gif" alt="'.ucfirst($lang['result_pass']).'"'.$icob); define("MAL", '
'.$icoa.'mal.gif" alt="'.ucfirst($lang['result_fail']).'"'.$icob); define("DUDA", '
'.$icoa.'duda.gif" alt="'.ucfirst($lang['result_notTested']).'"'.$icob); define("DUDABIS", '
'.$icoa.'duda.gif" alt="'.ucfirst($lang['result_notTested']).'"'.$icob); $body = 0; $frameset = 0; $heradiv = '
'.$icocss.' '.$view[QUE]."\n
"; $herahead = ''; $hojaestilohera = ''."\n".''."\n".''."\n"; if (QUE != 131) { foreach ($tags as $key => $tag) { preg_match("@<([\/\?\!]*[\w]+)@i", $tag, $el); $elemen = strtolower($el[1]); if ($elemen == 'base') { $base_exist = 1; } if ($quitar_estilos == 1) { $tag = preg_replace("@style[\s]*=@i", "st=", $tag); } if ($elemen != 'a') { $cierre_a = 0; } Modificar(); switch ($elemen) { case '?xml': if (stristr($tag,"utf-8")) { $utf = 1; } echo "\n".$tag; break; case '/a': $enl = preg_replace('@ @','',$contents[$key]); if (trim($enl) == '') { $cierre_a = 1; } echo "\n".$tag; break; case 'base': echo "\n".$tag; if (!stristr($tag,"href=")) { echo "\n".$basex; } break; case 'head': echo "\n".$tag; if ($base_exist == 0) { echo "\n".$basex; $base_exist = 1; } break; case '/head': if ($hojaestilo != '') { echo "\n"; } echo "\n".$hojaestilohera."\n".$tag; break; case 'body': $body = 1; if ($frameset == 0) { if ($base_exist == 0) { echo "\n".$basex; } if ($utf == 1) { $herahead = utf8_encode($herahead); } echo "\n".$tag."\n"; echo ''."\n"; if ($herahead != '') { echo $herahead.'
'; } } break; case '/body': if ($frameset == 0) { if ($utf == 1) { $heradiv = utf8_encode($heradiv); } echo "\n".$heradiv; echo "\n".$tag; $final = 1; } break; case '/html': if ($final != 1) { if ($utf == 1) { $heradiv = utf8_encode($heradiv); } echo "\n".$heradiv."\n".$tag; $final = 1; } else { echo "\n".$tag; } break; case 'style': if ($quitar_estilos == 1) { echo ''; $contents[$key] = ''; } else { echo $tag; $contents[$key] = html_entity_decode($contents[$key], ENT_QUOTES); } break; case 'link': if ($quitar_estilos == 1) { echo ''; } else { echo "\n".$tag; } break; case 'meta': if (stristr($tag,"utf-8")) { $utf = 1; } if (preg_match("@http-equiv=[\"\']?refresh@i",$tag)) { echo "\n"; } else { echo "\n".$tag; } break; case 'frameset': case '/frameset': echo ''; $frameset = 1; break; case 'frame': if (stristr($tag,"
'.htmlspecialchars($tag).'
'; } break; case 'noframes': case 'noscript': case 'noembed': if (stristr($tag,"
('.$elemen.')
'; } $contents[$key] = preg_replace('@<(\/)?body[^>]*>@i','',$contents[$key]); break; case '/noframes': case '/noscript': case '/noembed': if (stristr($tag,"
")) { echo $tag; } else { echo '
('.$elemen.')
'; } break; case 'script': echo "\n".$tag; $contents[$key] = html_entity_decode($contents[$key], ENT_QUOTES); break; case 'title': echo "\n".$tag; $contents[$key] = 'HERA - '.sprintf($lang['view_rev_que'], $elem[QUE]); if ($utf == 1) { $contents[$key] = utf8_encode($contents[$key]); } break; default: echo "\n".$tag; break; } // Fin switch echo $contents[$key]; } // Fin de foreach if ($final != 1) { if ($utf == 1) { $heradiv = utf8_encode($heradiv); } echo $heradiv; } } else { // Punto 13.1 ?> HERA: <?php echo sprintf($lang['view_rev_que'], $elem[QUE]); ?>
<?php echo $lang['dd_alt_code']; ?>

$tag) { preg_match("@<([\/\?\!]*[\w]+)@i", $tag, $el); $elemen = strtolower($el[1]); if ($elemen == 'a') { if (preg_match("@href=([\"\'])? (?(1) (.*?)\\1 | ([^\s\>]+))@ix",$tag,$temp)) { $enlace[$a] = Absolute_URL(URL_BASE,$temp[2]); if (preg_match("@title=([\"\'])? (?(1) (.*?)\\1 | ([^\s\>]+))@ix",$tag,$tit)) { $texto[$a] .= "(title="".$tit[2]."") "; } if (trim($contents[$key]) != '') { $texto[$a] .= ''.$contents[$key].' '; } $aabierto = 1; } } else if ($elemen == '/a') { if ($aabierto == 1) { $aabierto = 0; $a++; } } else { if ($aabierto == 1) { if (stristr($tag," alt=") || stristr($tag," title=")) { $texto[$a] .= ' <'.$elemen.' '; if (preg_match("@ alt=[\"\']?([^\"\'\>]*)@i",$tag,$alt)) { $texto[$a] .= 'alt="'.$alt[1].'" '; } if (preg_match("@ title=[\"\']?([^\"\'\>]*)@i",$tag,$tit)) { $texto[$a] .= 'title="'.$tit[1].'" '; } $texto[$a] .= '> '; } if (trim($contents[$key]) != '') { $texto[$a] .= ''.$contents[$key].' '; } } } } // Fin foreach natcasesort($texto); foreach ($texto as $k => $v) { if (trim($v) == '') { $dt = '
Incorrecto. '; $dd = '
'; } else if ($anterior == $v) { if ($refer != $enlace[$k]) { $dt = '
'.ucfirst($lang['result_fail']).' '; $dd = '
'; } else { $dt = '
'.ucfirst($lang['result_notTested']).' '; $dd = '
'; } } else { $dt = '
'; $dd = '
'; } echo $dt.$v."\n"; echo $dd.$enlace[$k]."
\n\n"; $anterior = $v; $refer = $enlace[$k]; } echo "
\n"; echo ''."\n"; echo "\n\n"; } // Fin 13.1 } // Fin If principal function Modificar() { global $tag, $puntos, $contents, $key, $body, $aabierto, $totales, $herahead, $h1, $h2, $h3, $h4, $h5, $h6, $hojaestilo, $cierre_a, $lang; if ($puntos[111] == 'bien') { $res_111 = BIEN; } else if ($puntos[111] == 'duda') { $res_111 = DUDA; } else { $res_111 = MAL; } switch (QUE) { case 1101: if (stristr($tag,"]*>@i", $tag)) { if (stristr($tag,"alt=")) { Add($tag,3,DUDA,htmlspecialchars($tag).'
'); } else { Add($tag,3,MAL,htmlspecialchars($tag).'
'); } } break; case 1103: if (stristr($tag,"'); } break; case 1104: if ($body == 1) { if (stristr($tag,"'); } if (stristr($tag,"'); } if (stristr($tag,"'); } if (stristr($tag,"'); } if (stristr($tag,"]+))@ix",$tag,$outa); if (QUE == 1109) { if (preg_match("@\.(aif|aifc|aiff|au|m3u|mid|mp3|ra|ram|rmi|snd|wav)$@i",$outa[2])) { Add($tag,1,DUDA,htmlspecialchars($tag).'
'); $aabierto = 1; } } else { if (preg_match("@\.(asf|asr|asx|avi|lsf|lsx|mov|movie|mp2|mpa|mpe|mpeg|mpg|mpv2|ppt|qt|swf)$@i",$outa[2])) { Add($tag,1,DUDA,htmlspecialchars($tag).'
'); $aabierto = 1; } } } else if (stristr($tag,"]+))@ix",$tag,$outa); if (QUE == 1109) { if (preg_match("@\.(aif|aifc|aiff|au|m3u|mid|mp3|ra|ram|rmi|snd|wav)$@i",$outa[2])) { Add($tag,6,DUDA); } } else { if (preg_match("@\.(asf|asr|asx|avi|lsf|lsx|mov|movie|mp2|mpa|mpe|mpeg|mpg|mpv2|ppt|qt|swf)$@i",$outa[2])) { Add($tag,6,DUDA); } } } if (preg_match("@]*>@i",$tag) && $aabierto == 1) { Add($tag,2); $aabierto = 0; } break; case 1111: case 6202: case 6502: if (stristr($tag," 0) { Add($tag,4,MAL); } else { Add($tag,4,DUDABIS); } } if (stristr($tag,"]*>@i", $tag)) { Add($tag,3,DUDA,$lang['view_ismap'].'
'.htmlspecialchars($tag).'
'); } break; case 1301: case 1401: case 8102: if (stristr($tag,"'); } if (stristr($tag,"]*>@i", $tag)) { Add($tag,3,DUDA,$lang['view_usemap'].'
'.htmlspecialchars($tag).'
'); } if (stristr($tag,"]+))@ix",$tag,$temp)) { $abso=Absolute_URL(URL_BASE,$temp[2]); if (in_array($abso,$totales['areas'])) { Add($tag,1,BIEN,htmlspecialchars($tag).'
'); $aabierto = 1; } } if (preg_match("@]*>@i",$tag) && $aabierto == 1) { Add($tag,2); $aabierto = 0; } break; case 22: if (stristr($tag,"]*>@i",$tag)) { Add($tag,3,DUDA,'',1); } else if (stristr($tag," style=")) { Add($tag,3,DUDA,'',1); } else if (stristr($tag," id=")) { Add($tag,3,DUDA,'',1); } else if (stristr($tag," class=")) { Add($tag,3,DUDA,'',1); } break; case 31: if (stristr($tag,"]*>@i",$tag)) { if ($herahead=='') { $herahead .= BIEN.' '.$lang['view_head_con']; } $herahead .= '
'.htmlspecialchars($tag); Add($tag,3,BIEN,'',1); } if (stristr($tag," style=")) { Add($tag,7,BIEN,htmlspecialchars($tag)); } if (stristr($tag,")+@i",$tag)) { Add($tag,7,MAL,htmlspecialchars($tag)); } if (stristr($tag,"]+@i",$tag)) { Add($tag,7,MAL,htmlspecialchars($tag)); } break; case 3402: if (preg_match("@<\w .*style=[\"\']?([^\"\'\>]*)@i",$tag,$st34)) { if (preg_match("@:(.*)[0-9]+(in|cm|mm|pt|pc)@i",$st34[1]) || preg_match("@font(-size)[\s]*:(.*)[0-9]+px@i",$st34[1])) { Add($tag,7,MAL,htmlspecialchars($tag)); } else { Add($tag,7,BIEN,htmlspecialchars($tag)); } } if (stristr($tag,"]*>@i",$tag)) { if ($totales['cssabs'] + $totales['cssfontpx'] > 1) { $r34 = MAL; } else { $r34 = DUDA; } if ($herahead=='') { $herahead .= $r34.' '.$lang['view_head_con'].'
'; //$herahead .= '
'.htmlspecialchars($tag); if (is_array($totales['css'])) { foreach ($totales['css'] as $c) { $herahead .= ''.$c.'
'; } } } Add($tag,3,$r34,'',1); } break; case 35: if (stristr($tag,"]*>@i",$tag)) {Add($tag,2);} break; case 36: if (preg_match("@<(dt|dd|li)\b[^>]*>@i",$tag)) { Add($tag,1,DUDA,htmlspecialchars($tag)); } if (preg_match("@<(ol|ul|dl)\b[^>]*>@i",$tag)) { Add($tag,1,DUDABIS,htmlspecialchars($tag)); } if (preg_match("@]*>@i",$tag)) {Add($tag,2);} break; case 37: if (preg_match("@<(q|blockquote)[^>]*@i",$tag)) { Add($tag,1,DUDA,htmlspecialchars($tag)); } if (preg_match("@]*@i",$tag)) {Add($tag,2);} break; case 41: if (preg_match("@<(meta|link) .*(lang|hreflang|charset|language)@i",$tag)) { if ($herahead=='') { $herahead .= BIEN.' '.$lang['view_head_con']; } $herahead .= '
'.htmlspecialchars($tag); Add($tag,3,BIEN,'',1); } if ($body == 1) { if (preg_match("@<.*(lang|hreflang|charset)=@i",$tag)) { Add($tag,7,BIEN,htmlspecialchars($tag)); } } break; case 42: if (preg_match("@<(abbr|acronym)[^>]*>@i",$tag)) { Add($tag,1,DUDA,htmlspecialchars($tag)); } if (preg_match("@]*>@i",$tag)) {Add($tag,2);} break; case 43: if (stristr($tag," 0) && (!$totales['lang_xml'])) { $r43 = MAL; } else if (($totales['lang_xml']) && ($totales['lang_xml'] != $totales['lang_pri'])) { $r43 = MAL; } else { $r43 = BIEN; } } else { $r43 = MAL; } if ($herahead=='') { $herahead .= $r43.' '.$lang['view_head_con']; } $herahead .= '
'.htmlspecialchars($tag); Add($tag,3,$r43,'',1); } break; case 51: case 54: if (stristr($tag,"]*>@i",$tag)) { Add($tag,1,DUDABIS,'<th>
',0,1); } if (stristr($tag,"
")) { Add($tag,2,DUDABIS,'',0,1); } $hojaestilo = "td { border: 2px solid #F0F !important; padding: 2px !important; }"; break; case 52: if (stristr($tag,"",0,1); } else if (preg_match("@<(td|th)\b[^>]*>@i",$tag)) { Add($tag,1,DUDA,htmlspecialchars($tag)."
",0,1); } if (preg_match("@]*>@i",$tag)) { Add($tag,2,DUDA,'',0,1); } break; case 53: if (OPTION == 'page') { if (preg_match("@<(\/)?(table|thead|tbody|tfoot)[^>]*>@i",$tag)) { $tag = ''; } else if (preg_match("@<(\/)?(td|th)[^>]*>@i",$tag)) { $tag = "\t"; } else if (preg_match("@]*>@i",$tag)) { $tag = "
"; } else if (preg_match("@]*>@i",$tag)) { $tag = "
"; } } else { if (stristr($tag,"]*)@i",$tag)) { Add($tag,1,DUDABIS,htmlspecialchars($tag)); } else if (preg_match("@]*>@i",$tag)) { Add($tag,1,DUDA,htmlspecialchars($tag)); } if (stristr($tag,"]*)@i",$tag,$thab)) { Add($tag,1,DUDABIS,'<th abbr="'.$thab[1].'">
',0,1); } else if (preg_match("@]*>@i",$tag)) { Add($tag,1,DUDA,'<th>
',0,1); } if (preg_match("@
]*>@i",$tag)) { Add($tag,2,DUDA,'',0,1); } $hojaestilo = "td { border: 2px solid #F0F !important; padding: 2px !important; }"; break; case 61: if (stristr($tag,"]*>@i",$tag)) { Add($tag,3,DUDA,'',1); } if (stristr($tag," style=")) { Add($tag,3,DUDA,'',1); } break; case 6201: if ($body == 1) { if (stristr($tag,"]*>@i", $tag)) { Add($tag,1,DUDA,htmlspecialchars($tag).'
'); } else if (preg_match("@<(\/)?(applet|embed|object)[^>]*>@i", $tag)) { Add($tag,2); } break; // 6202 - Con 1111 case 6301: if (preg_match("@]+))@ix",$tag,$temp)) { //if (preg_match("@]+)@i",$tag,$temp)) { if (preg_match("@^javascript:@i", $temp[2])) { Add($tag,1,MAL,htmlspecialchars($tag).'
'); } else if (count(count_chars($temp[2], 1)) < 2) { if (preg_match("@on(click|keypress|dblclick)@i",$tag)) { Add($tag,1,MAL,htmlspecialchars($tag).'
'); } } else { Add($tag,1,DUDA,htmlspecialchars($tag).'
'); } } if (preg_match("@]*>@i", $tag)) { Add($tag,2); } break; case 6302: if (OPTION == 'page') { if (stristr($tag,"]*>@i",$tag)) { $tag = ''; } } else { if (stristr($tag,"]*>@i",$tag)) { $tag = ''; } } else { if (preg_match("@<(embed|object)[^>]*>@i", $tag)) { Add($tag,1); } else if (preg_match("@<(\/)?(embed|object)[^>]*>@i", $tag)) { Add($tag,2); } } break; case 6304: if (OPTION == 'page') { if (preg_match("@<(\/)?(applet|param)[^>]*>@i",$tag)) { $tag = ''; } } else { if (stristr($tag,"]+))@ix",$tag,$temp)) { $scr = Absolute_URL(URL_BASE,$temp[2]); $herahead .= '
'.$scr.''; } else { $herahead .= '
'.htmlspecialchars($tag).' '.$lang['view_scripts']; } Add($tag,1,DUDA,htmlspecialchars($tag),1); } if (stristr($tag,"
]*>@i", $tag)) { Add($tag,1,DUDA,'',1); } else if (preg_match("@<(\/)?(script|applet|embed|object)[^>]*>@i", $tag)) { Add($tag,2,'','',1); } break; case 72: if (stristr($tag,"]*>@i", $tag)) { Add($tag,1,DUDA,'',1); } else if (preg_match("@<(\/)?(script|applet|embed|object)[^>]*>@i", $tag)) { Add($tag,2,'','',1); } if (stristr($tag,"]*>@i", $tag)) { Add($tag,1,DUDA,'',1); } else if (preg_match("@<(\/)?(script|applet|embed|object)[^>]*>@i", $tag)) { Add($tag,2,'','',1); } if (stristr($tag,"]*>@i", $tag)) { Add($tag,3,MAL,$lang['view_ismap'].'
'.htmlspecialchars($tag).'
'); } if (preg_match("@<(img|input|object).* usemap[^>]*>@i", $tag)) { Add($tag,3,BIEN,$lang['view_usemap'].'
'.htmlspecialchars($tag).'
'); } break; //case 9201: Con punto 1.2 case 9202: if (preg_match("@<(applet|embed|object)[^>]*>@i", $tag,$elp)) { Add($tag,1,DUDA,$elp[1].'
'); } else if (preg_match("@<(\/)?(applet|embed|object)[^>]*>@i", $tag)) { Add($tag,2); } break; // case 93: Con 6.4 case 94: if (preg_match("@ tabindex=@i",$tag)) { Add($tag,7,DUDA,htmlspecialchars($tag)); } break; case 95: if (preg_match("@ accesskey=@i",$tag)) { Add($tag,7,DUDA,htmlspecialchars($tag)); } break; case 10101: if (preg_match("@ target=@i",$tag)) { if (stristr($tag,"]*>@i", $tag,$este)) { Add($tag,1,DUDA,'<'.$este[1].'>
'); } else if (preg_match("@<\/(applet|embed|object)[^>]*>@i", $tag)) { Add($tag,2); } if ($body == 1) { if (stristr($tag,"'); } if (stristr($tag,"]+))@ix",$tag,$temp)) { $scr = Absolute_URL(URL_BASE,$temp[2]); $herahead .= '
'.$scr.''; } else { $herahead .= '
'.htmlspecialchars($tag).' '.$lang['view_scripts']; } Add($tag,1,DUDA,htmlspecialchars($tag),1); } if (stristr($tag,"
'); } else { Add($tag,3,BIEN,htmlspecialchars($tag).'
'); } } if (preg_match("@<(textarea|select)[^>]*>@i",$tag)) { Add($tag,1,DUDA,htmlspecialchars($tag).'
'); } else if (preg_match("@]*>@i",$tag)) { Add($tag,2); } if (stristr($tag,"'); } break; case 103: if (stristr($tag,"]*>@i",$tag)) { if (preg_match("@value=([\"\'])? (?(1) (.*?)\\1 | ([^\s\/\>]+))@ix",$tag,$outxt)) { if (trim($outxt[2]) == '') { $res = MAL; } else { $res = BIEN; } } else { $res = MAL; } Add($tag,3,$res,'
'); } if (stristr($tag,"'); } if (stristr($tag,"]*>@i",$tag)) { if ($cierre_a == 1) { Add($tag,1,MAL); } $cierre_a = 0; $aabierto = 1; } if (preg_match("@]*>@i",$tag) && $aabierto == 1) { Add($tag,2); $aabierto = 0; } break; case 111: if (stristr($tag," 0) { $herahead .= '
'.$lang['view_si_css']; } else { $herahead .= '
'.$lang['view_no_css']; } } if (stristr($tag,"]*>@i",$tag)) { Add($tag,3,BIEN,'',1); } if (stristr($tag," style=")) { Add($tag,3,BIEN,'',1); } break; case 11201: if (preg_match("@<(applet|basefont|center|dir|font|isindex|menu|s|strike|u)\b[^>]*>@i",$tag)) { Add($tag,7,MAL,htmlspecialchars($tag)); } break; case 11202: if (preg_match("@'; } else { Add($tag,7,MAL); } } if (preg_match("@<(br|li|ol|ul) .*(clear|type|start|compact)=@i",$tag,$d1)) { Add($tag,7,MAL,$d1[1].': '.$d1[2]); } if (preg_match("@<(caption|div|h(1-6)|iframe|input|legend|p|table) .*align=@i",$tag, $d2)) { Add($tag,7,MAL,$d2[1].': align'); } if (preg_match("@
0) { Add($tag,4,MAL); } else { Add($tag,4,DUDABIS); } } if (stristr($tag," 0) { Add($tag,4,MAL); } else { Add($tag,4,DUDABIS); } } if (stristr($tag,"]*>@i",$tag,$blo)) { Add($tag,7,BIEN,'<'.$blo[1].'>'); } break; case 124: if (stristr($tag,"]+))@ix",$tag,$outid)) { if (in_array($outid[2], $totales['for_id'])) { Add($tag,3,DUDABIS,htmlspecialchars($tag).'
'); } else { Add($tag,3,MAL,htmlspecialchars($tag).'
'); } } else { Add($tag,3,MAL,htmlspecialchars($tag).'
'); } } } if (preg_match("@<(textarea|select)[^>]*>@i",$tag)) { if (preg_match("@id=([\"\'])? (?(1) (.*?)\\1 | ([^\s\/\>]+))@ix",$tag,$outid)) { if (in_array($outid[2], $totales['for_id'])) { Add($tag,3,DUDABIS,htmlspecialchars($tag).'
'); } else { Add($tag,3,MAL,htmlspecialchars($tag).'
'); } } else { Add($tag,3,MAL,htmlspecialchars($tag).'
'); } } else if (preg_match("@]*>@i",$tag)) { Add($tag,2); } if (stristr($tag,"]+))@ix",$tag,$outfor)) { if (in_array($outfor[2], $totales['id_for'])) { Add($tag,3,BIEN,htmlspecialchars($tag).'
'); } else { Add($tag,3,MAL,htmlspecialchars($tag).'
'); } } else { Add($tag,3,MAL,htmlspecialchars($tag).'
'); } } break; case 131: if (OPTION == 'code') { if (preg_match("@]+))@ix",$tag,$outit)) { Add($tag,1,DUDABIS); } else { Add($tag,1,DUDA); } } if (preg_match("@@i",$tag)) { Add($tag,2); } } break; case 132: if (preg_match("@<(!doctype|meta|link|title)[^>]*>@i",$tag)) { if ($herahead=='') { $herahead .= DUDA.' '.$lang['view_head_con']; } if (stristr($tag,"]*>@i",$tag)) { $herahead .= '
'.htmlspecialchars($tag); } } Add($tag,3,DUDA,'',1); } if (preg_match("@<(address|del|ins)[^>]*>@i",$tag,$outmet)) { Add($tag,1,BIEN, '<'.$outmet[1].'> '); } if (preg_match("@]*>@i",$tag)) { Add($tag,2); } if ($body == 1) { if (preg_match("@title=([\"\'])? (?(1) (.*?)\\1 | ([^\s\/\>]+))@ix",$tag,$outx)) { Add($tag,7,BIEN,'title="'.$outx[2].'"
'); } if (preg_match("@cite=([\"\'])? (?(1) (.*?)\\1 | ([^\s\/\>]+))@ix",$tag,$outxx)) { Add($tag,7,BIEN,'cite="'.$outxx[2].'"
'); } } break; case 136: if (preg_match("@<(map|li|dd|dt)\b[^>]*>@i",$tag)) { Add($tag,1,DUDA,htmlspecialchars($tag)); } if (preg_match("@<(dl|ol|ul)\b[^>]*>@i",$tag,$lista)) { Add($tag,1,DUDABIS,'<'.$lista[1].'>'); } if (preg_match("@@i",$tag)) { Add($tag,2); } if (preg_match("@<(td|th)\b[^>]*>@i",$tag)) { Add($tag,1,MAL,'',0,1); } if (preg_match("@@i",$tag)) { Add($tag,2,MAL,'',0,1); } break; case 138: if (preg_match("@<(ul|ol|dl|li|dt|dd|h1|h2|h3|h4|h5|h6|p)\b[^>]*>@i", $tag)) { Add($tag,1); } else if (preg_match("@<\/(ul|ol|dl|li|dt|dd|h1|h2|h3|h4|h5|h6|p)\b[^>]*>@i", $tag)) { Add($tag,2); } break; case 139: if (preg_match("@ (rel|rev)=@i",$tag)) { if ($body == 0) { if ($herahead=='') { $herahead .= DUDA.' '.$lang['view_head_con']; } $herahead .= '
'.htmlspecialchars($tag); Add($tag,3,DUDA,'',1); } else { Add($tag,7,BIEN,htmlspecialchars($tag).'
'); } } break; } // Fin switch } // Fin function Modificar ?>