[ Поиск ] - [ Пользователи ] - [ Календарь ]

Программа отправки SMS в рязани в Рязани и Рязанской области :

Перейти на полную версию
Программа отправки SMS в рязани - в Рязани
Marlik
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
bukan
Ну это отправка через email, не у всех это работает ))) Хотя так можно подписать "друга" на спам рассылки новостей с разных сайтов.
GOLDBERG
Вов, а почему не у всех работает? в чём проблема?
Marlik
Протестировано, работает на УРА!!! E-mail тут вообще ни при чем, создаем сокет и подключаемся непосредственно к серверу для отправки СМС. Попробуй послать письмо телнетом, увидишь как все просто, команды найди в нэте или вынь из этого скрипта. biggrin.gif
Быстрый ответ:

 Включить смайлы |  Enable Signature
Здесь расположена полная версия этой страницы.

Яндекс цитирования