Segue o poster do Zone-h facilita bastante as coisas.
Att: Cr4t3r
Código HTML:
#!/usr/bin/perl print "\t\t########################################################\n\n"; print "\t\t# Z0ne-h Poster #\n\n"; print "\t\t########################################################\n\n"; if(!@ARGV[1]){ print "\t\t\n\n"; print "\t\tZone-H 2010 -\n\n"; print "\t\tZone-H: perl zoneh.pl <domain list> <username>\n\n"; exit; } $arq = @ARGV[0]; $grupo = @ARGV[1]; chomp $grupo; open(a,"<$arq"); @site = <a>; close(a); $b = scalar(@site); for($a=0;$a<=$b;$a++) {chomp $site[$a]; if($site[$a] =~ /http/) { substr($site[$a], 0, 7) =""; } print "[+] Postalandi $site[$a]\n"; use IO::Socket::INET; $sock = IO::Socket::INET->new(PeerAddr => "www.zone-h.org", PeerPort => 80, Proto => "tcp") or next; print $sock "POST /notify/single HTTP/1.0\r\n"; print $sock "Accept: */*\r\n"; print $sock "Referer: http://www.zone-h.org/notify/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/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\r\n"; print $sock "Host: www.zone-h.org\r\n"; $length=length("defacer=$grupo&domain1=http%3A%2F% 2F$site[$a]&hackmode=17&reason=1"); print $sock "Content-Length: $length\r\n"; print $sock "Pragma: no-cache\r\n"; print $sock "\r\n"; print $sock "defacer=$grupo&domain1=http%3A%2F%2F$site[$a]&hackmode=17&reason=1\r\n"; close($sock); }
Att: Cr4t3r