В статье описывается простейший пример использования Perl модулей HTML::Parser и LWP. Кроме того, статья повествует о некоторых хитростях в разборе HTML и обходе простейшей защиты в формах при помощи Perl.URL: http://perl.dp.ua/practice/sms-sender.html
Новость: http://www.opennet.me/opennews/art.shtml?num=4295
НУ не особо.... А в москве ? , а как решать проблему с гифами(цифры авторизации) ?
а вообще приличные гейты москвы кто нибудь знает ?
Для меня, например, отправка СМС из командной строки очень важна. Я таким образом получаю критические сообщения с серверов. Некоторое время пользовался гейтом аська<->SMS пока не прикрыли. И потом через Инет не надежно. Уговорил начальство и подцепил Нокию 5110. Теперь нет проблем.
Сообщения валятся в спул. Потом их подхватывает демон и отправляет, использую gnokii. Вот так.
Логичнее было бы делать через WWW::Mechanize
curl -d "flash=0&sms=1&Addr=$phone&smbody=$body&summa=$length&name=ok" http://mgsm.ru/index.php?region=3&sms3
все намного прощё :).
Покупаем сервис у smsmail.ru читаем инструкцию отправляем sms-ки, в чем проблема то ?
Разрешите вступиться :)
Материал носит в большей степени учебный характер.
Никто не спорит, что со своим гейтом - всё надёжнее быстрее и т.д., но сами понимаете, что гораздо интереснее - чужим гейтом из консоли и т.д. :)
Да чувак видимо тебе нечем заниматся, а такую фичу как отправить мыло на адрес
38050хххххх@sms.umc.ua или
38067ххххххх@kyivstar.netне пробовал? :)))))
>Да чувак видимо тебе нечем заниматся, а такую фичу как отправить мыло
>на адрес
>38050хххххх@sms.umc.ua или
>38067ххххххх@kyivstar.netSMS спам уже многих достал, поэтому через mail-gate у серьезных операторов SMS-ки отправялются только клиентам которые письменно дали согласия получать их от-туда. Впрочем, web-формы там тоже так просто не заполнишь не переписав цифры с картинки.
Вот мой скриптик для отправки смс-ок через анонимные прокси (для обхода ограничения на количество смс с одного айпи) на номера МТС московской области, может быть кому пригодится:cat /usr/local/sbin/sendsms.pl
#!/usr/bin/perl -w# Директория, где будет лежать файл с адресами прокси
my $dir="/tmp";# Количество попыток отправить смс
my $tries=5;use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use IO::Socket;unless ($ARGV[0]){print "Usage: $0 7916XXXXXXX\n\texample: $0 79161234567\n";sleep 1; exit 0;}
my $ua = LWP::UserAgent->new;if (!-e "$dir/proxylist.$<"){&getproxy();}
open F, "<$dir/proxylist.$<" or die "Can't read $dir/proxylist.$<: $!\n";
my @proxies=<F>;
close F;my $text=<STDIN>;
my ($rem,$proxy);TRY:
if(!$tries){die "Can't send message!";}
if(@proxies < 20){&getproxy();}
my $num=int(rand(@proxies-1));
chomp($proxy=$proxies[$num]);
splice @proxies,$num,1;
$rem = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$proxy",Timeout=>3);
if(!$rem){goto TRY;}
close $rem;open F, ">$dir/proxylist.$<" or die "Can't write $dir/proxylist.$<: $!\n";
print F @proxies;
close F;$ua->proxy('http', "http://$proxy");
my $req = POST "http://sms.mts.ru/cgi-bin/cgi.exe",
[function=>'sms_send',To=>$ARGV[0],Msg=>$text,Hour=>15,Min=>34,Day=>20,Mon=>'08',Year=>2005,Lang=>'211:26-16/01' ];my $res = $ua->request($req);
if($res->is_success){
# print "Message was sent!\n";
} else {
$tries--;
goto TRY;
}sub getproxy {
unlink "$dir/proxylist.$<";for(my $i=2;$i<=15;$i++){
if($i<=9){$i="0".$i;}
my $req = HTTP::Request->new(GET => "http://www.samair.ru/proxy/proxy-$i.htm");
my $res = $ua->request($req);
$i=~s/^0//g;if ($res->is_success){
my @lines=split/<BR>|<tr>|\n/,$res->content;
open F, ">>$dir/proxylist.$<";
foreach (@lines){
if(/SSL/){next;}
if(/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d+)/){print F $1,"\n";}
}
close F;
} else {print "Error getting proxy list $1/1/$i: $1\n";}
}
}
1. Кнешна проще "КУПИТЬ" сервис, но кому плохо живется с халявой.
2. Кто пробовал слать СМС с почты? У меня если и доходили то в лучшем случае на следующий день! Дело в том что у всех операторов есть такое понятие - ПРИОРИТЕТ! очередь обычно такова:
- контрактники - "карточники" - !свой сайт и пратнеры! - ну а потом все остальные.
3. А по поводу коллег из россии - ищите своих .... они есть везде. Статья дает старт и повод для размышлений.Так и не услышал идей по поводу разбора GIF цифорок.
А какие идеи по поводу циферок могут быть? Там ведь четкие цифры и все на своих местах, без искажения и т.д. Разрезаешь на части (по разрядам), сравниваешь с заранее сохраненными битовыми массивами, и т.о. преобразуешь в нормальные числа. На Perl реализуемо за 2-3 часа. Где-то даже пример видел. Но забыл где :(
осталось написать OCR для картинок с цифирями
Есть сайты где цифры генерятся разных размеров, еще и наклонные - как здесь быть с OCR?
> Есть сайты где цифры генерятся разных размеров,
> еще и наклонные - как здесь быть с OCR?
Тады ой :(
А никто к этому делу не пытался готовые распознаватели приделать? напр., ABBYY FineReader thruogh wine + врапающий интерфейс а-ля "посылаем мессаджы кнопочкам". Осталось сделать стабы для всех аутпутных ф-ций вайна, т.к. иксов по условию нет.
Если уж так надоело "Иксы и Нетскейп" грузить, lynx юзай (или чего-нить наподобии) :)
Я же стандартным юниховым mail'ом пользуюсь чтобы эсемесить бесплатно :) Естественно на машинке должен бытьнастроен какой-нибудь smtp-клиент (у меня, например, ssmtp - в портах нашёл). И тогда:
andr[~]%>mail 89022222222@sms.smarts-gsm.ru
Subject: сюда текст пишем :)
.
EOT
Null message body; hope that's ok
andr[~]%>
А если ещё и .mail_aliases написать то вообще всё очень даже удобно будет :)
конечно функциАнальности у моего способа поменьше, но мне хватает :)
Но тут речь идёт всё же не о многообразии способов отправки sms, а о том как это на perl делают. Мне статья очень даже показалась интересной - я на perl'е только начинаю кодить :)
P.S. неужели кто-то ещё юзает этот "нетскейп" ? :)
Opera - foreve !
a ya uzayu clickatell.com
Прочёл сообщения выше.. остались следующие вопросы: 1. Удалось ли кому нибудь использовать OCR для отправки SMS с сайта MTS (например)?? Если да, то если это возможно, пульните плз. пример скрипта. Спасибо! 2. Удалось ли кому нибудь найти в инете free сервис который позволял бы отправлять n кол-во sms через http или mail на MTS ?? Спасибо!
Хочу подчеркнуть, что возможность отправки SMS нужна не в коем случае не для спасма... а отправлять нотификацию самому мебе о событиях в сети, в том числе о новых email.
>Хочу подчеркнуть, что возможность отправки SMS нужна не в коем случае не
>для спасма... а отправлять нотификацию самому мебе о событиях в сети,
>в том числе о новых email.Самый надежный способ (99%)- подключить к серверу мобильник и отправлять через него. Остальные способы дают надежность около 50-70%.
>Прочёл сообщения выше.. остались следующие вопросы: 1. Удалось ли кому нибудь использовать
>OCR для отправки SMS с сайта MTS (например)?? Если да, то
>если это возможно, пульните плз. пример скрипта. Спасибо! 2. Удалось ли
>кому нибудь найти в инете free сервис который позволял бы отправлять
>n кол-во sms через http или mail на MTS ?? Спасибо!
>
>Хочу подчеркнуть, что возможность отправки SMS нужна не в коем случае не
>для спасма... а отправлять нотификацию самому мебе о событиях в сети,
>в том числе о новых email.самый правильный - заключить договор с провайдером и пулять через него официально. хоть спам, хоть не спам. в случае мониторинговых сообщений это еще и дешево будет стоить (дешевле чем просто смс-ка с телефона почти в 2 раза, но ест-но есть абонентка)