Создание, раскрутка, оптимизация сайтов.
Купи, продай свое железо!


Здравствуйте Гость ( Вход | Регистрация )

  Ответить · Новая Тема ·Создать опрос

> Программа отправки SMS в рязани
Kest
  Дата: 10.09.2009 - 01:35
Offline



Пользователь
**

Профиль
Группа: Пользователи
Сообщений: 55
Пользователь №: 6261
Регистрация: 29.03.2008





--------------------
Рейтинг:
(0%) -----
· PM · E-Mail · WWW · ·
^
Marlik
Дата: 17.03.2010 - 04:42
Offline



Учёный
*****

Профиль
Группа: Пользователи
Сообщений: 481
Пользователь №: 712
Регистрация: 29.12.2005



biggrin.gif Тот-же вид только в профиль... что-бы вирей да троянов не цеплять... biggrin.gif

Код


#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
my $cgi = new CGI;
use IO::Socket::INET;

my $mailserver = "83.149.40.67";
my $port = "25";
my $mess = "Ваше сообщение";
my $number = "Номер куда отправлять например: 79209547777";
my $answer_data;
my $sock;

$sock = IO::Socket::INET->new(PeerAddr => "$mailserver",
                             PeerPort => "$port",
        Timeout => '6');


sysread($sock,$answer_data,255);
print "1: $answer_data";

syswrite($sock, "helo $mailserver\r\n");
sysread $sock,$answer_data,255;
print "2: $answer_data";

syswrite($sock, "MAIL FROM:<gates\@microsoft.com>\r\n");
sysread $sock,$answer_data,255;
print "3: $answer_data";

syswrite($sock, "RCPT TO:<$number\@sms.megafoncenter.ru>\r\n");
sysread $sock,$answer_data,255;
print "4: $answer_data";

syswrite($sock, "DATA\r\n");
sysread $sock,$answer_data,255;
print "5: $answer_data";

syswrite $sock, "Subject: Здесь ядрен-батон ваша тема!!! \r\n";

syswrite $sock, $cgi->header(-charset=>'utf8');

syswrite $sock, "$mess\r\n";

syswrite $sock, ".\r\n";
sysread $sock,$answer_data,255;
print "6: $answer_data";

syswrite $sock, "QUIT\r\n";
sysread $sock,$answer_data,255;
print "7: $answer_data";

close $sock;

exit(0);



Если заключить это в цикл то получится спам-машинка... biggrin.gif
Рейтинг:
(0%) -----
· PM · · ·
^
bukan
Дата: 17.03.2010 - 12:21
Offline



Administrator
******

Профиль
Группа: Администраторы
Сообщений: 1991
Пользователь №: 1
Регистрация: 17.09.2004



Ну это отправка через email, не у всех это работает ))) Хотя так можно подписать "друга" на спам рассылки новостей с разных сайтов.


--------------------
· PM · E-Mail · WWW · ICQ ·
^
GOLDBERG
Дата: 17.03.2010 - 14:09
Offline



Продвинутый
****

Профиль
Группа: Пользователи
Сообщений: 239
Пользователь №: 1566
Регистрация: 25.06.2006



Вов, а почему не у всех работает? в чём проблема?


--------------------
http://rapidus.ru бесплатные онлайн программы
From Hell
Рейтинг:
(0%) -----
· PM · E-Mail · ·
^
Marlik
Дата: 17.03.2010 - 16:28
Offline



Учёный
*****

Профиль
Группа: Пользователи
Сообщений: 481
Пользователь №: 712
Регистрация: 29.12.2005



Протестировано, работает на УРА!!! E-mail тут вообще ни при чем, создаем сокет и подключаемся непосредственно к серверу для отправки СМС. Попробуй послать письмо телнетом, увидишь как все просто, команды найди в нэте или вынь из этого скрипта. biggrin.gif
Рейтинг:
(0%) -----
· PM · · ·
^
Marlik
Дата: 20.04.2010 - 06:57
Offline



Учёный
*****

Профиль
Группа: Пользователи
Сообщений: 481
Пользователь №: 712
Регистрация: 29.12.2005



Рейтинг:
(0%) -----
· PM · · ·
^

Опции темы Ответить · Новая Тема ·Создать опрос

 



[ Время генерации скрипта: 0.0324 ]   [ Использовано запросов: 11 ]   [ GZIP включён ]