Changeset 335

Timestamp:

04/15/10 13:49:01 (3 years ago)

Author:

mao

Message:

Improved jru-autoreg.pl

Location:

trollforge/mao/xmpp-ruin

Files:

• gen_nick.pl (added)
• jid-ruin.pl (modified) (2 diffs)
• jru-autoreg.pl (modified) (4 diffs)
• room-ruin.pl (modified) (3 diffs)

trollforge/mao/xmpp-ruin/jid-ruin.pl

@@ -5 +5 @@
 use AnyEvent::XMPP qw/xep-86/;
 use AnyEvent::XMPP::Client;
-use Encode;
 
-binmode STDOUT, ":utf8";
+die "usage: $0 <target jid>" unless $ARGV[0];
 
+my $target = $ARGV[0];
 my $j = AnyEvent->condvar;
 
@@ -36 +36 @@
                  print "Connected!\n";
                  #print Dumper($_[0]);
-                 $cl->send_message ("Connected!" => 'd@jabbim.com');
-                 #sleep 5;
+                 $cl->send_message ("LOL" => $target, $cl->get_account($user), 'normal');
+                 $cl->send_message ("LOL" => $target, $cl->get_account($user), 'error');
+                 $cl->send_message ("LOL" => $target, $cl->get_account($user), 'headline');
                  0
                },

trollforge/mao/xmpp-ruin/jru-autoreg.pl

@@ -11 +11 @@
 use MIME::Base64;
 
-#use Data::Dumper;
+require 'gen_nick.pl';
+use Data::Dumper;
 
 # SET THIS SHIT UP
-# gmail mailbox: <something>@gmail.com
-my $gmail = "bla";
+# gmail mailbox:
+my $gmail = "gnar.official";
 # gmail password:
-my $gm_pass = "bla";
+my $gm_pass = "1iamname";
 # path to web dir (file will be saved as 'captcha.jpg'):
-my $www_path = "/home/bla/www";
-
+my $www_path = "/home/mao/www";
+# password for new JID
+my $pass_word = "FUCK_YOU";
 
 my $m = WWW::Mechanize->new();
@@ -30 +32 @@
 
 my $form = $m->form_number(2);
-my @chars = ('a'..'z', '0'..'9');
-my $uname = "urmom".int(rand(666)).$chars[rand @chars].$chars[rand @chars].$chars[rand @chars].$chars[rand @chars];
+my $uname = gen_nick();#"urmom".int(rand(666)).$chars[rand @chars].$chars[rand @chars].$chars[rand @chars].$chars[rand @chars];
 $m->field("username", $uname);
 $m->field("name", "FUCK OFF");
 $m->field("fam","lol");
 $m->field("gorod","lol");
-$m->field("email",$gmail."+".int(rand(200)).$chars[rand @chars].$chars[rand @chars].$chars[rand @chars]."\@gmail.com");
+$m->field("email",$gmail."+".int(rand(100))."\@gmail.com");
 print "Input captcha: ";
 my $a = <STDIN>;
@@ -52 +53 @@
 }
 
-sleep 5;
+sleep 2;
 
 my $activate_url = "http://reg.jabber.ru/continuereg/";
@@ -79 +80 @@
 $form = $m->form_number(1);
 $m->field("username", $uname);
-$m->field("pass", "FUCKOFF");
-$m->field("pass2","FUCKOFF");
-
+$m->field("pass", $pass_word);
+$m->field("pass2",$pass_word);
+#$m->field("name","lol");
+#$m->field("fam", "lol");
+#$m->field("email",$gmail."+".int(rand(100))."\@gmail.com");
+#print "Input captcha: ";
+#my $a = <STDIN>;
+#chomp $a;
+#$m->field("user_code",$a);
 $m->click();
 if($m->content =~ m{буЎет сПзЎаМ через 1 ЌОМуту}) {
-  print "$uname\@jabber.ru:FUCKOFF";
+  print ":)\n";
+  `echo "$uname\@jabber.ru:$pass_word" >> accounts.txt`
 } else {
   print "Something went wrong at the last stage!\n";

trollforge/mao/xmpp-ruin/room-ruin.pl

@@ -71 +71 @@
                  
                  #print Dumper($msg);
-#                $muc->reg_cb(
-        #                     enter => sub {
-                #               my ($room, $user) = @_;
-                        #       print Dumper($room->get_users());
-                         #     });
+                 #$muc->reg_cb(
+                 #            enter => sub {
+                 #              my ($room, $user) = @_;
+                 #     });
                  $muc->reg_cb(
                               message => sub {
                                 my ($cl, $room, $msg, $is_echo) = @_;
                                 my $repl = $msg->make_reply;
-                                $repl->add_body("NIGGERS JEWS BAD NEWS\n\n\n\n　　\\n");
+                                $repl->add_body("NIGGERS JEWS BAD NEWS\n\n\n\n　　\n");
                                 $repl->send;
                                 foreach my $faggot($room->get_users()) {
-                                  my $pid = fork();
-                                  unless($pid==0 OR $faggot->nick eq 'Hit-ler') {
+                                  #my $pid = fork();
+                                  unless($faggot->nick eq 'Yulya___' || $faggot->nick eq '/B/_WARRIOR_TOHOU_HERO') {
                                     my $u_msg = $faggot->make_message(body=>"lol u suck", type=>'headline');
                                     $u_msg->send();
@@ -91 +90 @@
                                     $u_msg = $faggot->make_message(body=>"lol u suck", type=>'error');
                                     $u_msg->send();
+                                  #  exit()
                                   }
                                 }
@@ -137 +137 @@
 
 #my $timer = 
-#      $cl->send_message ("Hello!" => 'd@jabbim.com');
+#      
 
 $j->wait;