Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > Имя хоста?

Автор: Dart Sidius 18.1.2003, 16:11

как узнать имя хоста по ip в perl...ну например чтобы проверить пытается ли пользователь обмануть скрипт....заменив свой IP через прокси или т.п.

Автор: Cepera 25.1.2003, 03:31

Код

 local($ip) = $ENV{'REMOTE_ADDR'};
 local($proxy) = $ENV{'HTTP_X_FORWARDED_FOR'};
 if ($proxy) {my $tempip=$proxy;$proxy=$ip;$ip=$tempip}
 my(@digits) = split (/\./, $ip);
 my($address) = pack ("C4", @digits);
 local($domain) = gethostbyaddr ($address, 2);

Автор: Cepera 25.1.2003, 03:32

с получением отдельного значения прокси

эта структура используетс у меня в чате

Автор: ixor 21.3.2003, 01:01

Возможно я немного не в тему сунулся, но вопросик у меня уже давно стоит стоймя.
Можно ли как-то отличить запрос прокси от клиентского запроса, не перебирая всех известных IP прокси серверов?

Автор: Cepera 21.3.2003, 04:54

Anonymous - HTTP прокси сервер не посылает HTTP_X_FORWARDED_FOR переменную к удаленной машине (хосту), поэтому IP адрес хост не фиксируется

High anonymity - HTTP прокси сервер этого типа не посылает HTTP_X_FORWARDED_FOR, HTTP_VIA и HTTP_PROXY_CONNECTION переменных, поэтому IP адрес остается неизвестным, более того, хост даже не знает, что используется прокси сервер

собственно рассматривай эти переменные и все...

Автор: Guest 20.4.2005, 15:22

как можно узнать свой хост для аси и порт к нему? smile

помогите, пожалуйста! smile