Вот замутил себе генератор....

100

killraty

25 ноября 2005, 11:05

1783

может кому надо....

сделал себе генератор дориков....

пока вот, что он умеет....

указываешь ему ключевое слово.... и адрес редиректа....

далее генератор идёт на рамблер вырывает из статистики все комбинации ключевиков...

генерит доры....редирект на яве

и через рефрешь в мета....

задумываюсь о прикрутке генератора текста, либо выдиралки текста из серпа поисковиков по ключевому слову... что-нибудь из этого....

какие ещё будут предложения... ?

работает пока всё на перл....

нет подписи

304

lexalink

26 ноября 2005, 11:58

#1

Хех собралься мой "рекорд" побить по "-" ?

Штутка . Цены и примеры дора в личку пожалуйста . !

Рад новым знакомствам ( арбитраж, майнинг, сео, трафик и т.д.) - @lexalink (https://t.me/lexalink)

348

funnybunny

26 ноября 2005, 13:13

#2

lexalink, ага, похоже что так и есть 🚬

308

BadBoy

26 ноября 2005, 13:45

#3

lexalink - приколист )

348

funnybunny

26 ноября 2005, 13:55

#4

BadBoy:
lexalink - приколист )

ага, самое главное чувство юмора не утеряно :)

100

killraty

28 ноября 2005, 03:20

#5

цены-всё бесплатно....

вот скрипт:

#!/usr/bin/perl

use LWP::Simple;

use CGI qw(param);

$slov=param("gen"); #ключевое слово

$uri=param("uri"); #url redirect

$count=param("cnt"); #кол-во страниц

$counter=param("scnt"); #стартовая страница

$date="0510"; #дата

$lnkfile="/clients/a2060/kuu.ru/htdocs/drw/lnk.shtml"; #файл список всех доров; формат: <br><a href="cx9485139.shtml"> трам- ключевое слово траляля cx9485139.shtml</a>

$drwdir="/clients/a2060/kuu.ru/htdocs/drw"; #путь к папке куда генерить доры

print "Content-type: text/html\n\n";

$kod=$slov;

#win2koi

$kod=~ tr/\xB8\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF\x91\x92\x93\x94\x96\x97\x9B\x8B\xBB\xAB\xB9\xAD\xA7\xA0\x82\x84\x85/\ё\xE1\xE2\xF7\xE7\xE4\xE5\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF2\xF3\xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7\xC7\xC4\xC5\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3\xDE\xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1\'\'\"\"\-\-\>\<\"\"N\-\ \ \,\,\./;

$slovs=$kod;

#url encode

$kod=~ s/([^\$])/uc sprintf("%%%02x",ord($1))/eg;

while ( $counter < $count ) {

#ramblerstat

$url="http://adstat.rambler.ru/wrds/wrds.pl?date=$date&words=$kod&morph=&page=$counter";

$content = get($url);

open (HTML,">foo.txt") || die "Can't Open file!\n";

print HTML "$content \n";

close (HTML);

use HTML::TokeParser;

$p = HTML::TokeParser->new(shift||"foo.txt");

while (my $token = $p->get_tag("a")) {

my $url = $token->[1]{href} || "-";

my $text = $p->get_trimmed_text("/a");

# print "$url\t$text <br>\n";

if ($text=~/.*$slovs.*/) {push(@array2, $text); }

#@array2 = split (\n, $text);

}

#print "$kod $slov $slovs<br>\n";

#print @array2;

open (LNK,">>$lnkfile") || die "Can't Open lnk file пиздец !\n";

my $i=7; # 7 получилось путём несложных вычислений....

while(defined $array2[$i])

{

#print "$array2[$i]\n";

#print "<br>\n";

#koi2win

$array2[$i]=~ tr/\xC0-\xFF/\xFE\xE0\xE1\xF6\xE4\xE5\xF4\xE3\xF5\xE8-\xEF\xFF\xF0-\xF3\xE6\xE2\xFC\xFB\xE7\xF8\xFD\xF9\xF7\xFA\xDE\xC0\xC1\xD6\xC4\xC5\xD4\xC3\xD5\xC8-\xCF\xDF\xD0-\xD3\xC6\xC2\xDC\xDB\xC7\xD8\xDD\xD9\xD7\xDA/;

$random1=int(rand(99999))+25;

$random2=int(rand(99))+13;

open (CX,">$drwdir/cx$random1$random2.shtml") || die "Can't Open !\n";

print CX "<html><head>\n";

print CX "<title> $array2[$i] </title>\n";

print CX "<meta name=\"Generator\" content=\"KUU.ru\">\n";

print CX "<meta name=\"Author\" content=\"Karlichuk I.I.\">\n";

#print CX "<meta http-equiv=\"content-type\" content=\"text/html; charset=koi-8\" />\n";

print CX "<meta name=\"Keywords\" content=\"$array2[$i]\">\n";

print CX "<meta name=\"Description\" content=\"$array2[$i]\">\n";

print CX "<meta http-equiv=\"Refresh\" content=\"1; URL=$uri\" />\n";

# print CX "<LINK href=\"/style.css\" type=text/css rel=stylesheet>\n";

print CX "</head><body>\n";

print CX "<br><br>\n";

print CX "<img src=\"javascript:location='$uri';\" alt=\"$array2[$i]\">\n";

print CX "<center><h1>$array2[$i]</h1></center>\n";

print CX "<div align=\"center\">$array2[$i]</div>\n";

print CX "<br><br>\n";

# print CX "<br><a href=\"$v3\">$v3</a>\n";

print CX "<br><center><small><a href=\"http://www.kuu.ru\">www.KUU.ru</a><small></center>\n";

print CX "</body></html>\n";

print CX "\n";

close (cx);

print LNK "<br><a href=\"cx$random1$random2.shtml\">$array2[$i] cx$random1$random2.shtml</a>\n";

$i++;

}

close(LNK);

$counter++;

}

print "$counter";

print " ЗАЕБОК ! Дорвеи сгенерированы !!!\n";

html c помощью которого его можно запустить...

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>

<head>

<title> Генератор дорвеев...</title>

</head>

<body>

<table>

<tr>

<td><ACRONYM title="Указать ключевое слово....">Ключевое слово: </ACRONYM></td>

</tr>

<tr>

<td><ACRONYM title="Куда редиректить с доров....">URL редиректа:</ACRONYM></td>

</tr>

<tr>

<td><ACRONYM title="Тут надо написать стартовый номер страницы откуда начать\продолжить генерацию доров">№ стартовой страницы:</ACRONYM></td>

</tr>

<tr>

<td><ACRONYM title="Указать кол-во страниц найденных в статистике рамблера.. по указанному ключевику...">Кол-во страниц:</ACRONYM></td>

</tr>

</table>

</form>

</body>

</html>

Отчет о конференции User Обзор семинара Леонида Гроховского Обзор тренинга «Лояльные клиенты

304

lexalink

29 ноября 2005, 17:03

#6

Дык , халява приходит к нам ! Не ахти кончено скриптик ,но халявный! мой серавно лучше,всем советую .. обращайтесь к Sanchez у несго самый лучшей дор ген ..

T

73

telo

1 декабря 2005, 15:25

#7

killraty:
print " ЗАЕБОК ! Дорвеи сгенерированы !!!\n";

Аффтар жжот!

VK приобрела 70% в структуре компании-разработчика red_mad_robot

Маркетинг для шоколадной фабрики. На 34% выше средний чек