Поиск в форуме:
Искать


« Предыдущая тема :: Следующая тема »  
Автор Сообщение
Сообщение22.07.2008 в 19:09 (UTC)    
Заголовок сообщения: прога для определения IP адресов посетителей

Ищу


Последний раз редактировалось: settt-poker (22.07.2008, 20:10), всего редактировалось 1 раз
Сообщение23.07.2008 в 09:12 (UTC)    
Заголовок сообщения:

Сообщение31.07.2008 в 12:19 (UTC)    
Заголовок сообщения: Re: прога для определения IP адресов посетителей

HERMITINFO Определение IP адреса посетителя Вашего сайта:
Twisted Evil Код: Question --------------------------------------------
#!/usr/bin/perl
$file = "/home/otshelnick/public_html/temp/file.txt";
$browser = "$ENV{HTTP_USER_AGENT}";
$language = "$ENV{HTTP_ACCEPT_LANGUAGE}";
$ip = "$ENV{REMOTE_ADDR}";
$bgcolor = "1f2d2e";
$text = "bba484";
$font = "Arial";
print "Content-Type: text/html\n\n";
print "<center>\n";
print "<font face=$font><small><b>Ваш IP:</b><em> $ip</em></font></small></body>\n";
print "</center>\n";
###############
open(writeip,">>$file");
print writeip "$ip; $browser; $language\n";
close(writeip);
###############
exit;
-------------------------------------------------------------------
COUNTRY DETERMINATOR v1.0 Определение страны посетителя Вашего сайта по IP адресу. Evil or Very Mad Код: Question -----------------------------------------------------------------
#!/usr/bin/perl
##############################################################################
# Country Determinator Version 1.0 #
# Copyright 1998 Aleksey Xacker xacker@phreaker.net #
# http://xacker.virtualave.net #
# Created 19.III.1999 Last Modified 19.III.1999 #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1999 by Aleksey Xacker All Rights Reserved. #
# #
# Country script may be used and modified free of charge by anyone so long #
# as this copyright notice and the comments above remain intact. By using #
# this code you agree to indemnify Aleksey Xacker from any liability that #
# might arise from it's use. #
# #
# Selling the code for this program without prior written consent is #
# expressly forbidden. In other words, please ask first before you try and #
# make money off of my program. #
# #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium. In all cases copyright and header must remain intact.#
##############################################################################
# Set Variables
$countries_path = "../countries.txt";

print "Content-Type: text/html\n\n";

$host = &gethostname;
$host =~ tr/a-z/A-Z/;

$hostlength = length($host);
&smartdetect;

# Get domain extension
$tempstr = $host;

for ($i = $hostlength; $i >= 0; $i--) {
$ch = chop($tempstr);
if ($ch eq '.') {
$host = substr($host, $i, $hostlength - $i);
$i = 0;
}
}

# Get needed Country name from file
open(FILE,$countries_path) || die Cant locate countries.txt file;
@LINES = <FILE>;
close(FILE);
$SIZE = @LINES;

for ($i = 0; $i <= $SIZE; $i++) {
$countrystr = $LINES[$i];
$tempstr = $countrystr;
$len = length($countrystr);
for ($j = $len; $j >= 0; $j--) {
$ch = chop($tempstr);
if ($ch eq '`') {
$country_ext = substr($countrystr, 0, $j - 1);
if ($host eq $country_ext) {
$host = substr($countrystr, $j, $len - $j - 1);
print "$host";
exit;
}
$j = 0;
}
}
}

print "Unknown";

exit;

################################################
# Detecting Country by other parameters
# For example, my RemoteHost - xxx.Kiev.dial.sovam.com, but country is Ukraine
# - .KIEV. is Ukraine
sub smartdetect {
&seeksubstr('.KIEV.', 'Ukraine');
&seeksubstr('.YAKUTSK.', 'Russain Federation');
}


########################################################################
# Usage: seeksubstr(SubString, Country); #
# Returns: nothing, but print country name and exit if substring found #
########################################################################
sub seeksubstr {
$len = length($_[0]);

if ($hostlength > $len) {
for ($i = $hostlength - $len; $i >= 0; $i--) {
$tempstr = substr($host, $i, $len);
if ($tempstr eq $_[0]) {
print "$_[1]";
exit;
}
}
}
}

