Advertisement
Guest User

Untitled

a guest
Apr 6th, 2018
159
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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 "$cont * Enviado para > $recipient";
  82.  
  83. }
  84.  
  85. }
  86.  
  87. close(BANDFIT);
Advertisement
RAW Paste Data Copied
Advertisement