Программа отправки SMS в рязани :Полная Версия
Тот-же вид только в профиль... что-бы вирей да троянов не цеплять... | Код |
#!/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); |
Если заключить это в цикл то получится спам-машинка...
Ну это отправка через email, не у всех это работает ))) Хотя так можно подписать "друга" на спам рассылки новостей с разных сайтов.
Вов, а почему не у всех работает? в чём проблема?
Протестировано, работает на УРА!!! E-mail тут вообще ни при чем, создаем сокет и подключаемся непосредственно к серверу для отправки СМС. Попробуй послать письмо телнетом, увидишь как все просто, команды найди в нэте или вынь из этого скрипта.
Здесь расположена полная версия этой страницы.