GOOGLE MULTI DOMAIN untuk scanner

[ubuntu]

ini ane punya GOOGLE MULTI DOMAIN untuk scanner, jadi biar auto gitu scan nya ...!!

sub se_google_m {
  my ($chan,$key,$nf) = @_;
  my @daftar;
  my $num = 50; my $max = 5000; my $p;
  my @doms = (
    "com","ae","com.ar","at","com.au","be","com.br","ca","ch","cl","de","dk","fi","fr","gr","com.hk",
    "ie","co.il","it","co.jp","co.kr","lt","lv","nl","com.pa","com.pe","pl","pt","ru","com.sg",
    "com.tr","com.tw","com.ua","co.uk","hu","com.af","com","ae","com.ag","com.ai","am","com.ar","as",
    "at","com.au","az","ba","com.bd","be","bg","com.bh","bi","com.bn","com.bo","com.bn","bs","co.bw",
    "com.by","com.bz","ca","cd","cg","ch","ci","co.ck","cl","cn","com.co","co.cr","com.cu","cz","de",
    "dj","dk","dm","com.do","com.ec","ee","com.eg","es","com.et","fi","com.fj","fm","fr","ge","gg",
    "com.gi","gl","gm","gp","gr","com.gt","gy","com.hk","hn","hr","ht","hu","co.id","ie","co.il",
    "im","co.in","is","it","je","com.jm","jo","co.jp","co.ke","com.kh","ki","kg","co.kr","kz","la",
    "li","lk","co.ls","lt","lu","lv","com.ly","co.ma","md","mn","ms","com.mt","mu","mv","mw","com.mx",
    "com.my","com.na","com.nf","com.ng","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa",
    "com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","com.qa","ro","ru","rw","com.sa","com.sb",
    "sc","se","com.sg","sh","si","sk","sn","sm","st","com.sv","co.th","com.tj","tk","tm","to","tp","com.tr",
    "tt","com.tw","com.ua","co.ug","co.uk","com.uy","co.uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws",
    "co.yu","co.za","co.zm","co.zw");
  my $dom = $doms[rand(scalar(@doms))];
  my $url = "http://www.google.".$dom."/search?&num=".$num."&q=".$key;
  my $murl = "http://www.google.".$dom;
  my $nxurl;
  my $q = bukasitus($url);
  if ( $q =~ /class=b><a href=\"(.*?)\">/ ) {
      my $nxurl = $1;
      msgn($dbgchan,"Google.".$dom,$nxurl);
      msgn($chan,"Google.".$dom,"Scanning...");
  }
  while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
  for ($p=50;$p<=$max;$p+=$num) {
    $nxurl = "http://www.google.".$dom."/search?num=".$num."&q=".$key."&start=".$p."&sa=N";
    $q = bukasitus($nxurl);
    while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) {  push (@daftar, $1);  }
    if ( $q !~ /<h3 class=r><a href=\"http:\/\/(.*?)\"/ ) { return @daftar;  }
  }
  return @daftar;
}

untuk selebihnya, silahkan di explore lagi aja
ini kalau mau auto scan nya..
ini contohnya

if (($com =~ /^autoscan\s+(.+?[=])\s+(.*)/) && (fork() == 0)) { a_scanz($dtarget,$1,$2,$hb,1); exit; }

./Up

 

[Jahat]

masta Up