PERL   22

88 pl

Guest on 24th June 2022 02:49:49 AM

  1. #!/usr/local/bin/perl
  2. #by IV ' lost
  3. use MIME::Base64;
  4. $ARGC=@ARGV;
  5.  
  6. if ($ARGC !=4) {
  7.   printf "$0 <mailist> <remetente> <assunto> <fake.htm>\n\n";
  8.  exit(1);
  9. }
  10.  
  11. $sendmail = '/usr/sbin/sendmail';
  12.  
  13. $sender = $ARGV[1];
  14.  
  15. $subject = $ARGV[2];
  16.  
  17. $efile = $ARGV[0];
  18.  
  19. $emar = $ARGV[0];
  20.  
  21. open(FOO, $ARGV[3]);
  22.  
  23. @foo = <FOO>;
  24.  
  25. open (BANDFIT, "$emar") || die "Can't Open $emar";
  26.  
  27. $cont=0;
  28.  
  29. while(<BANDFIT>)        {
  30. ($ID,
  31.  $options) = split(/\|/,$_);
  32. chop($options);
  33.   foreach ($ID) {
  34. $r2 = int(rand(99));
  35. $r3 = int(rand(999));
  36. $r4 = int(rand(9999));
  37. $r5 = int(rand(99999));
  38. $r6 = int(rand(999999));
  39. $r7 = int(rand(9999999));
  40. $r8 = int(rand(99999999));
  41. $r9 = int(rand(999999999));
  42. $recipient = $ID;
  43. $corpox = join("\n", @foo);
  44. $corpox =~ s/%email%/$ID/g;
  45. $corpox =~ s/%rand1%/$r1/g;
  46. $corpox =~ s/%rand2%/$r2/g;
  47. $corpox =~ s/%rand3%/$r3/g;
  48. $corpox =~ s/%rand4%/$r4/g;
  49. $corpox =~ s/%rand5%/$r5/g;
  50. $corpox =~ s/%rand6%/$r6/g;
  51. $corpox =~ s/%rand7%/$r7/g;
  52. $corpox =~ s/%rand8%/$r8/g;
  53. $corpox =~ s/%rand9%/$r9/g;
  54. $corpo = encode_base64($corpox);
  55.  
  56. $subject =~ s/%email%/$ID/g;
  57. $subject =~ s/%rand1%/$r1/g;
  58. $subject =~ s/%rand2%/$r2/g;
  59. $subject =~ s/%rand3%/$r3/g;
  60. $subject =~ s/%rand4%/$r4/g;
  61. $subject =~ s/%rand5%/$r5/g;
  62. $subject =~ s/%rand6%/$r6/g;
  63. $subject =~ s/%rand7%/$r7/g;
  64. $subject =~ s/%rand8%/$r8/g;
  65. $subject =~ s/%rand9%/$r9/g;
  66.  
  67. $sender =~ s/%rand4%/$r4/g;
  68.  
  69. open (SENDMAIL, "| $sendmail -t");
  70. print SENDMAIL "MIME-Version: 1.0\n";
  71. print SENDMAIL "Content-type:  text/html; charset=UTF-8\n";
  72. print SENDMAIL "Content-Transfer-Encoding: base64\n";
  73. #print SENDMAIL "$mailtype\n";
  74. print SENDMAIL "Subject: $subject\n";
  75. print SENDMAIL "From: $sender\n";
  76. print SENDMAIL "To: $recipient\n";
  77. print SENDMAIL "$corpo\n\n";
  78. close (SENDMAIL);
  79.  
  80. $cont=$cont+1;
  81.           printf "Shimity enviado para >-> $recipient"; #eu tirei o contador de envios porque o contador é zerado na hora da pausa
  82.  
  83.                                                                                                                                                           #e o cantador volta ao zero
  84.  
  85.                   if ( $cont==500 )  {#aqui você determina a quantidade de e-mail a ser enviada no caso está limitada para 200
  86. 00
  87.                  
  88.                   print "Pausa durante 30 minutos! Relaxa garoto,logo termina. . .  \n";
  89.                   sleep(1800#aqui você determinar o tempo que será a pausa em segundos
  90. ndos
  91.                   $cont=0;
  92.                   printf "Continuando. . .\n";
  93.                  
  94.                   }
  95.  
  96.        }
  97.     }
  98.     close(BAND

Raw Paste


Login or Register to edit or fork this paste. It's free.