ver Código-fonte

Publicado por Fábio Berbert de Paula 25/11/2002

[ Hits: 27.559 ]

Homepage: https://www.instagram.com/alexabolada/

Download verfonte.zip




Script usado para visualizar código-fonte de páginas da Internet a partir da URL informada.

  



Esconder código-fonte

<!-- verFonte.php -->
<!--
Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br>
http://www.vivaolinux.com.br

19 de Julho de 2002

Script usado para visualizar código-fonte de páginas da Internet a 
partir da URL informada.
-->
<html>
<head>
 <title>Visualizador de código-fonte <? if ($site) { echo " - " . $site; } ?></title>
</head>

<style type="text/css">
td,input { 
  font-family: Arial, Verdana, Helvetica, sans-serif; 
  font-size: 12px; 
  color: #000000;
}
</style>
<body bgcolor="#ffffff">

<form>
<table border=0 width="98%">
<tr><td>
<?

if (!$site) {
  // se o usuário ainda não preencheu o formulário com a URL a ser vista,
  // imprima a caixa de texto
  echo 'URL: <input name="site" size="30"> <input type="submit" value=" Ver Fonte ">';
  echo "\n</td></tr>\n</table>\n</form>\n</body>\n</html>";
  exit; // encerre por aqui
} 

// caso contrário, vamos separar o host da url relativa
ereg("^([^\/]*)(\/.*)$",$site,$saida);
$host = $saida[1];
$url  = $saida[2];

if (!$host) { $host = $site; }
if (!$url) { $url = '/'; } // contruir a URL
if (!ereg("^\/",$url)) { $url = '/'.$url; }

// conectar ao host e pedir a URL via método GET
$html = '';
$fp = fsockopen ($host, 80, $errno, $errstr, 30);
if (!$fp) {
    echo "Ocorreu um erro com $site e $host: $errstr ($errno)<br>\n";
} else {
    fputs ($fp, "GET $url HTTP/1.0\r\nHost: $host\r\n\r\n");
    while (!feof($fp)) {
        $html .= fgets ($fp,128);
    }
    fclose ($fp);
}

// separar as informações do servidor web do código HTML em si
list ($lixo,$html) = split("<",$html,2);
$html = '<' . $html;

// separar o código HTML por quebra de linha, assim podemos imprimir o número
// da linha
$linhas = split("\n",$html);
$cont = 0;
for ( $x=0; $x<count($linhas); $x++ ) {
   $cont++;
   $linha = $linhas[$x];
   $linha = ereg_replace("<","<",$linha);
   $linha = ereg_replace(">",">",$linha);

   echo $cont.'. '. $linha . "<br>\n";
}

?>
</td></tr>
</table>
</form>
</body>
</html>

Scripts recomendados

SysNoticia - Notícias para Web

Chat Engine

Chat Open Source.

SysTorpedo v.0.1 Beta

Cotação do Dólar


  

Comentários
[1] Comentário enviado por [IG]_D-TOX em 26/09/2003 - 10:37h

Parece estar espetacular!

[2] Comentário enviado por natitafofys em 23/05/2004 - 18:49h

Eu nao consigo abrir esse script, por favor, me ajude!
Eu clico em fazer download e salvo e quando abro a pasta compactada, tchanraaan, kd, nao tem nada!

[3] Comentário enviado por joaopereira em 05/08/2006 - 13:47h

Como faço para ver o código php?
Ao que me parece este script só mostra a parte de html.
alguem pode me ajudar?

[4] Comentário enviado por paulocamboim em 27/09/2006 - 09:53h

joao, nao eh possivel pegar o codigo php ...

[5] Comentário enviado por frodoj em 01/02/2008 - 10:03h

vamos testar....

[6] Comentário enviado por Lunes em 02/12/2011 - 15:37h

eu só fiz uma alteração na validação se a variavel $site estaria vazia, ai funcionou perfeitamente, muito bom o codigo!

if ($site == null) {


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts