O script é muito simples, você usa um servidor SMTP, uma lista TXT com vários endereços, edita o conteúdo da mensagem à sua maneira, e o script envia a mensagem através do servidor SMTP configurado, com sua autenticação, pode ser um Gmail, Hotmail, UOL etc...

A lista com os endereços a ser enviado o e-mail deve estar separada linha por linha.

• Download bkp.mailer.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl

use Net::SMTP::TLS;


# CONFIGURAÇÕES BÁSICAS #

# Autenticação no servidor SMTP
my $servidor="";
my $porta="";
my $user='';
my $pass='';

#Dados do sender
#my $destino='email@servidor.com'; # caso não queira usar uma lista
my $assunto="";
my $email='';

print <<print;
=============================================================================================
 .oooooo..o ooo        ooooo ooooooooooooo ooooooooo.            +-----------------------+
d8P'    `Y8 `88.       .888' 8'   888   `8 `888   `Y88.          |  By KoubackTr / 2014  |
Y88bo.       888b     d'888       888       888   .d88'          |                       |
 `"Y8888o.   8 Y88. .P  888       888       888ooo88P'           |  koubacktr\@gmail.com  |
     `"Y88b  8  `888'   888       888       888                  +-----------------------+
oo     .d8P  8    Y     888       888       888
8""88888P'  o8o        o888o     o888o     o888o

ooo        ooooo       .o                             ooo        ooooo       .o    o8o  oooo
`88.       .888'     .d88                             `88.       .888'     .d88    `"'  `888
 888b     d'888    .d'888    .oooo.o  .oooo.o          888b     d'888    .d'888   oooo   888
 8 Y88. .P  888  .d'  888   d88(  "8 d88(  "8          8 Y88. .P  888  .d'  888   `888   888
 8  `888'   888  88ooo888oo `"Y88b.  `"Y88b.  8888888  8  `888'   888  88ooo888oo  888   888
 8    Y     888       888   o.  )88b o.  )88b          8    Y     888       888    888   888
o8o        o888o     o888o  8""888P' 8""888P'         o8o        o888o     o888o  o888o o888o
=============================================================================================

print


# ARQUIVO COM OS ENDEREÇOS DE EMAIL #

print "[!] Você precisa informar o arquivo de lista com os endereços\n Arquivo: ";
$arquivo = <stdin>;
open(EMAIL,"< $arquivo") or die "FILE NOT FOUND!\n";
chomp(my @destino = <EMAIL>);

#Conexão com o servidor
my $smtp = new Net::SMTP::TLS("$servidor",
   Port    => $porta,
   User    => "$user",
   Password=> "$pass",
   Timeout => 5) || die "[!] Erro ao se conectar ou autenticar com o servidor: $servidor\n";


# PEGANDO ENDEREÇOS NO ARQUIVO INFORMADO #
foreach my $destino (sort @destino){

$smtp->mail("$email");

my @destinatario = ("$destino");
$smtp->recipient(@destinatario);

# DADOS A SEREM ENVIADOS #

$smtp->data();
$smtp->datasend("To: $destino\n");
$smtp->datasend("From: Puliça da Passoca Federal\n");
$smtp->datasend("Content-Type: text/html \n");
$smtp->datasend("Subject: $assunto");
$smtp->datasend("\n");
$smtp->datasend("

<!-- CONTEUDO DA MENSAGEM -->
<br>
<center>
<font size='8'>
<b>TESTE DE EMAIL EM PERL</b>
</font>
</center>

");

$smtp->datasend("\n");
print "\t[+] Enviado para: \t\t\t\ $destino\n";
$smtp->dataend();
}
$smtp->quit;
print "[!] Fim\n";

Script para fazer buscas no arquivo de logs do squid

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

Synner Novo Sys(TCP) Flooder em Perl

Script para X-chat

Buscar Traduções no Google Translate