sQuo Posted February 19, 2014 Share Posted February 19, 2014 [LENGUAJE=perl] Zone-h.org Mass Deface Poster __ __ _ _ _ ___ \ \/ /_ __ | | ___ (_) |_ ___ _ __ ___ / __\ __ _____ __ \ /| '_ \| |/ _ \| | __/ _ \ '__/ __| / / | '__/ _ \ \ /\ / / / \| |_) | | (_) | | || __/ | \__ \ / /__| | | __/\ V V / /_/\_\ .__/|_|\___/|_|\__\___|_| |___/ \____/_| \___| \_/\_/ |_| #!/usr/bin/perl print "\t\t########################################################\n\n"; print "\t\t# Zone-h.org Mass Deface #\n\n"; print "\t\t########################################################\n\n"; if(!@ARGV[1]){ print "\t\tthx thehacker for this perl code...\n\n"; print "\t\tmy msn D3nGeR [at] HotmaiL [dot] CoM\n\n"; print "\t\tHow To Use: perl zone.pl \n\n"; exit; } $arq = @ARGV[0]; $grupo = @ARGV[1]; chomp $grupo; open(a," @site = ; close(a); $b = scalar(@site); for($a=0;$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 /component/option,com_notify/Itemid,89/task,single/ HTTP/1.0\r\n"; print $sock "Accept: */*\r\n"; print $sock "Referer: This is the hidden content, please Sign In or Sign Up "; 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&domain=http%3A%2F%2F$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); } [/LENGUAJE] Link to comment Share on other sites More sharing options...
Recommended Posts