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

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

Форум программистов > Perl: Общие вопросы > Два вопроса про IP код

Автор: Win MK 32 15.7.2002, 18:47

1. Как узнать IP-код?
2. Как перекрать доступ к сайту(2 уровня http://www.pcpro.narod.ru) зная IP-код?

Автор: Cepera 16.7.2002, 07:21

это нельзя реализовать на JS, используй серверные языки программирования

Автор: Win MK 32 16.7.2002, 12:22

Какие?

Автор: Cepera 16.7.2002, 12:24

опять же - по сути дела любой

ASP, PHP, Perl

Автор: rhf 13.8.2002, 09:44

примерно так на perl...

Код


## Скрипт определяет IP-адрес посетителя веб-страницы
## с учетом типа подключения к Сети.

## если ключ HTTP_X_FORWARDED_FOR определен
if ( $ENV{ HTTP_X_FORWARDED_FOR } ) {
 
   ## в переменную $ip записывается IP-адрес
   ## клиента, подключенного через прокси
   $ip = $ENV{ HTTP_X_FORWARDED_FOR};
} else {
 
   ## в противном случае запишем в $ip
   ## удаленный IP-адрес клиента
   $ip = $ENV{ REMOTE_ADDR };
}

Автор: Black 14.6.2005, 17:26

Win MK 32
В принципе можно зделать. Ответ здеся:
http://forum.vingrad.ru/index.php?showtopic=41559&hl=ip-%E0%E4%F0%E5%F1

Только к JavaScripts придется прикрутить SSI

Автор: korob2001 14.6.2005, 18:00

Сохрани такой код на Perl, в файл user_ip.pl, в каталог cgi-bin, т.е. путь примерно должен получиться таким /cgi-bin/user_ip.pl

Код


#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print $ENV{ HTTP_X_FORWARDED_FOR } || $ENV{ REMOTE_ADDR };

Теперь в HTML файле, где хочешь увидеть ip клиента, просто вызови эту программу через SSI, приерно таким образом:

Код


<html>
 <head>
  <title>User ip</title>
 </head>
 <body>
  <h1>Your IP is: <!--#include virtual="/cgi-bin/user_ip.pl" --></h1>
 </body>
</html>

Только сервер должен быть правильно настроен на работу с SSI.

Удачи.

Автор: Aliance 16.6.2005, 12:31

Перенесено в раздел Perl.