ver Código-fonte
Publicado por Fábio Berbert de Paula 25/11/2002
[ Hits: 27.593 ]
Homepage: https://mestrefabio.com
Script usado para visualizar código-fonte de páginas da Internet a partir da URL informada.
<!-- 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>
Classe para criar menus de listas
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Clone de schema - Postgres (2)
Dualboot Fedora 40 e LinuxMint 21 (12)
Dificuldade em ler binário (6)
Em que pasta/arquivo ficam as configurações das janelas em derivados d... (1)