willysec_id

PHP Mini Mailer

Jul 2nd, 2024 (edited)
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PHP 2.70 KB | Cybersecurity | 0 0
  1. <?
  2.     if (empty($_POST['Sa007'])) {
  3.         $Sa002='';
  4.         $Sa003='';
  5.         $Sa004='';
  6.         $Sa005='';
  7. ?>
  8.     <DIV STYLE="FONT-FAMILY: 'VERDANA';FONT-SIZE: 12px;">
  9.         <FORM NAME="Sa001" METHOD="POST" ACTION="<?=$_SERVER['PHP_SELF']."?".$_SERVER['QUERY_STRING'];?>">
  10.             <P STYLE="MARGIN: 2PX;">
  11.                 <B>N</B>ame Sender:&nbsp;<BR>
  12.             </P>
  13.             <P STYLE="MARGIN: 2PX;">
  14.                 <INPUT TYPE="TEXT" SIZE="45" NAME="Sa002" VALUE="<?=$Sa002 ? $Sa002 : "";?>" STYLE="FONT-FAMILY: 'VERDANA';FONT-SIZE: 12px;">
  15.             </P>
  16.  
  17.             <P STYLE="MARGIN: 2PX;">
  18.                 <B>E</B>-Mail Sender:&nbsp;<BR>
  19.             </P>
  20.             <P STYLE="MARGIN: 2PX;">
  21.                 <INPUT TYPE="TEXT" SIZE="45" NAME="Sa003" VALUE="<?=$Sa003 ? $Sa003 : "";?>" STYLE="FONT-FAMILY: 'VERDANA';FONT-SIZE: 12px;">
  22.             </P>
  23.  
  24.             <P STYLE="MARGIN: 2PX;">
  25.                 <B>S</B>ubject:&nbsp;<BR>
  26.             </P>
  27.             <P STYLE="MARGIN: 2PX;">
  28.                 <INPUT TYPE="TEXT" SIZE="45" NAME="Sa004" VALUE="<?=$Sa004 ? $Sa004 : "";?>" STYLE="FONT-FAMILY: 'VERDANA';FONT-SIZE: 12px;">
  29.             </P>
  30.  
  31.             <P STYLE="MARGIN: 2PX;">
  32.                 <B>M</B>essage:&nbsp;<BR>
  33.             </P>
  34.             <P STYLE="MARGIN: 2PX;">
  35.                 <TEXTAREA COLS="42" ROWS="10" NAME="Sa005" STYLE="FONT-FAMILY: 'VERDANA';FONT-SIZE: 12px;"><?=$Sa005 ? htmlspecialchars(base64_decode($Sa005)) : "";?></TEXTAREA>
  36.             </P>
  37.  
  38.             <P STYLE="MARGIN: 2PX;">
  39.                 <B>L</B>ist Mail Receiver:&nbsp;<BR>
  40.             </P>
  41.             <P STYLE="MARGIN: 2PX;">
  42.                 <TEXTAREA COLS="42" ROWS="10" NAME="Sa006" STYLE="FONT-FAMILY: 'VERDANA';FONT-SIZE: 12px;"></TEXTAREA>
  43.             </P>
  44.  
  45.             <P STYLE="MARGIN: 2PX;">
  46.                 <INPUT TYPE="SUBMIT" NAME="Sa007" VALUE="Go!" STYLE="FONT-FAMILY: 'VERDANA';FONT-SIZE: 12px;BORDER: 1PX Solid #000000;"></TEXTAREA>
  47.             </P>
  48.         </FORM>
  49.     </DIV>
  50. <?
  51.     } else {
  52.         @set_time_limit(0);
  53.         $Sa=$_POST['Sa002'];
  54.         $Sb=$_POST['Sa003'];
  55.         $Sc=$_POST['Sa004'];
  56.         $Sd=$_POST['Sa005'];
  57.         $Se=$_POST['Sa006'];
  58.         $Sf=explode("\n",$Se);
  59.         $Sg=sizeof($Sf);
  60.         function xsend($Xa,$Xb,$Xc,$Xd,$Xe) {
  61.                 $Xf = "MIME-Version: 1.0\n";
  62.                 $Xf .= "Content-Type: text/html; charset=ISO-8859-1\n";
  63.                 $Xf .= "Content-Transfer-Encoding: 7bit\n";
  64.                 $Xf .= "Content-Disposition: inline\n";
  65.                 $Xf .= "From: \"".$Xa."\" <".$Xb.">\n";
  66.                 return @mail($Xc,$Xd,"\n".stripslashes($Xe)."\n",$Xf);
  67.         }
  68.         $Sz=1;
  69.         print("<DIV STYLE=\"FONT-FAMILY: 'Courier New';FONT-SIZE: 13px;\">");
  70.         foreach($Sf as $Sh) {
  71.             $Si=trim($Sh);
  72.             $Sj=xsend($Sa,$Sb,$Si,$Sc,$Sd);
  73.             if (!empty($Sj)) {
  74.                 print("<P STYLE=\"MARGIN: 2PX;COLOR: #0000FF;\">");
  75.                 print("[{$Sz}/{$Sg}] [&nbsp;&nbsp;OK&nbsp;&nbsp;] Sending...: {$Si}!");
  76.                 print("</P>");
  77.             } else {
  78.                 print("<P STYLE=\"MARGIN: 2PX;COLOR: #FF0000;\">");
  79.                 print("[{$Sz}/{$Sg}] [Failed] Sending...: {$Si}!");
  80.                 print("</P>");
  81.             }
  82.             $Sz++;
  83.         }
  84.         print("</DIV>");
  85.     }
  86. ?>
Add Comment
Please, Sign In to add comment