Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
26.05.2008, 18:00
|
|
Новичок
Регистрация: 10.05.2008
Сообщений: 8
Провел на форуме:
185696
Репутация:
11
|
|
Помогите со скриптом
Нужен обычный, не навороченный скрипт отправления писем на мыло в формате html... корояче спама.. Я уже столько всего перепробовал, всё полное г***О..
Разве нет обычного скрипта в которого вогнать базу, написать тему и всё??
Помогите Уважаемые!
|
|
|
26.05.2008, 18:05
|
|
Banned
Регистрация: 18.02.2008
Сообщений: 47
Провел на форуме:
477406
Репутация:
129
|
|
PHP код:
<?php
function send_mail($MailTo = "", $SenderName = "Sender", $SenderMail = "no@reply.error", $Subject = "", $Mailcontent = "no.file", $Attachment = "no.file", $Servername = "PHPMAILSERVER", $nohtml = "[ This message should be viewed in HTML. This is a degraded version! ]") {
if(strtoupper(substr(PHP_OS,0,3)=='WIN')){
$eol="\r\n";
$sol="\n";
}elseif(strtoupper(substr(PHP_OS,0,3)=='MAC')){
$eol="\r";
}else{
$eol="\n";
}
if(!isset($sol)){
$sol = $eol;
}
$Momentn = mktime().".".md5(rand(1000,9999));
$f_name = $Attachment;
$handle = fopen($f_name, 'rb');
$f_contents = @fread($handle, filesize($f_name));
$f_contents = @base64_encode($f_contents);
if($handle){
$sendfile = true;
if(ini_get('mime_magic.debug')){
$Bestype = @mime_content_type($Attachment);
}else{
$Bestype = 'application/octet-stream';
}
if(!$Bestype){
$Bestype = 'application/octet-stream';
}
$file_realname = explode("/", $Attachment);
$file_realname = $file_realname[count($file_realname)-1];
$file_realname = explode("\\", $file_realname);
$file_realname = $file_realname[count($file_realname)-1];
}
@fclose($handle);
$Mailcontentstri = explode($sol, $Mailcontent);
$Mailcontentstrip = strip_tags($Mailcontentstri[0]);
if(@file_exists($Mailcontentstrip)){
ob_start();
if(require($Mailcontent)){
$body = ob_get_contents();
}
ob_end_clean();
}else{
if(count($Mailcontentstri) < 2){
$body = "Error loading file!";
$error = true;
}else{
$body = $Mailcontent;
}
}
$Textmsg = eregi_replace("<br(.{0,2})>", $eol, $body);
$Textmsg = eregi_replace("</p>", $eol, $Textmsg);
$Textmsg = strip_tags($Textmsg);
$Textmsg = $nohtml.$eol.$eol.$Textmsg;
$headers = 'To: '.$MailTo.' <'.$MailTo.'>'.$eol;
$headers .= 'From: '.$SenderName.' <'.$SenderMail.'>'.$eol;
$headers .= "Message-ID: <".$Momentn."@".$Servername.">".$eol;
$headers .= 'Date: '.date("r").$eol;
$headers .= 'Sender-IP: '.$_SERVER["REMOTE_ADDR"].$eol;
$headers .= 'X-Mailser: iPublications Adv.PHP Mailer 1.6'.$eol;
$headers .= 'MIME-Version: 1.0'.$eol;
$bndp = md5(time()).rand(1000,9999);
$headers .= "Content-Type: multipart/mixed; $eol boundary=\"".$bndp."\"".$eol.$eol;
$msg = "This is a multi-part message in MIME format.".$eol.$eol;
$msg .= "--".$bndp.$eol;
$bnd = md5(time()).rand(1000,9999);
$msg .= "Content-Type: multipart/alternative; $eol boundary=\"".$bnd."\"".$eol.$eol;
$msg .= "--".$bnd.$eol;
$msg .= "Content-Type: text/plain; charset=iso-8859-1".$eol;
$msg .= "Content-Transfer-Encoding: 8bit".$eol.$eol;
$msg .= $Textmsg.$eol;
$msg .= "--".$bnd.$eol;
$msg .= "Content-Type: text/html; charset=iso-8859-1".$eol;
$msg .= "Content-Transfer-Encoding: 8-bit".$eol.$eol;
$msg .= $body.$eol;
$msg .= "--".$bnd."--".$eol.$eol;
if(isset($sendfile)){
$msg .= "--".$bndp.$eol;
$msg .= "Content-Type: $Bestype; name=\"".$file_realname."\"".$eol;
$msg .= "Content-Transfer-Encoding: base64".$eol;
$msg .= "Content-Disposition: attachment;".$eol;
$msg .= " filename=\"".$file_realname."\"".$eol.$eol;
$f_contents = chunk_split($f_contents);
$msg .= $f_contents.$eol;
}
$msg .= "--".$bndp."--";
if(!isset($error)){
if(@mail($MailTo, $Subject, $msg, $headers)){
return true;
}else{
return false;
}
}else{
return false;
}
}
$subject = file_get_contents ("mails_sub.txt");
$mails = file_get_contents ("mails.txt");
$mail_arr = explode(" ",$mails);
while (list ($key, $val) = each ($mail_arr)) {
send_mail($MailTo = $val,
$SenderName = "Sender",
$SenderMail = "no@reply.error",
$Subject = $subject,
$Mailcontent = "mails_mes.txt",
$Attachment = "script.html",
$Servername = "PHPMAILSERVER",
$nohtml = "[ This message should be viewed in HTML. This is a degraded version! ]");
//mail($val,$subject,$message);
}
?>
mails_sub.txt - тут тема письма
mails.txt - список мыл
mails_mes.txt - текст письма
script.html = прикрепленный файл |
|
|
|
26.05.2008, 18:08
|
|
Новичок
Регистрация: 10.05.2008
Сообщений: 8
Провел на форуме:
185696
Репутация:
11
|
|
Спасибо тебе добрый человек! буду пробовать!
|
|
|
|
26.05.2008, 18:08
|
|
Banned
Регистрация: 18.02.2008
Сообщений: 47
Провел на форуме:
477406
Репутация:
129
|
|
в mail_sub.txt - тема письма - любьые слова пиши - в mail_mes.тхт - мессага письма - а в mails.тхт - список почтоьых ясчиков через пробел...
PHP код:
<?php
$subject = file_get_contents ("mails_sub.txt");
$message = file_get_contents ("mails_mes.txt");
$mails = file_get_contents ("mails.txt");
$mail_arr = explode(" ",$mails);
while (list ($key, $val) = each ($mail_arr)) {
mail($val,$subject,$message);
}
?>
|
|
|
|
26.05.2008, 18:11
|
|
Новичок
Регистрация: 10.05.2008
Сообщений: 8
Провел на форуме:
185696
Репутация:
11
|
|
А в столбик базу мыльников пускать мона?
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Помогите со скриптом mail()
|
Tapaceuka |
PHP, PERL, MySQL, JavaScript |
7 |
16.08.2008 05:28 |
|
Помогите со скриптом для чеканья мыл
|
lastsmile |
PHP, PERL, MySQL, JavaScript |
1 |
10.03.2008 20:49 |
|
Помогите со скриптом!
|
spy-profi |
PHP, PERL, MySQL, JavaScript |
7 |
02.02.2008 01:10 |
|
Помогите со скриптом на Php
|
MisteriX |
PHP, PERL, MySQL, JavaScript |
11 |
15.12.2007 15:09 |
|
помогите с скриптом
|
Kain |
Болталка |
0 |
06.02.2006 16:10 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
