Information Server

  • 0 Respuestas
  • 1575 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email

Information Server

  • en: Febrero 24, 2010, 04:35:09 pm
Código: Perl
  1. #!/usr/bin/perl
  2. #c0dex by m0x.lk || Fucker Team ||
  3. #Contact: [email protected]
  4. #InformationServer
  5.  
  6. system ("clear");
  7. system ("cls");
  8. system ("color 0c");
  9.  
  10. print "\n\n<ul class="bbc_list"><li type="square">InformationServer and Content\n";[/li][/list]
  11. print "</li><li type="square">c0dex by m0x.lk\n";[/li][/list]
  12. print "</li><li type="square">Fucker Team\n";[/li][/list]
  13. print "</li><li type="square">Host: ";[/li][/list]
  14. $host=<STDIN>;
  15. print "\n\n";
  16.  
  17.  
  18. use IO::Socket;
  19. use LWP::UserAgent;
  20. use HTTP::Request;
  21.  
  22. my $ip = "$host";
  23. my $con=LWP::UserAgent->new;
  24. my $ua=HTTP::Request->new(GET=>$ip);
  25. $cont= $con->request($ua)->as_string;
  26. print "$cont";
« Última modificación: Marzo 14, 2015, 09:47:31 am por Expermicid »

 

VNC Server Fuzzer

Iniciado por @ed33x

Respuestas: 0
Vistas: 1618
Último mensaje Enero 27, 2011, 08:51:38 pm
por @ed33x