Guest User

Untitled

a guest
Aug 23rd, 2019
261
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