Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Два вопроса про IP код, ******************** 
:(
    Опции темы
Win MK 32
  Дата 15.7.2002, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 492
Регистрация: 15.7.2002

Репутация: нет
Всего: нет



1. Как узнать IP-код?
2. Как перекрать доступ к сайту(2 уровня www.pcpro.narod.ru) зная IP-код?
PM   Вверх
Cepera
Дата 16.7.2002, 07:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


PHPexp
****


Профиль
Группа: Экс. модератор
Сообщений: 2146
Регистрация: 25.3.2002
Где: Russia, Samara

Репутация: нет
Всего: 7



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


--------------------
I know it is heavy for reading, but I know you will read it anyway...
PM MAIL WWW ICQ   Вверх
Win MK 32
  Дата 16.7.2002, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 492
Регистрация: 15.7.2002

Репутация: нет
Всего: нет



Какие?
PM   Вверх
Cepera
Дата 16.7.2002, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


PHPexp
****


Профиль
Группа: Экс. модератор
Сообщений: 2146
Регистрация: 25.3.2002
Где: Russia, Samara

Репутация: нет
Всего: 7



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

ASP, PHP, Perl


--------------------
I know it is heavy for reading, but I know you will read it anyway...
PM MAIL WWW ICQ   Вверх
rhf
Дата 13.8.2002, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 13.8.2002

Репутация: нет
Всего: нет



примерно так на 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 };
}

PM MAIL   Вверх
Black
Дата 14.6.2005, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Web-Development
**


Профиль
Группа: Участник
Сообщений: 980
Регистрация: 15.8.2004

Репутация: нет
Всего: 45



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

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


--------------------
Могу все, но ничего не умею :-)
PM WWW   Вверх
korob2001
Дата 14.6.2005, 18:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61



Сохрани такой код на 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.

Удачи.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Aliance
Дата 16.6.2005, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


I ♥ <script>
****


Профиль
Группа: Модератор
Сообщений: 6418
Регистрация: 2.8.2004
Где: spb

Репутация: нет
Всего: 137



Перенесено в раздел Perl.
PM MAIL WWW ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0461 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.