Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Scripting. VBS, Batch, Bash, JavaSript. (Moderador: Doddy)
 » 

[Perl] IRC Spam 0.3


Páginas: [1]   Ir Abajo

Autor Tema: [Perl] IRC Spam 0.3  (Leído 19 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Perl] IRC Spam 0.3
« en: Enero 19, 2012, 05:27:18 pm »
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: No puedes ver links Registrate o Login
#!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 ?

En línea
No puedes ver links Registrate o Login
Páginas: [1]   Ir Arriba
Tags:

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
0 Respuestas
476 Vistas 		Último mensaje Enero 24, 2010, 12:26:44 am
por Necrófero
2 Respuestas
442 Vistas 		Último mensaje Mayo 09, 2011, 10:18:35 am
por scout
0 Respuestas
219 Vistas 		Último mensaje Noviembre 03, 2010, 04:15:45 am
por zolo
6 Respuestas
180 Vistas 		Último mensaje Diciembre 14, 2011, 05:25:42 pm
por megad31


SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog
Designed by Smf Personal