StepHack

#!/usr/bin/perl
 
use Data::Dumper;
use HTTP::Cookies;
use LWP::UserAgent;
 
 
my $DEBUG = 1;
my $MAX_RETRY = 5;
my $BROWSER_TIMEOUT = 8;
my $AGENT = 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)';
 
 
print "[+] Input D0rk: ";
chomp (my $dork = <>);
 
 
my @list = search($dork, 'other');
open OUTFILE, ">> result_other.txt" or die "Can't open result_other.txt : $!";
print OUTFILE "[+] Search ($dork)\n";
print OUTFILE "[+] Found ".$#list." site\n";
print OUTFILE join("\n", @list);
close OUTFILE;
 
 
my @google = search($dork, 'google');
open OUTFILE, ">> result_google.txt" or die "Can't open result_google.txt : $!";
print OUTFILE "[+] Search ($dork)\n";
print OUTFILE "[+] Found ".$#google." site\n";
print OUTFILE join("\n", @google);
close OUTFILE;
 
#############
# Search Engine
#############
sub search {
  my @list;
  my $keyword = &keyword($_[0]);
  my @search = ($_[1] eq 'google')?&search_google():&search_other();
  my %searchurl = map {$_ =>1} @search;
  my $ignore_site = &ignore_site();
  for(my $i=1;$i<=1000;$i+=100){
    my $j = $i-1;
    my $k = $j+10;
    my $l = $i+1;
    my @searchlist = shuffle(keys %searchurl);
    next if(!scalar(@searchlist));
    print "[+] scalar(\@searchlist) : ".scalar(@searchlist)."\n";
    foreach my $urlsearch (@searchlist){
 
      my $url = $urlsearch;
      $url =~ s/\{KEYWORD\}/$keyword/;
      $url =~ s/\{I\}/$i/;
      $url =~ s/\{J\}/$j/;
      $url =~ s/\{K\}/$k/;
      $url =~ s/\{L\}/$l/;
 
      print "==========\n";
      print "Search URL : $url\n";
      print "==========\n";
 
      my $cookie_jar = HTTP::Cookies->new(autosave =>1, hide_cookie2=>1);
      my $browser = LWP::UserAgent->new(agent => $AGENT, timeout => $BROWSER_TIMEOUT,cookie_jar => $cookie_jar);
      my $res = $browser->get($url)->content;
 
      my $retry_count = 0;
      while($res =~ m!<form action="Captcha" method="get">!i){
        last if($retry_count>=$MAX_RETRY);
        $retry_count++;
        print "[+] Google Ban !!\n";
        my $google_domain = $url;
        $google_domain =~ s/http:\/\/([^\/]+)\/.*/$1/ig;
        my ($img) = ($res =~ m/src=\"\/sorry\/(.*?)\"/);
        my ($continue) = ($res =~ m/<input type\=\"hidden\" name\=\"continue\" value\=\"(.*?)\"/);
        my ($id) = ($res =~ m/<input type\=\"hidden\" name\=\"id\" value\=\"(.*?)\"/);
        my $getimg = $browser->get('http://'.$google_domain.'/sorry/'.$img)->content;
        open C, ">captcha.jpg";
        binmode C;
        print C $getimg;
        close C;
        print "[+] Please type the Captcha: ";
        chomp (my $captcha = <STDIN>);
        $res = $browser->get('http://'.$google_domain.'/sorry/Captcha?continue='.$continue.'&id='.$id.'&captcha='.$captcha.'&submit=Submit')->content;
        sleep 2;
        if($DEBUG){
          open DEBUG, "> GOOGLE.html" or die "Can't open GOOGLE.html : $!";
          print DEBUG $res;
          close DEBUG;
        }
        $res = $browser->get($url)->content;
      }
 
      my @sites;
      my $found = 0;
      while($res =~ m/(<span property=\"f:durl\">([^<]+)<\/span>|https?\%3a\/\/([^><\"\']+)|<a class=\"b-serp-item__title-link\" tabindex=\"2\" href=\"http:\/\/([^\"]+)|text-decoration: none;\">https?:\/\/([^<]+)<\/a>|<a href=\"https?:\/\/([^\"]+)| href=\'https?:\/\/([^\']+)\'| href=\"https?:\/\/([^\"]+)\")/g){
        my $regex = $1;
        $regex =~ s/%3a/:/g;
        $regex =~ s/<(\S+)>|<$|\s+$//g;
        $regex =~ s/.*('|")https?:\/\/([^"']+).*/$2/g;
        $regex =~ s/.*https?:\/\/([^"']+)\/?/$1/g;
        $regex =~ s/(.*)\/[^\/]*\.(html|shtml|htm|php|js|png|jpg|jpeg|ico|ini|php5|jsp|css|xml)$/$1/;
        $regex =~ s/(.*)\/[^\/]*\?.*/$1/;
        $regex =~ s/\/$//g;
 
        next if($regex =~ /$ignore_site/i);
        push(@sites, &links($regex));
        $found++;
      }
      if(!$found){
        print "[-] Remove Not Found : $urlsearch\n";
        delete($searchurl{$urlsearch});
      }
      @sites = sort(unique(@sites));
      print join("\n", @sites);
      print "\n";
 
      if($DEBUG){
        open DEBUG, ">> DEBUG_${i}.txt" or die "Can't open DEBUG_${i}.txt : $!";
        print DEBUG join("\n", @sites)."\n";
        close DEBUG;
      }
      push(@list, @sites);
    }
    print "\n\n\t\t==========\n";
  }
  return  sort(unique(@list));
}
 
#############
# Tools
#############
sub urlencode {
  my $str = $_[0];
  $str =~ s/([\W])/"%".uc(sprintf("%2.2x", ord($1)))/ge;
  return $str;
}
 
sub shuffle {
  my %hash;
  for(@_){$hash{rand()}= $_;}
  return values %hash;
}
 
sub unique {
  return keys %{{ map { $_ => 1 } @_ }};
}
sub trim {
  my $in = $_[0];
  $in =~ s/^\s+|\s+$//g;
  return $in;
}
sub checkhttp {
  my $in = $_[0];
  $in =~ s/http(s)?\:\/\///gi;
  $in = 'http://'.$in;
  return $in;
}
sub cleanURL {
  my $in = $_[0];
  $in =~ s/\r?\n//g;
  return trim($in);
}
 
sub keyword {
  return urlencode($_[0]);
}
sub links {
  my @list;
  my $link = $_[0];
  my $host = $_[0];
  my $hostdir = $_[0];
  $hostdir =~ s/(.*)\/[^\/]*$/$1/;
  $host =~ s/([a-z0-9\-\.]+)\/.*/$1/i;
  $host .= "/";
  $link .= "/";
  $hostdir .= "/";
  $host =~ s/\/\//\//g;
  $hostdir =~ s/\/\//\//g;
  $link =~ s/\/\//\//g;
  push(@list,$link,$host,$hostdir);
  return @list;
}
 
sub search_google {
  my @urls = qw(
    http://www.google.ae/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.am/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.as/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.at/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.az/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ba/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.be/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.bg/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.bi/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.bs/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ca/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.cd/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.cg/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ch/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ci/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.cl/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.bw/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.ck/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.cr/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.hu/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.id/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.il/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.im/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.in/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.je/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.jp/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.ke/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.kr/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.ls/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.af/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.ag/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.ar/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.au/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.bd/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.bo/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.br/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.bz/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.co/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.cu/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.do/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.ec/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.et/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.fj/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.gi/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.gt/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.hk/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.jm/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.ly/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.mt/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.mx/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.my/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.na/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.nf/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.ni/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.np/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.om/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.pa/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.pe/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.ph/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.pk/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.pr/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.py/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.sa/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.sb/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.sg/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.sv/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.tj/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.tr/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.tw/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.ua/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.uy/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.vc/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.com.vn/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.nz/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.th/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.ug/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.uk/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.ve/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.vi/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.za/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.co.zm/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.de/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.dj/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.dk/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.dm/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.es/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.fi/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.fm/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.fr/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.gg/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.gl/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.gm/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.gr/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.hn/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.hr/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ie/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.is/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.it/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.jo/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.kg/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.kz/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.li/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.lk/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.lt/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.lu/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.lv/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.mn/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ms/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.mu/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.mw/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.nl/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.no/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.nr/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.nu/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.off.ai/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.pl/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.pn/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.pt/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ro/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ru/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.rw/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.sc/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.se/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.sh/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.sk/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.sm/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.sn/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.tm/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.to/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.tp/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.tt/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.uz/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.vg/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.vu/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
    http://www.google.ws/search?q={KEYWORD}&num=100&filter=0&start={I}&sa=N
  );
  return @urls;
}
 
sub search_other {
  my @urls = qw(
    http://at.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://au.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://br.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://ca.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://de.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://es.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://fr.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://it.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://uk.search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
    http://search.yahoo.com/search?n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vd=all&vst={I}&vf=all&vm=p&fl=0&fr=altavista&p={KEYWORD}&vs=
    http://search.yahoo.com/search?n=100&p={KEYWORD}&b={I}
 
    http://euroseek.com/system/search.cgi?language=de&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=nl&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=fi&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=ps&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=da&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=en&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=es&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=fr&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=it&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=no&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=sv&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=cs&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=pl&mode=internet&start={J}&string={KEYWORD}
    http://euroseek.com/system/search.cgi?language=ru&mode=internet&start={J}&string={KEYWORD}
 
 
    http://aim.search.aol.com/aol/search?q={KEYWORD}&page={L}
    http://blekko.com/ws/{KEYWORD}?ft=&p={J}
    http://buscar.ozu.es/index.php?etq=web&q={KEYWORD}&pag={I}
    http://cade.search.yahoo.com/search;_ylt=A0geu8ny1rRO8gQADw7b7Qt.?p={KEYWORD}&fr=sfp&xargs=0&pstart=1&b={K}
    http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start={K}&ie=utf8&num=25&q={KEYWORD}&lr=all
    http://duckduckgo.com/html/?q={KEYWORD}&l=us-en&p={I}&s=100&o=json&dc=54&api=d.js
    http://euroseek.com/system/search.cgi?mode=internet&start={I}&string={KEYWORD}
    http://msxml.excite.com/excite/ws/results/Web/{KEYWORD}/{J}/0/0/Relevance/zoom=off/qi=31/qk=10/bepersistence=true/_iceUrlFlag=7?_IceUrl=true
    http://mundo.busca.uol.com.br/buscar.html?q={KEYWORD}&start={I}
    http://nova.rambler.ru/srch?btnG=DtD%B0DaN?D%B8!&query={KEYWORD}&page={I}
    http://pesquisa.clix.pt/resultado.html?question={KEYWORD}&in=Mundial&num=25&ckWhere=Mundo&position={I}
    http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=100&location=pt&page={I}&q={KEYWORD}&st=local
    http://ricerca.virgilio.it/ricerca?qs={KEYWORD}&filter=1&site=&lr=&hits=100&offset={K}
    http://search1.rediff.com/dirsrch/default.asp?MT={KEYWORD}&iss=&submit=Search&firstres={J}
    http://search.aol.com/aol/search?enabled_terms=&q={KEYWORD}&s_it=comsearch50&page={I}&oreq=810a106cf821477ab0349f9caa875f82&v_t=comsearch50
    http://search.dmoz.org/search/search?q={KEYWORD}&start={J}&type=next&all=yes"
    http://search.lycos.com/?query={KEYWORD}&page2={J}&tab=web&searchArea=web&diktfc=468007302EF7DB9AFE53D4138B848E7B4000D424385F
    http://searchnz.co.nz/search.aspx?q={KEYWORD}&np={I}
    http://search.search66.com/?query={KEYWORD}&start={K}&offset=20&lang=ENG
    http://search.seznam.cz/?q={KEYWORD}&count=100&pId=SkYLl2GXwV0CZZUQcglt&from={I}
    http://search.tiscali.it/?tiscalitype=web&collection=web&start={J}&q={KEYWORD}
    http://search.walla.co.il/?t=0&e=utf&q={KEYWORD}&p={J}
    http://search.yippy.com/search?query={KEYWORD}&input-form=clusty-simple&v:sources=webplus&v:state=root|root-{K}-10|0&
    http://suche.web.de/search/web/?pageIndex={I}&su={KEYWORD}&search=Suche
    http://szukaj.onet.pl/{I},query.html?qt={KEYWORD}
    http://uk.ask.com/web?q={KEYWORD}&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page={I}&jss=0&dm=all
    http://web.search.ch/?rank={K}&q={KEYWORD}
 
    http://web.search.naver.com/search.naver?where=webkr&query={KEYWORD}&docid=0&lang=all&f=&srcharea=all&st=s&fd=2&start={I}&display=100
    http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=500&q={KEYWORD}&o={J}
    http://www.amidalla.de/cgi-bin/amisearch.cgi?search={KEYWORD}&page={J}&break=100&af=2&tld=com&et=2
    http://www.arrama.com/arama.html?cx=partner-pub-8986600646077390%3A3up8c9-e187&cof=FORID%3A10&ie=UTF-8&q={KEYWORD}&sa=Web'de+Ara-Bul&siteurl=www.arrama.com%2F#8{K}
    http://www.baidu.com/s?wd={KEYWORD}&pn={J}
    http://www.bing.com/search?q={KEYWORD}&first={I}&FORM=PERE
    http://www.exalead.com/search/web/results/?q={KEYWORD}&elements_per_page=100&start_index={J}
    http://www.excite.co.jp/search.gw?target=combined&look=excite_jp&Language=&sstype=excite_r&search={KEYWORD}&FirstResult={K}
    http://www.gigablast.com/search?q={KEYWORD}&n={I}
    http://www.goodsearch.com/Search.aspx?Keywords={KEYWORD}&page={I}&osmax=0
    http://www.google.interia.pl/szukaj?q={KEYWORD}&s=szukaj&w=sw&szukaj=&p={J}
    http://www.hotbot.com/?query={KEYWORD}&ps=&loc=searchbox&tab=web&mode=search&currProv=msn&page={J}&diktfc=51964BFDE35DFB6914F9E1E0D7988C3AC0ACB52B58BE
    http://www.kvasir.no/nettsok?offset={K}&pageSize=100&q={KEYWORD}
    http://www.lookle.com/search/index.php?page=search/web&search={KEYWORD}&type=web&startpage={I}
    http://www.mamma.com/result.php?q={KEYWORD}&type=web&p={J}
    http://www.netsprint.pl/serwis/search?q={KEYWORD}&rpp=10&pg={I}&ff=0&z=1&format=-1
    http://www.optuszoo.com.au/search?q={KEYWORD}&start={K}&target=web
    http://www.szukacz.pl/szukaj.aspx?ct=polska&pc=polska&q={KEYWORD}&start={K}
    http://www.yauba.com/?query={KEYWORD}&where=websites&target=websites&con=y&ilang=english&clt=topic&pg={I}
    http://yandex.ru/yandsearch?p={I}&text={KEYWORD}&lr=118
 
  );
  return @urls;
}
 
sub ignore_site {
  my @domains = qw(
    google
    yahoo
 
    3ds.com
    a9.com
    altavista.com
    aol.com
    ask.com
    baidu.com
    bing.com
    blogspot.com
    facebook.com
    linkedin.com
    myspace.com
    lycos.com
    lygo.com
    mamma.com
    twitter.com
    live.com
    msn.com
    microsoft.com
    youtube.com
 
 
    answers.com
    babylon.com
    blekko.com
    blekko-img.com
    clusty.com
    documation.fr
    entireweb.com
    exactseek.com
    exalead.com
    excite.com
    excite.co.jp
    excite.co.uk
    gamesville.com
    gigablast.com
    gilletts.com.au
    iacadvertising.com
    ii-sdv.com
    infospace.com
    intelius.com
    interia.pl
    jobcity.co.il
    Search66.com
    tiscali.it
    tripadvisor.com
    truveo.com
    walla.co.il
    wallashops.co.il
    wallatours.co.il
    weatherzombie.com
    wwwconference.org
    xg4ken.com
    yellowpages.superpages.com
 
    duckduckgo.com
 
    l.yimg.com
    118.xg4ken.com
    atre.net
 
    clix.pt
    web.de
    virgilio.it
 
    autorambler.ru
    rambler.ru
    afisha.ru
    ferra.ru
    lenta.ru
    price.ru
    afisha.ru
 
    yandex.ru
    freedrweb.com
 
    seznam.cz
    smobil.cz
    firmy.cz
    ippi.cz
    mapy.cz
    obrazky.cz
    sklik.cz
    zbozi.cz
    chytrevyhledavani.cz
 
    ozu.es
    advernet.es
    vocento.net
 
    zumi.pl
    onet.pl
 
    nzcity.co.nz
    nzdating.com
    nzsearch.co.nz
 
    search.ch
 
    yippy.com
 
    statcounter.com
 
    jsuol.com
    uol.com.br
 
    virgilioricerca.myblog.it
 
 
    infopedia.pt
    img.ui-portal.de
 
    biglobe.ne.jp
    biglobe.co.jp
    nec.co.jp
    gotouchiword.jp
    xlisting.jp
 
    csdn.net
 
    amidalla.de
    reddit.com
    24godziny.pl
    szukacz.pl
    goodsearch.com
    goodsurvey.com
    mister-wong.com
    storktec.com
    turkish-media.com
    turkishnewsagency.com
    ucuzproje.com
    yuzkitabi.com
 
    netsprint.eu
    netsprint.pl
    adkontekst.pl
    netsprint.encyklopedia.pwn.pl
    adkontekst.pl
 
    optuszoo.com.au
    optuszoo.sportal.net.au
    optus.com.au
    optusgames.com.au
 
    adiyamanli.org
    alininlistesi.org
    arrama.com
    benimgibianneler.com
    ikile.com
    oyungetir.com
    postakartim.com
    sorugonder.com
 
    kvasir.no
    dittdistrikt.no
    eniro.no
    enironorge.no
    gulesider.no
    informnorge.no
    proff.no
    sol.no
    telefonkatalogen.no
 
    abc.go.com
    naver.com
    naver.net
    nhncorp.com
 
    blog.sina.com.cn
    www.chinawj.com.cn
    www.jdg.tj.cn
    www.jc.net.cn
    www.tudou.com
    langfang.edeng.cn
 
    ebm.cheetahmail.com
 
    c-c.com
    dxy.cn
    orkut.com
    360che.com
    yesky.com
    163.com
    autohome.com.cn
    wjw.cn
    xcar.com.cn
  );
 
  my $return = quotemeta(join ('|', @domains));
  $return =~ s/\\\|/\|/ig;
  return '((^|(.+)\.)?)('.$return.')((\.([a-z\.]){2,6})?\/?(.*))?$';
}

<?
$auth = 1; //Auth on/off == 1/0
$namelogin="root";//login = "root"
$passlogin="63a9f0ea7bb98050796b649e85481845";//pass  = "root"
 
if($auth == 1){
  list($_SERVER['PHP_AUTH_USER'], $_SERVER['PHP_AUTH_PW']) = explode(':', base64_decode(substr($_SERVER['HTTP_AUTHORIZATION'], 6)));
  if(!isset($_SERVER['PHP_AUTH_USER']) ||
    ($_SERVER['PHP_AUTH_USER'] != $namelogin) ||
    (md5($_SERVER['PHP_AUTH_PW']) != $passlogin)
  ){
    header('HTTP/1.1 401 Unauthorized');
    header('WWW-Authenticate: Basic realm="Authentication Zone"');
    exit('wtf?');
  }
}
?>