Mass Zone-h Poster

[illuminat]

Quand tu fait une mass défasse d'un Server quelconque, c'est certes que tu passe enregistrer ton travail sur zone-h ca prend du temps C'est sur .Donc pour facilite la tache on utilise ce script qui fait tous en quelque étapes facile voila.

#!/usr/bin/perl
###################################################
#       Priv8 ... Priv8 ... Priv8 ... Priv8 ... Priv8 ... Priv8 ... Priv8          #
#                             #
#    Priv8 Single & Mass Zone-h Poster  No.2 [ without http:// ]       #
#                              #
#           By nEt^DeViL [ aB0 m0h4mM3d ] Copyright© 2009         #
#                             #
#                                 Saudi Arabia Coder r0x xD              #
#                               #
#                    []             #
#                                   #
###################################################
###################################################
###################################################
    print "\n+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n";
    print "\n";
    print "::::::[+] Single & Mass Zone-h Poster By nEt^DeViL .. 2oO9 .. [+]:::::::\n";
    print "\n";
    print "                   [ without http:// ]\n";
    print "\n               Usage: $0 boxes.txt DefacerName\n";
    print "\n";
print "\n+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n";
    print "\n";
    print ":::::::    Very Important for DefacerName and boxes.txt    ::::::: \n";
    print "\n";
    print "\n[+] This Mass Accepts Normal Nick Names .. for Example: aB0%20m0h4mM3d .. %20 = SPACE between aB0 m0h4mM3d";
    print "\n";
    print "\n[+] This Mass Accepts marks like - for Example: SYRIAN-HACKER";
    print "\n";
    print "\n[+] This Mass Accepts marks like ^ ..  for Example:  nEt%5EDeViL .. %5E = ^ .. use the URL hEx Encoder to other marks";
    print "\n";
    print "\n";
    print "[+] The sites inside >> boxes.txt must be Like:\n";
    print "\n    www.site.com OR site.com ";
    print "\n";
    print "\n+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n";
    print "\n";
    print "\n:::::::    Special Greetz    :::::::";
    print "\nAbu Zahrah || SYRIAN-HACKER || ZombiE_KsA || xOOmxOOm || Saudi|x || Kerem125 || Agd_Scorp";
    print "\n";
    print "\n+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n";
###################################################
###################################################
###################################################
my $list = $ARGV[0];
my $defacer = $ARGV[1];
if ($ARGV[0] && $ARGV[1]) {
open (sites, "$list") or die "Cannot Open list";
@owned = <sites>;
foreach $owned (@owned)
{
&notifyForm;
}
sub notifyForm
{
use IO::Socket::INET;
my $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 "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";
print $sock "Content-Length: 385\r\n";
print $sock "Pragma: no-cache\r\n";
print $sock "\r\n";
print $sock "defacer=$defacer&domain1=http%3A%2F%2F$owned&hackmode=18&reason=1&submit=+Send+\r\n";
close($sock);
print " nEt^DeViL is it Notified !? $owned ... [Yes Man!]\n";
print "**********************************************************\n";
}
print "Oh , Yeah !!!... I notified them 4ll by E45y Single & Mass Zone-h Notification  ###54ud! 4r4b!4 rlz!###\n";
}
else {
 exit;
}

[GHOS7]

thx pour sa je le cherché nice nice coyot3 ta tous gardé

[illuminat]

GHOS7 يقول

thx pour sa je le cherché nice nice coyot3 ta tous gardé

Oui mon Frere Ghost en profite

[CrashBandicot]

mm. merci je chercher lui en perl