./c0de/perl/zonehposter.txt

0.
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.
#!/usr/bin/perl
#
# ZONE-H.ORG CHECK REDEFACEMENTS AND POST.
#
# by W4n73d  [ Red Eye Crew. ]
#
# ( ONLY WORK IN LINUX. )
#
#
# # # # # # #
use HTTP::Request;
use LWP::UserAgent;
use IO::Socket::INET;
# # # # # # #
if ($#ARGV != 1) {
        print "\n\n [xxxxxxxxxxxxxxx] ZONE-H CHECK AND POST [xxxxxxxxxxxxxxxx] \n";
        print " [x] C0de by W4n73d\n";
        print " [x] \n";
        print " [x] $0 Dominios.txt Defacer-Nick\n\n";
        exit;
}
 
 
 
$dominio=$ARGV[0];
$grupo=$ARGV[1];
 
$remote='http://www.zone-h.org/component/option,com_attacks/Itemid,43/filter_domain,';
 
print "\n [x] Removing the redefacements and posting the sites! Wait..\n\n";
 
open(HOSTS, "<$dominio") || die ("Not found!");
@hosts= <HOSTS>;
close(HOSTS);
 
foreach $vitima (@hosts) {
chomp($vitima);
if($vitima =~ http) { substr($vitima, 0, 7) =""; }
 
$url2="$remote$vitima";
my $req=HTTP::Request->new(GET=>$url2);
my $sockz=LWP::UserAgent->new();
$sockz->timeout(10);
my $response=$sockz->request($req);
 
if ($response->is_success) {
if( $response->content =~ /No results were found/ ) {
open(FILE,">> ok.txt");
print FILE "$vitima\n";
close(FILE);
}
# # # # # #
$arq = 'ok.txt';
chomp $grupo;
open(a,"<$arq");
@site = <a>;
close(a);
$b = scalar(@site);
for($a=0;$a<=$b;$a++)
{chomp $site[$a];
$sock = IO::Socket::INET->new(PeerAddr => "www.zone-h.org", PeerPort => 80, Proto => "tcp") or next;
print $sock "POST /component/option,com_notify/Itemid,89/task,single/ HTTP/1.0\r\n";
print $sock "Accept: */*\r\n";
print $sock "Referer: http://www.zone-h.org/component/option,com_notify/Itemid,89/task,single/\r\n";
print $sock "Accept-Language: pt-br\r\n";
print $sock "Content-Type: application/x-www-form-urlencoded\r\n";
print $sock "Connection: Keep-Alive\r\n";
print $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; pt-BR; rv:1.8.1.3)\r\n";
print $sock "Host: www.zone-h.org\r\n";
$length=length("defacer=$grupo&domain=http%3A%2F%2 F$site[$a]&method=22&reason=5&option=com_notify");
print $sock "Content-Length: $length\r\n";
print $sock "Pragma: no-cache\r\n";
print $sock "\r\n";
print $sock "defacer=$grupo&domain=http%3A%2F%2F$site[$a]&method=22&reason=5&option=com_notify\r\n";
close($sock);
system('rm -rf ok.txt');
}
}
}
 
 

Back