Un simple script para hacer spam molesto a cada uno de los usuarios que esten en en canal , el spam lo
pueden editar con una pagina cualquiera o lo que quieran promocionar.

#!usr/bin/perl
#IRC Spam 0.3
#Coded By Doddy H
 
use IO::Socket;
 
my @msg_users = ( "Hola",         "Chau" );          #Spam to users
my @msg_canal = ( "Hola a todos", "que ondaaa" );    #Spam to canal
my @bots      = ( "Jebus",        "Ramona" );        #Names of the bots
 
&head;
 
unless ( @ARGV == 2 ) {
 
    &sintax;
 
}
else {
 
    print "\n[+] Connecting\n\n";
 
    if (
        my $socket = new IO::Socket::INET(
            PeerAddr => $ARGV[0],
            PeerPort => 6667,
            Proto    => "tcp"
        )
      )
    {
 
        my $nombre = $bots[ rand(@bots) ];
 
        chomp $nombre;
 
        print $socket "NICK $nombre\r\n";
        print $socket "USER $nombre 1 1 1 1\r\n";
        print $socket "JOIN $ARGV[1]\r\n";
 
        print "[+] Spammer Online\n\n";
 
        while ( my $log = <$socket> ) {
 
            chomp $log;
 
            if ( $log =~ /^PING(.*)$/i ) {
                print $socket "PONG $1\r\n";
            }
 
            if ( $log =~ m/:(.*) 353 (.*) = (.*) :(.*)/ig ) {
 
                while (true) {
 
                    my $pro = $4;
 
                    sleep 10;
 
                    print $socket "PRIVMSG $ARGV[1] "
                      . $msg_canal[ rand(@msg_canal) ] . "\r\n";
                    my @nicks = split " ", $pro;
 
                    sleep 3;
 
                    foreach $names (@nicks) {
                        unless ( $nombre eq $names ) {
                            $names =~ s/\@//;
                            print $socket
                              "MSG $names $msg_users[rand(@msg_users)]\r\n";
                            print "[+] Spam : $names !\n";
                        }
                    }
                }
            }
        }
    }
    else {
        print "[-] Error\n";
    }
}
 
&copyright;
 
sub sintax {
    print "\n[+] : $0 <server> <channel>\n";
}
 
sub head {
 
    print qq(
 
 @  @@@@@    @@@@      @@@   @@@@@    @    @     @  @     @  @@@@@  @@@@@ 
 @  @    @  @    @    @   @  @    @   @    @     @  @     @  @      @    @
 @  @    @  @         @      @    @  @ @   @@   @@  @@   @@  @      @    @
 @  @    @  @         @      @    @  @ @   @@   @@  @@   @@  @      @    @
 @  @@@@@   @          @@@   @@@@@  @   @  @ @ @ @  @ @ @ @  @@@@   @@@@@ 
 @  @    @  @             @  @      @   @  @ @ @ @  @ @ @ @  @      @    @
 @  @    @  @             @  @      @@@@@  @  @  @  @  @  @  @      @    @
 @  @    @  @    @    @   @  @     @     @ @  @  @  @  @  @  @      @    @
 @  @    @   @@@@      @@@   @     @     @ @     @  @     @  @@@@@  @    @
 
 
);
 
}
 
sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n\n";
}
 
# The End ?