Underc0de
Programación Scripting => Perl => Mensaje iniciado por: ProcessKill en Febrero 24, 2010, 04:35:09 PM
#!/usr/bin/perl
#c0dex by m0x.lk || Fucker Team ||
#Contact: [email protected]
#InformationServer
system ("clear");
system ("cls");
system ("color 0c");
print "\n\n[+]InformationServer and Content\n";
print "[+]c0dex by m0x.lk\n";
print "[+]Fucker Team\n";
print "[+]Host: ";
$host=<STDIN>;
print "\n\n";
sleep 1;
use IO::Socket;
use LWP::UserAgent;
use HTTP::Request;
my $ip = "$host";
my $con=LWP::UserAgent->new;
my $ua=HTTP::Request->new(GET=>$ip);
$cont= $con->request($ua)->as_string;
print "$cont";