###############################
# #
# GET HOST NAME FUNCTION #
# #
###############################
sub gethostname {
$ipnum = $ENV{'REMOTE_ADDR'};
@digits = split (/\./, $ipnum);
$address = pack ("C4", @digits);
$host = gethostbyaddr ($address, 2);

return $host
}
------------------------------------------------------------------
коды стран:AD`Andorra
AE`United Arab Emirates
AF`Afghanistan
AG`Antigua and Barbuda
AI`Anguilla
AL`Albania
AM`Armenia
AN`Netherland Antilles
AO`Angola
AQ`Antarctica
AR`Argentina
AS`American Samoa
AT`Austria
AU`Australia
AW`Aruba
AZ`Azerbaidjan
BA`Bosnia-Herzegovina
BB`Barbados
BD`Banglades
BE`Belgium
BF`Burkina Faso
BG`Bulgaria
BH`Bahrain
BI`Burundi
BJ`Benin
BM`Bermuda
BN`Brunei Darussalam
BO`Bolivia
BR`Brazil
BS`Bahamas
BT`Buthan
BV`Bouvet Island
BW`Botswana
BY`Belarus
BZ`Belize
CA`Canada
CC`Cocos (Keeling) Islands
CF`Central African Republic
CG`Congo
CH`Switzerland
CI`Ivory Coast
CK`Cook Islands
CL`Chile
CM`Cameroon
CN`China
CO`Colombia
CR`Costa Rica
CS`Czechoslovakia
CU`Cuba
CV`Cape Verde
CX`Christmas Island
CY`Cyprus
CZ`Czech Republic
DE`Germany
DJ`Djibouti
DK`Denmark
DM`Dominica
DO`Dominican Republic
DZ`Algeria
EC`Ecuador
EE`Estonia
EG`Egypt
EH`Western Sahara
ES`Spain
ET`Ethiopia
FI`Finland
FJ`Fiji
FK`Falkland Islands (Malvinas)
FM`Micronesia
FO`Faroe Islands
FR`France
FX`France (European Territory)
GA`Gabon
GB`Great Britain (UK)
GD`Grenada
GE`Georgia
GH`Ghana
GI`Gibraltar
GL`Greenland
GP`Guadeloupe (French)
GQ`Equatorial Guinea
GF`Guyana (French)
GM`Gambia
GN`Guinea
GR`Greece
GT`Guatemala
GU`Guam (US)
GW`Guinea Bissau
GY`Guyana
HK`Hong Kong
HM`Heard and McDonald Islands
HN`Honduras
HR`Croatia
HT`Haiti
HU`Hungary
ID`Indonesia
IE`Ireland
IL`Israel
IN`India
IO`British Indian Ocean Territory
IQ`Iraq
IR`Iran
IS`Iceland
IT`Italy
JM`Jamaica
JO`Jordan
JP`Japan
KE`Kenya
KG`Kirgistan
KH`Cambodia
KI`Kiribati
KM`Comoros
KN`Saint Kitts Nevis Anguilla
KP`North Korea
KR`South Korea
KW`Kuwait
KY`Cayman Islands
KZ`Kazachstan
LA`Laos
LB`Lebanon
LC`Saint Lucia
LI`Liechtenstein
LK`Sri Lanka
LR`Liberia
LS`Lesotho
LT`Lithuania
LU`Luxembourg
LV`Latvia
LY`Libya
MA`Morocco
MC`Monaco
MD`Moldavia
MG`Madagascar
MH`Marshall Islands
ML`Mali
MM`Myanmar
MN`Mongolia
MO`Macau
MP`Northern Mariana Islands
MQ`Martinique (French)
MR`Mauritania
MS`Montserrat
MT`Malta
MU`Mauritius
MV`Maldives
MW`Malawi
MX`Mexico
MY`Malaysia
MZ`Mozambique
NA`Namibia
NC`New Caledonia (French)
NE`Niger
NF`Norfolk Island
NG`Nigeria
NI`Nicaragua
NL`Netherlands
NO`Norway
NP`Nepal
NR`Nauru
NT`Neutral Zone
NU`Niue
NZ`New Zealand
OM`Oman
PA`Panama
PE`Peru
PF`Polynesia (French)
PG`Papua New
PH`Philippines
PK`Pakistan
PL`Poland
PM`Saint Pierre and Miquelon
PN`Pitcairn
PT`Portugal
PR`Puerto Rico (US)
PW`Palau
PY`Paraguay
QA`Qatar
RE`Reunion (French)
RO`Romania
RU`Russian Federation
RW`Rwanda
SA`Saudi Arabia
SB`Solomon Islands
SC`Seychelles
SD`Sudan
SE`Sweden
SG`Singapore
SH`Saint Helena
SI`Slovenia
SJ`Svalbard and Jan Mayen Islands
SK`Slovak Republic
SL`Sierra Leone
SM`San Marino
SN`Senegal
SO`Somalia
SR`Suriname
ST`Saint Tome and Principe
SU`Soviet Union
SV`El Salvador
SY`Syria
SZ`Swaziland
TC`Turks and Caicos Islands
TD`Chad
TF`French Southern Territory
TG`Togo
TH`Thailand
TJ`Tadjikistan
TK`Tokelau
TM`Turkmenistan
TN`Tunisia
TO`Tonga
TP`East Timor
TR`Turkey
TT`Trinidad and Tobago
TV`Tuvalu
TW`Taiwan
TZ`Tanzania
UA`Ukraine
UG`Uganda
UK`United Kingdom
UM`US Minor Outlying Islands
US`United States
UY`Uruguay
UZ`Uzbekistan
VA`Vatican City State
VC`Saint Vincent and Grenadines
VE`Venezuela
VG`Virgin Islands (British)
VI`Virgin Islands (US)
VN`Vietnam
VU`Vanuatu
WF`Wallis and Futuna Islands
WS`Samoa
YE`Yemen
YU`Yugoslavia
ZA`South Africa
ZM`Zambia
ZR`Zaire
ZW`Zimbabwe
ARPA`Old style Arpanet
COM`US Commercial
EDU`US Educational
GOV`US Government
INT`International
MIL`US Military
NATO`Nato field
NET`Network
ORG`Non-Profit
--------------------------------------------------------------------
Сообщение31.07.2008 в 14:12 (UTC)    
Заголовок сообщения: Re: прога для определения IP адресов посетителей

