Еще несколько скриптов по сабжу:
By dni:
#!/usr/bin/perl
#Reverse IP script.
#Written by dni
#shouts to oto, leetskeet, uNK
#irc.bluehell.org #r00t
use LWP::UserAgent;
while (!$ARGV[0]) {
print "Usage: $0 IP \n"; exit;}
$a = 1;
$ua = new LWP::UserAgent(timeout => 15, agent => "Mozilla/5.0 (x11; u; linux i686; en-US; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7)" );
$req = $ua->get('http://whois.webhosting.info/' . $ARGV[0] . '?pi=1&ob=SLD&oo=ASC');
if (!($req->is_success)) {
die $req->status_line; }
else {
$output = $req->as_string;
until ($output =~ /(.*?)IP\sDetails\s-\sN\/A\./) {
$req = $ua->get('http://whois.webhosting.info/' . $ARGV[0] . '?pi=' . $a . '&ob=SLD&oo=ASC');
if (!($req->is_success)) { die $req->status_line; }
$output = $req->as_string;
while ($output =~ /<td><a\shref=\"http:\/\/whois.webhosting.info\/(.*?)\">/g){
my($crap,$yes)=split(/info\/(.*?)\.\"\>/,$&);
print "$yes\n";
}
sleep 5;
$a++;
}
print "Done!\n";
}
By me:
sub ddbGetCookies
{
my $ua=LWP::UserAgent->new(timeout => 7,
cookie_jar => {});
my $response=$ua->post($ddb.'cgi-bin/login.cgi',
[user => $ddbLogin,
pass => $ddbPassword,
action => 'login',
'1action' => 'GetByDomain',
domain=>'....'],
Referer=>$ddb . 'cgi-bin/login.cgi');
$response->is_success || die 'Ddb login failed';
$ua->cookie_jar;
}
sub ddbExtractTargets
{
my $ua=LWP::UserAgent->new(timeout => 7,
cookie_jar => shift);
my $response=$ua->get($ddb . shift,
Referer => $ddb);
$response->is_success || die 'Ddb request failed';
foreach(split("\n", $response->content))
{
if(/<b>there are <a href=\"(.+?)\">\d+ domains<\/a>/)
{
$response=$ua->get($ddb . $1,
Referer => $ddb);
$response->is_success || die 'Ddb request failed';
my @results=();
foreach(split("\n",$response->content)) { push(@results,$1) if /<b><a href=\"(.+?)\" class=text12 target=_blank>/ }
return @results;
}
}
}