SPAMMER PERL

#!/usr/local/bin/perl




$ARGC=@ARGV;



if ($ARGC !=4) {

 printf "$0 <mailist> <[email protected]> <assunto> <corpo.html>\n";

 printf "¬¬ priv8 fdp c passa pra frente t mato\n";

 exit(1);

}



$mailtype = "content-type: text/html";



$sendmail = '/usr/sbin/sendmail';



$sender = $ARGV[1];

$subject = $ARGV[2];



$efile = $ARGV[0];

$emar = $ARGV[0];



open(FOO, $ARGV[3]);

@foo = <FOO>;

$corpo = join("\n", @foo);



open (BANDFIT, "$emar") || die "Can't Open $emar";


$cont=0;

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);


$cont=$cont+1;
printf "$cont Enviado para $recipient";









}



}

close(BANDFIT);