Как реализовать подмену рефера ... ?

12 3
AX
На сайте с 24.09.2004
Offline
118
5924

Собссно сделать нужно так:

Есть некий файл с кодом, который я запускаю на локальной машине, который при запуске загружает в браузер страницу. А потом при просмотре с каких страниц зашли на эту страницу статистика показала, что зашли с www.intel.com . Т.е. передаётся рефер - www.intel.com

Как это реализовать попроще. Если можно - покажите кусочек кода.

[Удален]
#1

В браузер грузить обязательно? Потому что через браузер - это только эксплоит.

AX
На сайте с 24.09.2004
Offline
118
#2

Нет, не обязательно, просто первое, что пришло на ум.

Я так понимаю, что нужен скриптец, котороый делает GET host и посылает ему рефер, тот, что я ему напишу. Помочь кто-то может в написании или киньте сюда пример кода.

[Удален]
#3

Ну на Перле примерно так:

use LWP;

my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)');

my $req = HTTP::Request->new(GET => 'http://урл/', 'Referer' => 'http://откуда_урл/');

my $res = $ua->request($req);

Lor
На сайте с 28.05.2004
Offline
353
Lor
#4

Interitus, обьясните, если есть время, а зачем такие фокусы? Я что-то слышал о рефер-спаме для СЕО, но честно говоря, не очень вьезжаю, "какие с этого гуся шкварки"?

Йопез - форум без модераторов. https://yopez.com
[Удален]
#5

Я не знаю, зачем. :) Человек спросил - как, я рассказал.

Рефер-спам - это метод получить ссылок нахаляву, с открытых страниц статистики. Типа такой: http://www.vivalib.org/statsviva/annual/2005/01/01/referrers.html. Запрашиваешь нужное число раз урл, и появляешься на странице статистики с ПРом.

AX
На сайте с 24.09.2004
Offline
118
#6
Interitus:
Ну на Перле примерно так:

use LWP;
my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)');
my $req = HTTP::Request->new(GET => 'http://урл/', 'Referer' => 'http://откуда_урл/');
my $res = $ua->request($req);

Угу, спасибо.

В перле не специалист, попробовал запустить файлик и ошибку получил:

$ /usr/bin/perl zamena.pl - запускаю из шела

Bad header argument at zamena.pl line 5 - такая ошибка

Помогите разрулить ситуацию, пожалуйста.

[Удален]
#7

Ага, это я ошибся, пропустил квадратные скобки. Замените третью строку на:

my $req = HTTP::Request->new(GET => 'http://урл/', ['Referer' => 'http://откуда_урл/']);

AX
На сайте с 24.09.2004
Offline
118
#8

Супер, спасибо большое.

beroot
На сайте с 08.06.2004
Offline
124
#9
"какие с этого гуся шкварки"?

бэкварды получить.

UltraBait
На сайте с 10.05.2005
Offline
208
#10

ух, скока народу на master-x открывал подобную тему, а тут даже до логического конца довели. Пасибо! Я давно эту инфу искал...

12 3

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий