Mass-Proxy-Checker/pScan.pl at master · exploit-inters/Mass-Proxy-Checker · GitHub

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
#!/usr/bin/perl
# Proxy List Checker by v4p0r
# Made in Brazil niggas 2k17
# greetz: YC - EOF Club - BRLZPoCC - All Friends

use Getopt::Long;
use LWP::UserAgent;
use strict;


my $distro;
my $usr = $^O;

if ( $usr eq "MSWin32") {
	system ("cls");
} else {
	system ("clear");
}

my $banner = @ARGV;
print "\n-------------------------\n".
	  "      Proxy Checker      \n".
	  "-------------------------\n";

my $optList;
my $optSave;
my $optUrl;
my $optTime;
my $optHelp;
my $rTime;
my $rAlvo;

	GetOptions('list|l=s'  => \$optList,
			   'url|u=s'     => \$optUrl,
			   'time|t=s'    => \$optTime,
			   'save|s=s'       => \$optSave,
			   'help|h'    => \$optHelp,
			  );


	if ($optHelp) {
		print "Usage: $0 [comando]\n".
			  "[+] Comandos:\n".
			  "--help [Ajuda com os comandos]\n".
			  "--list [Seleciona sua lista de proxys]\n".
			  "--url  [Url na hora de dar o GET]\n".
			  "       [Defaut http://google.com]\n".
			  "--time [Tempo de resposta]\n".
			  "       [Defaut 15]\n".
			  "--save [Onde as proxys boas serao salvas]\n\n".
			  "[!] Exemplos:\n".
			  "perl $0 --list list.txt --url http://myhost.com --time 10 --save god_proxys.txt\n".
			  "perl $0 --list list.txt --save god_proxys.txt\n";
		exit;
	}

	if ($optUrl) {
		if ($optUrl) {
			$rAlvo = $optUrl;
		} else {
			die "$0: url invalida.\n";
		}
	} else {
		$rAlvo = "http://google.com";
	}

	if ($optTime) {
		if ($optTime =~ /^\d+$/) {
			$rTime = $optTime;
		} else {
			die "$0: tempo invalido.\n";
		}
	} else {
		$rTime = "15";
	}


if($banner <= 1){
	print "\nCoder: v4p0r\n" .
	"Team: Yunkers Crew && BRLZ PoC\n" .
	"Twitter: 0x777null".
	"Skype: drx.priv\n\n" .
	"Usage: perl $0 --help\n";

	exit;
}


	open(my $list1,'<', $optList);
	my @proxy1 = <$list1>;

	print "[+] Site: ".$rAlvo."\n";
	print "[+] Time: ".$rTime."\n";
	print "[+] ".scalar(@proxy1)." Quantidade de proxy a ser checada\n\n";

	foreach my $prxs (@proxy1) {

	my $ua = LWP::UserAgent->new;
       $ua->timeout($rTime);

    my $proxy = "http://".$prxs;
	   $ua->proxy('http', $proxy);

    my $resposta = $ua->get($rAlvo);

		if ($resposta->is_success)
	{
        print "[+] God Proxys: $prxs";

		    open(my $fh, '>>', $optSave);
			print $fh "$prxs";
			close $fh;
    } else {
		print "[-] Fail Proxys: $prxs";
    }
}