Цитата:
HERMITINFO Определение IP адреса посетителя Вашего сайта

Мен это написано на Perl, а этот хост потдерживает только HTML и CSS.

Вот можете разместить у себя на сайте вот этот код:

Код:
<a href="http://www.ipadress.ru/">
       <img src="http://www.ipadress.ru/ip.gif">
       </a>

-------------------------------------------------------------
Код:
<a href="http://smart-ip.net/" title="Узнать/определить IP адрес"><img src="http://smart-ip.net/_res/script/image.php?type=5&lang=ru" border="0"></a>



Он покажет при заходе на сайт, IP.


Последний раз редактировалось: outset (31.07.2008, 15:33), всего редактировалось 2 раз(а)
Сообщение01.08.2008 в 09:13 (UTC)    
Заголовок сообщения: Re: прога для определения IP адресов посетителей

Вот можете разместить у себя на сайте вот этот код:

Код:
<a href="http://www.ipadress.ru/">
       <img src="http://www.ipadress.ru/ip.gif">
       </a>

-------------------------------------------------------------
Код:
<a href="http://smart-ip.net/" title="Узнать/определить IP адрес"><img src="http://smart-ip.net/_res/script/image.php?type=5&lang=ru" border="0"></a>





Правильно! Эти кнопки можно установить с сайтов:
1: http://www.ipadress.ru
2: http://smart-ip.net
есть ещё скриптик код он сообщает с какой страницы пришел пользователь. Кодик можно посмотреть здесь: Rolling Eyes
: http://reallstudio.narod.ru/webbookstore21/webbookstore21.html
Сообщение01.08.2008 в 09:33 (UTC)    
Заголовок сообщения:

или (без рекламы других сайтов) Используй переменные
эта опция нахоится в настройках под пунктом
"Профи установки (Начинающим пожалуйста не изменять!)" Wink
______________


Последний раз редактировалось: codes4you (01.08.2008, 10:33), всего редактировалось 1 раз
Сообщение01.08.2008 в 11:21 (UTC)    
Заголовок сообщения:

codes4you писал(а):
или (без рекламы других сайтов) Используй переменные
эта опция нахоится в настройках под пунктом
"Профи установки (Начинающим пожалуйста не изменять!)" Wink


Да надо бы сделать, да вот руки не доходят.
И без этой примочки на сайте гемора хватает .
Показать сообщения:   


Powered by phpBB © 2001, 2005 phpBB Group
phpBB