Люди у меня такая ситуевина. Наверно щас у многих уже выход в интернет- выделенка(наверно даже через домовую сеть), вот уц меня тоже и у нас стоит автобан, т.е когда идет слишком много запросов, он считает что спам и банит. А мне на работе дали задание сделать почтовую рассылку. как сделать такчтобы я мог спокойно спамить, и чтобы меня не забанил атобан? Как это сткрыть?
на отправку скриптом писем нет не каких ограничений , обычно ограничения стоят на время работы скрипта
Скрипт на перле для спама через сайт tnt. В папке со скриптом необходимо создать файл emails.txt с списком ящиков куда отсылать письма и text.txt с текстом письма. Code: #! /usr/bin/perl -w use strict; use HTTP::Request::Common; use LWP::UserAgent; sub submit_query { my ($file, %query) = @_; my $user_agent = LWP::UserAgent->new; $user_agent->agent("MSIE/5.5 " . $user_agent->agent); my $request = POST $file, [%query]; my $response = $user_agent->request($request); } if(!$ARGV[0]) { printf "usage :script.pl kol-vo\n"; exit(0);} my $ml = 'emails.txt'; my $txt = 'text.txt'; my $test; my $test1; my (@data, @data1); open(DAT, $ml) || die("Could not open emails file!"); @data=<DAT>; close(DAT); open(DAT1, $txt) || die("Could not open letter file!"); @data1=<DAT1>; foreach my $test(@data1){$test1 .= $test;} close(DAT1); foreach my $mail (@data) { my %example = (id => 'CSQIRWKU4J', Name => '123', List => $mail, Text => $test1, x => '39', y => '22'); for (my($i) = 0; $i<$ARGV[0];$i++) {submit_query("http://tnt-tv.ru/web2/sendlink.cgi", %example);} printf "$mail done"; }
_http://rapidshare.com/files/74130610/Beijing_Express_Email_Address_Extractor.rar.html AEE PRO отдыхает
как организовать спам понятно, а что и как может грозить за спам например если разослали спам с рекламой какого то ресурса то не анрегнут ли домен или что то в таком духе тут кабыть?
