Codebase list uniscan / 303965e5-8dc8-47d7-abaa-64dee61c8b37/main Uniscan / Google.pm
303965e5-8dc8-47d7-abaa-64dee61c8b37/main

Tree @303965e5-8dc8-47d7-abaa-64dee61c8b37/main (Download .tar.gz)

Google.pm @303965e5-8dc8-47d7-abaa-64dee61c8b37/main — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
package Uniscan::Google;

use Moose;
use Uniscan::Functions;
use Uniscan::Http;
use Uniscan::Configure;
	
my %conf = ( );
my $cfg = Uniscan::Configure->new(conffile => "uniscan.conf");
%conf = $cfg->loadconf();


sub search(){
	my ($self, $search) = @_;

	my $func = Uniscan::Functions->new();
	my $http = Uniscan::Http->new();
      
	my $n = 0;
	my $google = "";
	my %sites = ();
	$func->write("| [+] ". $conf{'lang97'} .": $search");
	$func->writeHTMLValue($conf{'lang97'} .": $search");
	for($n=0; $n<200; $n+=10){
		$google = 'http://www.google.com.ar/search?hl=es&q='. $search .'&start='. $n .'&sa=N';
		my $response = $http->GET($google);
		while ($response =~  m/<h3 class\=\"r\"><a href\=\"https?:\/\/([^>\"]+)\" class\=/g){
			if ($1 !~ m/google|cache|translate/){
				my $site = $1;
				$site = substr($site, 0, index($site, '/')) if($site =~/\//);
				$site = "http://" . $site . "/";
				if(!$sites{$site}){
					$sites{$site} = 1;
				}
			}
		}
	}



	my $i =0;
	open(my $file, ">>", "sites.txt");
	foreach my $key (keys %sites){
		#print $file "http://" . $key . "/\n";
                print $file $key. "\n";
		$i++;
	}
	close($file);
	$func->write("| [+] Google ". $conf{'lang25'} ." $i sites.");
	$func->writeHTMLValue("Google ". $conf{'lang25'} ." $i sites.");
	$func->write("| [+] ". $conf{'lang98'} .".");
	$func->writeHTMLValue($conf{'lang98'} .".");

}




1;