[caiu] Regra que uso no meu Site para PING e TRACE

Quarta Janeiro 23 17:53:44 BRST 2013

Buenas;

Não leva a mau, mas esse script abre um tremenda brecha de segurança.
Ao não tratar o que o usuário insere, vc permite que o usuário execute
qualquer tipo de comando no sistema.

Ex.: http://servidor/ping.pl?192.168.1.254;/usr/bin/whoami

Logo após o resultado do ping, será impresso na tela o resultado dos
comandos adicionais injetados na query string.

[]s

2013/1/23 wagner nascimento <wagner.nascimento em gmail.com>:
> Regra PING:
>
> #!/usr/bin/perl
> # Wagner Nascimento
>
> $QUERY_STRING = $ENV{'QUERY_STRING'};
>
> $|=1;
>
> print "Content-type: text/html\n\n";
> print "<html><head><title>Web Ping</title>\n";
> #print "</head><body background='/adm/imagens/onda2.jpg'>\n";
> print "</head><body>\n";
> #print "<center><img src='/adm/imagens/webping.jpg'></center>\n\n" ;
> print "<center><font face=Verdana, Arial, Helvetica, sans-serif
> color=#000000 size=4><B>WEBPING</B></font></center>\n\n" ;
>
> if ("$QUERY_STRING" ne "") {
>   print "<hr width='90%'>";
>   print "<table width='90%' align='center'>";
>   print "<tr>";
>   print "<PRE>";
>   system "ping -c 5 $QUERY_STRING";
>   print "</tr>";
>   print "</table>";
> }
>
> print "<center><strong><font face=verdana, Arial, Helvetica, sans-serif
> color=#000000 size=2>";
> print "<ISINDEX PROMPT='Informe o endereço para pingar:  '>";
> print "</font></strong></center>";
> print "<br>";
> print "<center>";
> print "<a href='/adm/diagnostico.html'><img
> src='/adm/imagens/botao_voltar.gif' border='0'></a></center>";
>
>
> Script Tracert
>
> #!/usr/bin/perl
> # Wagner Nascimento
>
> $QUERY_STRING = $ENV{'QUERY_STRING'};
>
> $|=1;
>
> print "Content-type: text/html\n\n";
> print "<html><head><title>Web Ping</title>\n";
> #print "</head><body background='/adm/imagens/onda2.jpg'>\n";
> print "</head><body>\n";
> #print "<center><img src='/adm/imagens/webping.jpg'></center>\n\n" ;
> print "<center><font face=Verdana, Arial, Helvetica, sans-serif
> color=#000000 size=4><B>WEB TRACER</B></font></center>\n\n" ;
> if ("$QUERY_STRING" ne "") {
>   print "<hr width='90%'>";
>   print "<table width='90%' align='center'>";
>   print "<tr>";
>   print "<PRE>";
>   system "traceroute $QUERY_STRING";
>   print "</tr>";
>   print "</table>";
> }
>
> print "<center><strong><font face=verdana, Arial, Helvetica, sans-serif
> color=#000000 size=2>";
> print "<ISINDEX PROMPT='Informe o endereço para rota:  '>";
> print "</font></strong></center>";
> print "<br>";
> print "<center>";
> print "<a href='/adm/diagnostico.html'><img
> src='/adm/imagens/botao_voltar.gif' border='0'></a></center>";
>
> At, Wagner Nascimento.
> _______________________________________________
> caiu mailing list
> caiu em eng.registro.br
> https://eng.registro.br/mailman/listinfo/caiu
>
>
> --> PARA SAIR DA LISTA SIGA AS INSTRUÇÕES em:
>
> https://eng.registro.br/mailman/options/caiu

-- 
============================
Matheus Weber da Conceição