Forum programmazione

[DevilAuron]

Code: Select all

#usrbinperl
######################################################
#   Author  :  DevilAuron
#   Program :  Whois
#   Email   :  songforthemoment[at]hotmail[dot]it
#   Site    :  http://devilsnight.altervista.org
######################################################
use IO::Socket;
system("cls");
print q{
-----------------------------------------------------------------
                           Powered By
     .___          .__.__
   __| _/_______  _|__|  |   _____   __ _________  ____   ____
  / __ |/ __ \  \/ /  |  |   \__  \ |  |  \_  __ \/  _ \ /    \
/ /_/ \  ___/\   /|  |  |__  / __ \|  |  /|  | \(  <_> )   |  \
\____ |\___  >\_/ |__|____/ (____  /____/ |__|   \____/|___|  /
      \/    \/                    \/                         \/

                  www.devilsnight.altervista.org

-----------------------------------------------------------------
};
print "Insert Link Without Http and www (Es mysite.com)\n";
$site = <STDIN>;
chomp($site);
print "Wait..\n";
$sock = IO::Socket::INET->new(
PeerAddr => 'www.who.is',
PeerPort => '80',
PeerProt => 'tcp',
Timeout  => '1'
) || die "\n=>Error: Retry\n";
print $sock "GET /whois-it/ip-address/$site/ HTTP/1.1\n";
print $sock "Host: who.is\n";
print $sock "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1.8) Gecko/20071008 Firefox/2.0.0.8\n\n";
print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5";
print $sock "Accept-Language: it-it,it;q=0.8,en-us;q=0.5,en;q=0.3\n\n";
print $sock "Accept-Encoding: gzip,deflate\n\n";
print $sock "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\n\n";
print $sock "Keep-Alive: 300\n\n";
print $sock "Connection: keep-alive\n\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
@res = <$sock>;

open TXT,">>results.html";
print TXT "<font face=\"courier\" size=\"1\">";
for($i = 77; $i <= 140; $i++)
{
print TXT "@res[$i]\n";
}
print TXT "</font>";
print "Done.. You can view the results on results.html";
close($sock);
#DevilAuron - http://devilsnight.altervista.org

Accetto consigli