İpucu: aLKaDraZ Google Search

Perl ile de yapılabilir aynı mantık mı sizin exe bilmiyorum ama bununla google veya bing üzerinden arama yapılıp çıkan sonuçları txt kayıt eder açık kaynaklı olduğu için geliştirilmeye ve editlenmeye müsait

#!/usr/bin/perl 
#Codado (um pedaço)
#Por Senhor Li
#Greatz ao MMxM pela Engin do Google

 use LWP::UserAgent; 
 use URI::Escape;
 use HTTP::Request;
 use Term::ANSIColor;

 print q {
+------------------[Dork Scanner]------------------+
|                    2 Engines:                    |
|                  Google & Bing                   |
|                      By MCA                      |
+----+                 Greatz:            +--------+
| BD |               R@T K1N5             |  v1.5  |
+--------------------------------------------------+
 };
 print q {Coloque:
1 - Google
2 - Bing};
 print "\n>>"; 
 $id = <STDIN>;
 chomp $id;

 ######################### Google  #########################################################
 if ($id eq "1"){
  print "Insert a Dork:[ex:inurl:view.php?id=]\n>>";
  chomp(my $dork = <stdin>);
  print q{
Engine:Google
Dork:}.$dork;
  print"\nScanning starteD...\n\n";
  
  $dork =~ s/ /+/g;
  $dork = uri_escape($dork);
  for (my $i=0;$i<=100000;$i+=10){
    my $url = 'http://www.google.com.tr/search?q='.$dork.'&start='.$i;
    my $ua = new LWP::UserAgent; 
    $ua->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101 Firefox/14.0.1');
    $ua->timeout(15);
 
    my $request = HTTP::Request->new('GET');
    $request->url($url);
 
    my $response = $ua->request($request);
    if($response->code != 200){
        die("\nErro\n");
    }
 
    my $body =  $response->content;
    my $header = $response->headers_as_string;
    if($body =~ /<p style="padding-top:.33em">/s){
        print "\nN0 Result Found!\n";
    }
    my $a = 0;
    while($body =~ m/<h3 class="r"><a href="(.*?)"/g){
        print $1."\n";
        $a = $a + 1;
        open (txt,">>scanned.txt"); 
        print txt  $1,"\n";  
        close(txt);
    }
    
}  
}
 ########################   Bing    ###########################################################


if ($id eq "2"){

 print "Insert a Dork:\n>>";
 $dork = <STDIN>; 
 chomp($dork); 
   print q{
Engine:Bing
Dork:}.$dork;
  print"\nscanning started...\n\n";
 for ($i = 0; $i < 1000; $i += 10) { 
 $b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)'); 
 $b->timeout(30); 
 $b->env_proxy; 
 $c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content; 
 $check = index($c, 'sb_pagN'); 
 while (1) { 
 $n = index($c, '<h3><a href="'); 
 if ($n == -1) { 
 last; 
 }  
 print "$s\n";
  $c = substr($c, $n + 13); 
 $s = substr($c, 0, index($c, '"'));
 open (txt,">>ScanBing.txt"); 
 print txt  $s,"\n"; 
 
 close(txt);
 } 
  if ($check == -1) { 
 last; 
 } 
 }
 system("ScanBing.txt");
 exit;
 }

eline sağlık.