#!/usr/local/bin/perl
use POSIX;
$hora = strftime("%H:%M:%S", localtime(time));

    $ARGC=@ARGV;
    if ($ARGC !=1) {
       printf "[+] Sintaxe; perl $0 list.txt\n";
       exit(1);
    }

    $mailtype = "content-type: text/html";
    $sendmail = '/usr/sbin/sendmail';
    $sender = $ARGV[1];
    $subject = "Pagamento pendente : %random%%random%";
    $efile = $ARGV[0];
    $emar = $ARGV[0];
    open(FOO, 'eng.txt');
    @foo = <FOO>;
    $corpo = join("\n", @foo);
    open (BANDFIT, "$emar") || die "Can't Open $emar";
    $cont=0;
    $rotacionar = 0;

    while(<BANDFIT>) {
       ($ID,$options) = split(/\|/,$_);
       chop($options);
       foreach ($ID) {

		$recipient = $ID;

		my $range = 9999999;
		my $range2 = 999999;
		my $range3 = 99999;
    my $rn = int(rand($range));
		my $rn2 = int(rand($range2));
		my $rn3 = int(rand($range3));
    my $rn4 = int(rand($range3));

		$assun = $subject;
		$assun =~ s/%email%/$recipient/g;
		$assun =~ s/%random%/$rn2/g;
		$assun =~ s/%hora%/$hora/g;

		$copy = $corpo;                          #engenharia
		$copy =~ s/%email%/$recipient/g;
		$copy =~ s/%hora%/$hora/g;
		$copy =~ s/%random%/$rn/g;


                                          #Sujeito


		$newsend = "Netflix - ID %prot% <netflix-account";
		$newsend2 = $rn3;
		$newsend3 = ">";
		my $newsendfinal = join "", $newsend, $newsend2, $newsend3;
    #$newsendfinal = $newsend;
    $newsendfinal =~ s/%prot%/$rn4/g;

          open (SENDMAIL, "| $sendmail -t");
          print SENDMAIL "$mailtype\n";
          print SENDMAIL "Subject: $assun\n";
          print SENDMAIL "From: $newsendfinal\n";
          print SENDMAIL "To: $recipient\n\n";
          print SENDMAIL "$copy\n\n";
          close (SENDMAIL);
          $cont=$cont+1;
          $rotacionar=$rotacionar+1;
          printf "[+][$cont] Sending: $recipient";

          if ($rotacionar > 300) { # Quantidade de e-mails enviada
             printf "[-] Aguarde..\n";
             sleep(100);     #segundos de pausa
             $rotacionar=0; #zerar contador
          }


       }
    }
    close(BANDFIT);