[Perl] IRC Spam 0.3

[BigBear]

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.

Código (perl) [Seleccionar] Expandir


#!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 ?