joaorubens
(usa Outra)
Enviado em 01/03/2013 - 20:55h
#!/usr/local/bin/perl
## use: perl file.pl mailist.txt "Joao <joao.rubens2021@bol.com.br>" "Ola amigos vejam meu convite ai!!!" fake.html
$ARGC=@ARGV;
if ($ARGC !=4) {
printf "$0 <mailist> <remetente> <assunto> <fake.html>\n\n";
#printf "Crazy MassSpam By Honda - (PsychoPhobia Crew Since 2002)";
exit(1);
}
$mailtype = "content-type: text/html";
$sendmail = '/usr/sbin/sendmail';
$sender = $ARGV[1];
$subject = $ARGV[2];
$efile = $ARGV[0];
$emar = $ARGV[0];
$count=1;
open(FOO, $ARGV[3]);
@foo = <FOO>;
$corpo = join("\n", @foo);
open (BANDFIT, "$emar") || die "Can't Open $emar";
while(<BANDFIT>) {
($ID,
$options) = split(/\|/,$_);
chop($options);
foreach ($ID) {
$recipient = $ID;
open (SENDMAIL, "| $sendmail -t");
print SENDMAIL "$mailtype\n";
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $sender\n";
print SENDMAIL "To: $recipient\n\n";
print SENDMAIL "$corpo\n\n";
close (SENDMAIL);
printf "Sending... para $recipient [ -> $count ] hash";
$count++;
}
}
close(BANDFIT);