ANTICHAT - Показать сообщение отдельно

автореггер jid'ов на xim.ca
автор: eLwaux
perl:
PHP код:

		
			
#! /usr/bin/perl -w



use IO::Socket;

use warnings;

use threads;

use threads::shared;

use Fcntl ':flock';



#================================================================================

#================================================================================



my $EMAIL           =  '';



my $names          =  'names.txt';

my $threads          =  shift || 15;



my $DEBUG           = 0;



#================================================================================

#================================================================================



sub s2f {

    open(FILE, '>>'.$_[0]) || die(" [-] could not save file!\n");                                

    flock(FILE, LOCK_EX);

    print FILE $_[1];

    flock(FILE, LOCK_UN);

    close(FILE);

}



sub generate_random_string

{

    my $length_of_randomstring=shift;# the length of 

             # the random string to generate



    my @chars=('a'..'z','A'..'Z','0'..'9','_');

    my $random_string;

    foreach (1..$length_of_randomstring) 

    {

        $random_string.=$chars[rand @chars];

    }

    return $random_string;

}



#========================

#== start.. =============

#================================================================================



open (FILE, '<'.$names) || die(" [-] ".$names." not found!\n");

my @NAMES : shared = <FILE>;

chomp(@NAMES);

close(FILE);



if ($DEBUG == 1) {s2f('DEBUG',"=======\n\n\n");}

print  "\n   ] xim.ja NAMES spammer\n";

print  "   ] eLwaux(c)2009\n\n";

print  "   ] reg: ".(scalar(@NAMES))." accs\n\n";



$time      = time; 

printf " [ ] started [".localtime()."]\n\n";

print  " ".("-"x40)."\n";



for(0..$threads) {$trl[$_] = threads->create(\&Spam, $_);}

for(@trl) { $_->join; }



print  " ".("-"x40)."\n";

$time = time-$time;

printf "\n [ ] finished [".localtime()."]\n";

printf " [i] time elapsed: $time sec\n";



<stdin>;

exit;



sub Spam{



    while(@NAMES)

    {    

        {lock(@NAMES);

         $NAMES = shift @NAMES;}

        

        my $PASSWORD = generate_random_string(int(rand(20)+10));

        

        my $post    = '';

        my $header  = "POST http://xim.ca:9090/plugins/registration/sign-up.jsp?username=".$NAMES."&name=".$NAMES."&email=&password=".$PASSWORD."&passwordConfirm=".$PASSWORD."&create=Create+Account

 HTTP/1.1\r\n".

               "Host: xim.ca:9090\r\n".

               "User-Agent: HeMa\r\n".

               "Content-Type: application/x-www-form-urlencoded\r\n".

               "Connection: Close\r\n".

               "Referer: Referer: http://xim.ca:9090/plugins/registration/sign-up.jsp?success=true\r\n".

               "Cookie: JSESSIONID=jejejejejeje\r\n".

               "Content-Length: ".length($post)."\r\n\r\n".

               "$post\r\n\r\n";

        my $sock = sock();

        print $sock $header;

        read($sock,my $answ,10000);

        close($sock);

        

        if ($DEBUG == 1) {s2f('DEBUG',$answ);}

        

        

        if ($answ =~ /sign.up.user_exist/) {

            print " [-] ".$NAMES."\n";

        }

        else {

            print " [+] ".$NAMES.':'.$PASSWORD."\n";

            s2f('result',$NAMES.'@xim.ca : '.$PASSWORD."\n");

        }



    }

}













#=============================================================================

#=============================================================================





#create new socket connection

sub sock {

    my $sock;

    do {

        $sock = new IO::Socket::INET 

            (

                PeerAddr => 'xim.ca',

                   PeerPort => 9090,

                   PeerProto => 'tcp', 

                   TimeOut => 10

            ) or print "[-] connection error!";

        } while (!$sock);

    return $sock;

}



#=============================================================================

#=============================================================================