Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Information Server

  • 0 Respuestas
  • 1211 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
« en: Febrero 24, 2010, 04:35:09 pm »
Código: Perl
  1. #!/usr/bin/perl
  2. #c0dex by m0x.lk || Fucker Team ||
  3. #Contact: m0x.lk@linuxmail.org
  4. #InformationServer
  5.  
  6. system ("clear");
  7. system ("cls");
  8. system ("color 0c");
  9.  
  10. print "\n\n[+]InformationServer and Content\n";
  11. print "[+]c0dex by m0x.lk\n";
  12. print "[+]Fucker Team\n";
  13. print "[+]Host: ";
  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 »

 

¿Te gustó el post? COMPARTILO!



VNC Server Fuzzer

Iniciado por @ed33x

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