Бесплатный скрипт рассылки

Тема в разделе "Open Source", создана пользователем Lunoxod, 1 фев 2008.

Статус темы:
Закрыта.
Модераторы: Amazko, Aste
  1. Lunoxod

    Lunoxod Постоялец

    Регистр.:
    21 янв 2008
    Сообщения:
    60
    Симпатии:
    30
    weirdjoe, Skie, Snout и ещё 1-му нравится это.
  2. abrvalkin

    abrvalkin Создатель

    Регистр.:
    1 фев 2008
    Сообщения:
    11
    Симпатии:
    0
    Да скрипт работает, отлько не могу разобраться как нормальные русские сообщения писать. Люди человеки подскажите пожалуйста!!!

    Добавлено через 5 минут
    от ведь почитати нада))) Всё разобрался!
    Нада найти строчку с charset и заменить на charset=windows-1251
    и ещё находим $header .= "Content-Type: text/ и заменяем на $header .= "Content-Type: text/$contenttype; charset=windows-1251 \r\n";

    Добавлено через 24 минуты
    Попробовал себе отправить 500 сообщений. В результате мэил агент чуть не загнулся :D
    В ходе испытаний нашёл ещё один недочёт. Хост на котором висит скрипт может подписать такую дрянь типа 9D71116C5787@robots-s6.in-solve.hidden :( это можно исправить . После строчки $header .= "Content-Type: text/$contenttype\r\n"; надо добавить $header .= "Message-ID: <9D71116C5787@blablablabla>\r\n" ;;
    Блин а сообщения досих пор приходят уже 783. Сколько ж я отправил.
     
  3. !bogus

    !bogus Постоялец

    Регистр.:
    8 июн 2007
    Сообщения:
    57
    Симпатии:
    5
  4. ewafr

    ewafr Создатель

    Регистр.:
    5 фев 2008
    Сообщения:
    32
    Симпатии:
    1
    Что-то он медленный чересчур!

    Что-то он медленный чересчур!
    У кого как?
     
  5. fuckthesystem

    fuckthesystem Создатель

    Регистр.:
    29 дек 2007
    Сообщения:
    45
    Симпатии:
    6
    кто нибудь спамил со скрипта маднета? http://madnet.name/files/1/3.html
    в письме в конце ссылки добавляется \%22 и ссылка не работает.
    мож кто знает как от этого избавиться?
     
  6. laszlo

    laszlo Постоялец

    Регистр.:
    16 фев 2008
    Сообщения:
    74
    Симпатии:
    38
    Вот аналог скрипта маднета, а может - его предшественник
    Не такой красивый, зато полностью работоспособный
    (для работы мускул не нужен!)

    PHP:
    <?


    If (
    $action=="mysql"){

        
    #Grab email addresses from MySQL

        
    include "./mysql.info.php";

        if (!
    $sqlhost || !$sqllogin || !$sqlpass || !$sqldb || !$sqlquery){

        print 
    "Please configure mysql.info.php with your MySQL information. All settings in this config file are required.";

        exit;

        }

        
    $db mysql_connect($sqlhost$sqllogin$sqlpass) or die("Connection to MySQL Failed.");

        
    mysql_select_db($sqldb$db) or die("Could not select database $sqldb");

        
    $result mysql_query($sqlquery) or die("Query Failed: $sqlquery");

        
    $numrows mysql_num_rows($result);

        

        for(
    $x=0$x<$numrows$x++){

        
    $result_row mysql_fetch_row($result);

        
    $oneemail $result_row[0];

        
    $emaillist .= $oneemail."\n";

        }

        }



    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">

      <br>

      <table width="100%" border="0">

        <tr> 

          <td width="10%"> 

            <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Your 

              Email:</font></div>

          </td>

          <td width="18%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> 

            <input type="text" name="from" value="<? print $from; ?>" size="30">

            </font></td>

          <td width="31%"> 

            <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Your 

              Name:</font></div>

          </td>

          <td width="41%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> 

            <input type="text" name="realname" value="<? print $realname; ?>" size="30">

            </font></td>

        </tr>

        <tr> 

          <td width="10%"> 

            <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Reply-To:</font></div>

          </td>

          <td width="18%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> 

            <input type="text" name="replyto" value="<? print $replyto; ?>" size="30">

            </font></td>

          <td width="31%"> 

            <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Attach 

              File:</font></div>

          </td>

          <td width="41%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> 

            <input type="file" name="file" size="30">

            </font></td>

        </tr>

        <tr> 

          <td width="10%"> 

            <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Subject:</font></div>

          </td>

          <td colspan="3"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> 

            <input type="text" name="subject" value="<? print $subject; ?>" size="90">

            </font></td>

        </tr>

        <tr valign="top"> 

          <td colspan="3"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> 

            <textarea name="message" cols="60" rows="10"><? print $message; ?></textarea>

            <br>

            <input type="radio" name="contenttype" value="plain" >

            Plain 

            <input type="radio" name="contenttype" value="html" checked>

            HTML 

            <input type="hidden" name="action" value="send">

            <input type="submit" value="Send eMails">

            </font></td>

          <td width="41%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> 

            <textarea name="emaillist" cols="30" rows="10"><? print $emaillist; ?></textarea>

            </font></td>

        </tr>

      </table>

    </form>



    <?

    if ($action=="send"){



        if (!$from && !$subject && !$message && !$emaillist){

        print "Please complete all fields before sending your message.";

        exit;

        }

        

        $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("The file you are trying to upload couldn't be copied to the 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 "Sending mail 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 "ok<br>";

            flush();

            }

            }



    }

    ?>
     
    Mons и fuckthesystem нравится это.
  7. fuckthesystem

    fuckthesystem Создатель

    Регистр.:
    29 дек 2007
    Сообщения:
    45
    Симпатии:
    6
    спс канеш, но это далеко не мэдспамер.
    нет рандомайзинга, ну а с одного адреса, имени сильно не поспамишь...
     
  8. madass

    madass Писатель

    Регистр.:
    3 июн 2007
    Сообщения:
    2
    Симпатии:
    0
    Всё равно нормальная система.
     
  9. taboo

    taboo Создатель

    Регистр.:
    18 мар 2008
    Сообщения:
    14
    Симпатии:
    0
    А есть ли скрипт чтоб сворвать конкретный адресс??
     
  10. snovitsi

    snovitsi Писатель

    Регистр.:
    18 мар 2008
    Сообщения:
    9
    Симпатии:
    0
    А как использовать такие скрипты, так чтобы еще и хостер не забанил?
     
Статус темы:
Закрыта.