Welcome to Shadow Network

Seja bem-vindo ao nosso fórum, registre-se para poder interagir em nosso fórum

Entre para seguir isso  
Seguidores 0
H3LLS1NG

[SOURCE]
IRC Spam Bot

2 posts neste tópico

Olá, este é um bot de IRC feito em 2004~2006 para spam de msg em servidores IRC

#!/usr/bin/perl
#
#ircbot <= 0.01 irc spam bot
#
#© 2004-2006 Esoteric Code
#simple spam bot for irc. has a timer
#for sending message which works in a for loop
#written by: seven


use IO::Socket;
$channel ="#channel name";
$Host = "irc.server.net";
$Port = 6667;
$nick = "seven";
$email = "code 8 * :esotericcode.com";

@alternate = ('amen_Ra',
              'seven',
              'basic_code');

@resp = ('I am a IRC bot coded in perl.', #random spam messages
         'visit http://www.sevenz.net.',
         'hey, how are you.',
         'esoteric code.com.',
         'how was your day?',
         'hey, blow me',
         'i am sexier than you');


my $sock = new IO::Socket::INET(
                                PeerAddr => $Host,
                                PeerPort => $Port,
                                Proto => 'tcp',
                               ) || die "No connection $!\n";

print $sock "NICK $nick\r\n";
print $sock "USER $email\r\n";

while ($input = <$sock>)
{
  if ($input =~ /004/){
    last;
  }
  elsif ($input =~ /433/){
                    #nick already taken, auto switch to an alternate randomly from list
                    $a = int(rand($#alternate));
                    $newnick = $alternate[$a];
                    print $sock "NICK $newnick\r\n";     
  }
 
}
    print $sock "JOIN $channel\r\n";                
                   
while ($input = <$sock>)
{
    chop $input;
    if ($input =~/^PING(.*)$/i){
        print $sock "PONG $1\r\n";
        print $sock "PRIVMSG $channel :irc bot coded in perl -> http://www.sevenz.net\r\n";
    }

     elsif ($input =~/!start(.*)/){

        for ($i = 0; $i < 20; ++$i)
        {
        $r = int(rand($#resp));
        $message = $resp[$r];
        print $sock "PRIVMSG $channel :$message\r\n";
        sleep(10)
        }
       
    }
      elsif ($input =~/!time(.*)/){
        $time = time();
        print $sock "PRIVMSG $channel :local time/date: $time\r\n";
    }
    else{
    #@tmp = split(/:/, $input);
    print $input #$tmp[1]
}
    
}

 

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Entre para seguir isso  
Seguidores 0

Shadow Network

Seja Bem-Vindo ao nosso fórum, construído com o intuito de compartilhar idéias e conhecimentos ao alcance de qualquer pessoa que tenha vontade de aprender.

Atencao

Em caso de bugs/erros no forum, entre em contato com algum membro da equipe.