Форум АНТИЧАТ - Некоторые исходники Рамблера.

Некоторые исходники Рамблера.

19.02.2010, 20:37

m0Hze

Он хакер.

Регистрация: 01.11.2008

Сообщений: 1,756

Провел на форуме:
6462214

Репутация: 3171

Некоторые исходники Рамблера.

Совсем нечаянно наткнулся сегодня днем,выкладываю сюда в виде мини статьи.
Запускаем тот скрипт,и смотрим на вывод.

PHP код:


		
			
<?php

$exec = curl_init('http://id.rambler.ru/script/reminder.cgi');

curl_setopt($exec, CURLOPT_RETURNTRANSFER, 0);

curl_setopt($exec, CURLOPT_REFERER, 'http://id-planet.rambler.ru/default/');

curl_setopt($exec, CURLOPT_HEADER, 1);

$page = curl_exec($exec);

echo $page;

?>

Запустив скрипт, я был очень удивлен увиденному, а увидел я следующее(приведен лишь отрывок полного кода):

Код:

#!/usr/bin/perl -w # Password reminder for mail.rambler.ru project # Original version by maniac@rambler-co.ru # Rewritten by Maxim Dounin, mdounin@rambler-co.ru # $Id: reminder.cgi,v 1.35 2009/04/02 18:51:47 citrin Exp $ ###############################################################################
use strict;
use warnings;
use utf8;
use CGI qw/ param /;
use Digest::MD5 qw/ md5_hex /;
use Time::HiRes;
use Rambler::CaptchaManager;
use rutils; use r_icq;
use rcfg;
my $H = { myname => 'reminder.cgi', DEBUG => 0, LOG => $rcfg::logdir.'/reminder/reminder_log', # template, used by rutils::print_tmpl TMPL_ROOT => $rcfg::tmpldir, TMPL => 'reminder.tmpl', SKIN => 'id', SKIN_OPT => { DEFAULT => $rcfg::urls{id}, LOGOUT => 'http://www.rambler.ru/', AUTH => $rcfg::urls{id}.'script/auth.cgi', }, # interface charset CHARSET => 'windows-1251', # ratelimits RATE_LOGIN => { rate => 1/3600, burst => 5 }, RATE_IP => { rate => 1/3600, burst => 10 }, RATE_IP_ROBOT => { rate => 1/60, burst => 50 }....

Собственно после несложного мыслительного процесса, я пришел к выводу, что передо мной исходники страницы Восстановление паролей.

А причина то, смешная!

После небольшого танца вокруг Рамблера, было выявлено еще как минимум 5 скриптов, которые можно скачать таким образом, и мне захотелось узнать с чем это связано.Первой мыслью было, что умер интерпретатор Perl, но из браузера я видел вполне нормальный результат работы скрипта, а не его исходник, значит этот вариант отпадает.Посмотрев заголовки отправляемые браузером сервера Рамблера, были поставлены опыты, и выявлено, что Рамблер показывает исходники некоторых скриптов, если к ним обратиться без заголовка User-Agent: ****.
То есть, вот такое обращение к скрипту:

PHP код:


		
			
<?php

$header = array('User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.8) Gecko/20100202 Firefox/3.5.8');

$exec = curl_init('http://id.rambler.ru/script/reminder.cgi');

curl_setopt($exec, CURLOPT_RETURNTRANSFER, 0);

curl_setopt($exec, CURLOPT_REFERER, 'http://id-planet.rambler.ru/default/');

curl_setopt($exec, CURLOPT_HEADER, 1);

curl_setopt($exec,CURLOPT_HTTPHEADER, $header);

$page = curl_exec($exec);

echo $page;

?>

вполне нормальное.Увидим результат работы скрипта.Спасебо досвидания.Я отмечать праздники.
Full version статьи!
Всех с наступающим праздником!