SHARE
TWEET

Untitled

a guest Aug 23rd, 2019 103 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/local/bin/perl
  2. use POSIX;
  3. $hora = strftime("%H:%M:%S", localtime(time));
  4.  
  5.     $ARGC=@ARGV;
  6.     if ($ARGC !=1) {
  7.        printf "[+] Sintaxe; perl $0 list.txt\n";
  8.        exit(1);
  9.     }
  10.  
  11.     $mailtype = "content-type: text/html";
  12.     $sendmail = '/usr/sbin/sendmail';
  13.     $sender = $ARGV[1];
  14.     $subject = "Pagamento pendente : %random%%random%";
  15.     $efile = $ARGV[0];
  16.     $emar = $ARGV[0];
  17.     open(FOO, 'eng.txt');
  18.     @foo = <FOO>;
  19.     $corpo = join("\n", @foo);
  20.     open (BANDFIT, "$emar") || die "Can't Open $emar";
  21.     $cont=0;
  22.     $rotacionar = 0;
  23.  
  24.     while(<BANDFIT>) {
  25.        ($ID,$options) = split(/\|/,$_);
  26.        chop($options);
  27.        foreach ($ID) {
  28.  
  29.         $recipient = $ID;
  30.  
  31.         my $range = 9999999;
  32.         my $range2 = 999999;
  33.         my $range3 = 99999;
  34.     my $rn = int(rand($range));
  35.         my $rn2 = int(rand($range2));
  36.         my $rn3 = int(rand($range3));
  37.     my $rn4 = int(rand($range3));
  38.  
  39.         $assun = $subject;
  40.         $assun =~ s/%email%/$recipient/g;
  41.         $assun =~ s/%random%/$rn2/g;
  42.         $assun =~ s/%hora%/$hora/g;
  43.  
  44.         $copy = $corpo;                          #engenharia
  45.         $copy =~ s/%email%/$recipient/g;
  46.         $copy =~ s/%hora%/$hora/g;
  47.         $copy =~ s/%random%/$rn/g;
  48.  
  49.  
  50.                                           #Sujeito
  51.  
  52.  
  53.         $newsend = "Netflix - ID %prot% <netflix-account";
  54.         $newsend2 = $rn3;
  55.         $newsend3 = ">";
  56.         my $newsendfinal = join "", $newsend, $newsend2, $newsend3;
  57.     #$newsendfinal = $newsend;
  58.     $newsendfinal =~ s/%prot%/$rn4/g;
  59.  
  60.           open (SENDMAIL, "| $sendmail -t");
  61.           print SENDMAIL "$mailtype\n";
  62.           print SENDMAIL "Subject: $assun\n";
  63.           print SENDMAIL "From: $newsendfinal\n";
  64.           print SENDMAIL "To: $recipient\n\n";
  65.           print SENDMAIL "$copy\n\n";
  66.           close (SENDMAIL);
  67.           $cont=$cont+1;
  68.           $rotacionar=$rotacionar+1;
  69.           printf "[+][$cont] Sending: $recipient";
  70.  
  71.           if ($rotacionar > 300) { # Quantidade de e-mails enviada
  72.              printf "[-] Aguarde..\n";
  73.              sleep(100);     #segundos de pausa
  74.              $rotacionar=0; #zerar contador
  75.           }
  76.  
  77.  
  78.        }
  79.     }
  80.     close(BANDFIT);
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top