Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <?
- foreach($_POST as $nombre_campo => $valor){
- $asignacion = "\$" . $nombre_campo . "='" . $valor . "';";
- eval($asignacion);
- }
- ?>
- <html>
- <head>
- <title>PHP Mailer (ZOLERHACK)</title>
- <center><img src="http://fotos.subefotos.com/494b4b77f8f2bef17ebb0f02cbba7686o.png">
- <!-- Just Style (Begin) -->
- <style type="text/css">
- body {
- background-color:#000000;
- font-family:courier;
- font-size:12;
- color:#00ff00;
- }
- input {
- background-color:#FFFFFFF;
- font-family:arial;
- font-size:12;
- color:#000000;
- }
- textarea {
- background-color:#FFFFFF;
- font-family:arial;
- font-size:12;
- color:#000000;
- }
- </style>
- <!-- Just Style (End)) --> </head>
- <body bgcolor=#FFFFFF text=#00ff00 link=#00ff00 alink=#00ff00 vlink=#00ff00>
- <?
- if ($action=="send") {
- $message = urlencode($message);
- $message = ereg_replace("%5C%22", "%22", $message);
- $message = urldecode($message);
- $message = stripslashes($message);
- $subject = stripslashes($subject);
- }
- ?>
- <form name="form1" method="post" action="?" enctype="multipart/form-data">
- <pre>
- Tu Email : <input type="text" name="from" value="<? print $from; ?>" size="30">
- Tu Nombre : <input type="text" name="realname" value="<? print $realname; ?>" size="30">
- Replica Para: <input type="text" name="replyto" value="<? print $replyto; ?>" size="30">
- Adjuntar : <input type="file" name="file" size="30">
- Asunto : <input type="text" name="subject" value="<? print $subject; ?>" size="30">
- Mensaje : <textarea name="message" cols="50" rows="6"><? print $message; ?></textarea>
- <input type="radio" name="contenttype" value="plain"> Plain <input type="radio" name="contenttype" value="html" checked> HTML
- Correo(s) : <textarea name="emaillist" cols="50" rows="6"><? print $emaillist; ?></textarea>
- </pre>
- <input type="hidden" name="action" value="send">
- <input type="submit" value="Enviar Correo">
- </form>
- <center> ZolerHack No se hace responsable del mal uso que se el usuario le de a la herramienta</center>
- <?
- if ($action=="send") {
- $allemails = split("\n", $emaillist);
- $numemails = count($allemails);
- #Open the file attachment if any, and base64_encode it for email transport
- if ($file_name) {
- @copy($file, "./$file_name") or die("File cannot Uploaded to Server");
- $content = fread(fopen($file,"r"),filesize($file));
- $content = chunk_split(base64_encode($content));
- $uid = strtoupper(md5(uniqid(time())));
- $name = basename($file);
- }
- for($x=0; $x<$numemails; $x++){
- $to = $allemails[$x];
- if ($to) {
- $to = ereg_replace(" ", "", $to);
- $message = ereg_replace("&email&", $to, $message);
- $subject = ereg_replace("&email&", $to, $subject);
- print "Sent to $to";
- flush();
- $header = "From: $realname <$from>\r\nReply-To: $replyto\r\n";
- $header .= "MIME-Version: 1.0\r\n";
- if ($file_name) $header .= "Content-Type: multipart/mixed; boundary=$uid\r\n";
- if ($file_name) $header .= "--$uid\r\n";
- $header .= "Content-Type: text/$contenttype\r\n";
- $header .= "Content-Transfer-Encoding: 8bit\r\n\r\n";
- $header .= "$message\r\n";
- if ($file_name) $header .= "--$uid\r\n";
- if ($file_name) $header .= "Content-Type: $file_type; name=\"$file_name\"\r\n";
- if ($file_name) $header .= "Content-Transfer-Encoding: base64\r\n";
- if ($file_name) $header .= "Content-Disposition: attachment; filename=\"$file_name\"\r\n\r\n";
- if ($file_name) $header .= "$content\r\n";
- if ($file_name) $header .= "--$uid--";
- mail($to, $subject, "", $header);
- print " ---> Sent (<b>OK</b>) <br>";
- flush();
- }
- }
- }
- ?>
- </body>
- </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement