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.
pueden editar con una pagina cualquiera o lo que quieran promocionar.
Código (perl) [Seleccionar]
#!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";
}
}
©right;
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 ?