<?php
$ip = "62.253.132.86";
function rwhois($query){
$fp = fsockopen ("rwhois.arin.net", 4321, $errno, $errstr, 30);
if (!$fp) {
$ret[] = "$errstr ($errno)\n";
}else{
fputs ($fp, "$query\r\n\r\n");
$count=1;
while (!feof($fp) && $count < 17) {
$back = fgets ($fp,128);
$data = explode(":",$back);
$ret[$data[1]] = $data[2];
$count++;
}
fclose ($fp);
}
return $ret;
}
$cLook = rwhois($ip);
$host = gethostbyaddr($ip);
$ccode = strtolower(trim($cLook['Country-Code']));
switch($ccode)
{
case "ac": $country = "Ascension Island"; break;
case "ad": $country = "Andorra"; break;
case "ae": $country = "United Arab Emirates"; break;
case "af": $country = "Afghanistan"; break;
case "ag": $country = "Antigua and Barbuda"; break;
case "ai": $country = "Anguilla"; break;
case "al": $country = "Albania"; break;
case "am": $country = "Armenia"; break;
case "an": $country = "Netherlands Antilles"; break;
case "ao": $country = "Angola"; break;
case "aq": $country = "Antarctica"; break;
case "ar": $country = "Argentina"; break;
case "as": $country = "American Samoa"; break;
case "at": $country = "Austria"; break;
case "au": $country = "Australia"; break;
case "aw": $country = "Aruba"; break;
case "az": $country = "Azerbaijan"; break;
case "ba": $country = "Bosnia and Herzegovina"; break;
case "bb": $country = "Barbados"; break;
case "bd": $country = "Bangladesh"; break;
case "be": $country = "Belgium"; break;
case "bf": $country = "Burkina Faso"; break;
case "bg": $country = "Bulgaria"; break;
case "bh": $country = "Bahrain"; break;
case "bi": $country = "Burundi"; break;
case "bj": $country = "Benin"; break;
case "bm": $country = "Bermuda"; break;
case "bn": $country = "Brunei Darussalam"; break;
case "bo": $country = "Bolivia"; break;
case "br": $country = "Brazil"; break;
case "bs": $country = "Bahamas"; break;
case "bt": $country = "Bhutan"; break;
case "bv": $country = "Bouvet Island"; break;
case "bw": $country = "Botswana"; break;
case "by": $country = "Belarus"; break;
case "bz": $country = "Belize"; break;
case "ca": $country = "Canada"; break;
case "cc": $country = "Cocos (Keeling) Islands"; break;
case "cd": $country = "Congo, Democratic Republic of the"; break;
case "cf": $country = "Central African Republic"; break;
case "cg": $country = "Congo, Republic of"; break;
case "ch": $country = "Switzerland"; break;
case "ci": $country = "Cote d'Ivoire"; break;
case "ck": $country = "Cook Islands"; break;
case "cl": $country = "Chile"; break;
case "cm": $country = "Cameroon"; break;
case "cn": $country = "China"; break;
case "co": $country = "Colombia"; break;
case "cr": $country = "Costa Rica"; break;
case "cu": $country = "Cuba"; break;
case "cv": $country = "Cap Verde"; break;
case "cx": $country = "Christmas Island"; break;
case "cy": $country = "Cyprus"; break;
case "cz": $country = "Czech Republic"; break;
case "de": $country = "Germany"; break;
case "dj": $country = "Djibouti"; break;
case "dk": $country = "Denmark"; break;
case "dm": $country = "Dominica"; break;
case "do": $country = "Dominican Republic"; break;
case "dz": $country = "Algeria"; break;
case "ec": $country = "Ecuador"; break;
case "ee": $country = "Estonia"; break;
case "eg": $country = "Egypt"; break;
case "eh": $country = "Western Sahara"; break;
case "er": $country = "Eritrea"; break;
case "es": $country = "Spain"; break;
case "et": $country = "Ethiopia"; break;
case "fi": $country = "Finland"; break;
case "fj": $country = "Fiji"; break;
case "fk": $country = "Falkland Islands (Malvina)"; break;
case "fm": $country = "Micronesia, Federal State of"; break;
case "fo": $country = "Faroe Islands"; break;
case "fr": $country = "France"; break;
case "ga": $country = "Gabon"; break;
case "gd": $country = "Grenada"; break;
case "ge": $country = "Georgia"; break;
case "gf": $country = "French Guiana"; break;
case "gg": $country = "Guernsey"; break;
case "gh": $country = "Ghana"; break;
case "gi": $country = "Gibraltar"; break;
case "gl": $country = "Greenland"; break;
case "gm": $country = "Gambia"; break;
case "gn": $country = "Guinea"; break;
case "gp": $country = "Guadeloupe"; break;
case "gq": $country = "Equatorial Guinea"; break;
case "gr": $country = "Greece"; break;
case "gs": $country = "South Georgia and the South Sandwich Islands"; break;
case "gt": $country = "Guatemala"; break;
case "gu": $country = "Guam"; break;
case "gw": $country = "Guinea-Bissau"; break;
case "gy": $country = "Guyana"; break;
case "hk": $country = "Hong Kong"; break;
case "hm": $country = "Heard and McDonald Islands"; break;
case "hn": $country = "Honduras"; break;
case "hr": $country = "Croatia/Hrvatska"; break;
case "ht": $country = "Haiti"; break;
case "hu": $country = "Hungary"; break;
case "id": $country = "Indonesia"; break;
case "ie": $country = "Ireland"; break;
case "il": $country = "Israel"; break;
case "im": $country = "Isle of Man"; break;
case "in": $country = "India"; break;
case "io": $country = "British Indian Ocean Territory"; break;
case "iq": $country = "Iraq"; break;
case "ir": $country = "Iran (Islamic Republic of)"; break;
case "is": $country = "Iceland"; break;
case "it": $country = "Italy"; break;
case "je": $country = "Jersey"; break;
case "jm": $country = "Jamaica"; break;
case "jo": $country = "Jordan"; break;
case "jp": $country = "Japan"; break;
case "ke": $country = "Kenya"; break;
case "kg": $country = "Kyrgyzstan"; break;
case "kh": $country = "Cambodia"; break;
case "ki": $country = "Kiribati"; break;
case "km": $country = "Comoros"; break;
case "kn": $country = "Saint Kitts and Nevis"; break;
case "kp": $country = "Korea, Democratic People's Republic"; break;
case "kr": $country = "Korea, Republic of"; break;
case "kw": $country = "Kuwait"; break;
case "ky": $country = "Cayman Islands"; break;
case "kz": $country = "Kazakhstan"; break;
case "la": $country = "Lao People's Democratic Republic"; break;
case "lb": $country = "Lebanon"; break;
case "lc": $country = "Saint Lucia"; break;
case "li": $country = "Liechtenstein"; break;
case "lk": $country = "Sri Lanka"; break;
case "lr": $country = "Liberia"; break;
case "ls": $country = "Lesotho"; break;
case "lt": $country = "Lithuania"; break;
case "lu": $country = "Luxembourg"; break;
case "lv": $country = "Latvia"; break;
case "ly": $country = "Libyan Arab Jamahiriya"; break;
case "ma": $country = "Morocco"; break;
case "mc": $country = "Monaco"; break;
case "md": $country = "Moldova, Republic of"; break;
case "mg": $country = "Madagascar"; break;
case "mh": $country = "Marshall Islands"; break;
case "mk": $country = "Macedonia, Former Yugoslav Republic"; break;
case "ml": $country = "Mali"; break;
case "mm": $country = "Myanmar"; break;
case "mn": $country = "Mongolia"; break;
case "mo": $country = "Macau"; break;
case "mp": $country = "Northern Mariana Islands"; break;
case "mq": $country = "Martinique"; break;
case "mr": $country = "Mauritania"; break;
case "ms": $country = "Montserrat"; break;
case "mt": $country = "Malta"; break;
case "mu": $country = "Mauritius"; break;
case "mv": $country = "Maldives"; break;
case "mw": $country = "Malawi"; break;
case "mx": $country = "Mexico"; break;
case "my": $country = "Malaysia"; break;
case "mz": $country = "Mozambique"; break;
case "na": $country = "Namibia"; break;
case "nc": $country = "New Caledonia"; break;
case "ne": $country = "Niger"; break;
case "nf": $country = "Norfolk Island"; break;
case "ng": $country = "Nigeria"; break;
case "ni": $country = "Nicaragua"; break;
case "nl": $country = "Netherlands"; break;
case "no": $country = "Norway"; break;
case "np": $country = "Nepal"; break;
case "nr": $country = "Nauru"; break;
case "nu": $country = "Niue"; break;
case "nz": $country = "New Zealand"; break;
case "om": $country = "Oman"; break;
case "pa": $country = "Panama"; break;
case "pe": $country = "Peru"; break;
case "pf": $country = "French Polynesia"; break;
case "pg": $country = "Papua New Guinea"; break;
case "ph": $country = "Philippines"; break;
case "pk": $country = "Pakistan"; break;
case "pl": $country = "Poland"; break;
case "pm": $country = "St. Pierre and Miquelon"; break;
case "pn": $country = "Pitcairn Island"; break;
case "pr": $country = "Puerto Rico"; break;
case "ps": $country = "Palestinian Territories"; break;
case "pt": $country = "Portugal"; break;
case "pw": $country = "Palau"; break;
case "py": $country = "Paraguay"; break;
case "qa": $country = "Qatar"; break;
case "re": $country = "Reunion Island"; break;
case "ro": $country = "Romania"; break;
case "ru": $country = "Russian Federation"; break;
case "rw": $country = "Rwanda"; break;
case "sa": $country = "Saudi Arabia"; break;
case "sb": $country = "Solomon Islands"; break;
case "sc": $country = "Seychelles"; break;
case "sd": $country = "Sudan"; break;
case "se": $country = "Sweden"; break;
case "sg": $country = "Singapore"; break;
case "sh": $country = "St. Helena"; break;
case "si": $country = "Slovenia"; break;
case "sj": $country = "Svalbard and Jan Mayen Islands"; break;
case "sk": $country = "Slovak Republic"; break;
case "sl": $country = "Sierra Leone"; break;
case "sm": $country = "San Marino"; break;
case "sn": $country = "Senegal"; break;
case "so": $country = "Somalia"; break;
case "sr": $country = "Suriname"; break;
case "st": $country = "Sao Tome and Principe"; break;
case "sv": $country = "El Salvador"; break;
case "sy": $country = "Syrian Arab Republic"; break;
case "sz": $country = "Swaziland"; break;
case "tc": $country = "Turks and Caicos Islands"; break;
case "td": $country = "Chad"; break;
case "tf": $country = "French Southern Territories"; break;
case "tg": $country = "Togo"; break;
case "th": $country = "Thailand"; break;
case "tj": $country = "Tajikistan"; break;
case "tk": $country = "Tokelau"; break;
case "tm": $country = "Turkmenistan"; break;
case "tn": $country = "Tunisia"; break;
case "to": $country = "Tonga"; break;
case "tp": $country = "East Timor"; break;
case "tr": $country = "Turkey"; break;
case "tt": $country = "Trinidad and Tobago"; break;
case "tv": $country = "Tuvalu"; break;
case "tw": $country = "Taiwan"; break;
case "tz": $country = "Tanzania"; break;
case "ua": $country = "Ukraine"; break;
case "ug": $country = "Uganda"; break;
case "uk": $country = "United Kingdom"; break;
case "um": $country = "US Minor Outlying Islands"; break;
case "us": $country = "United States"; break;
case "uy": $country = "Uruguay"; break;
case "uz": $country = "Uzbekistan"; break;
case "va": $country = "Holy See (City Vatican State)"; break;
case "vc": $country = "Saint Vincent and the Grenadines"; break;
case "ve": $country = "Venezuela"; break;
case "vg": $country = "Virgin Islands (British)"; break;
case "vi": $country = "Virgin Islands (USA)"; break;
case "vn": $country = "Vietnam"; break;
case "vu": $country = "Vanuatu"; break;
case "wf": $country = "Wallis and Futuna Islands"; break;
case "ws": $country = "Western Samoa"; break;
case "ye": $country = "Yemen"; break;
case "yt": $country = "Mayotte"; break;
case "yu": $country = "Yugoslavia"; break;
case "za": $country = "South Africa"; break;
case "zm": $country = "Zambia"; break;
case "zw": $country = "Zimbabwe"; break;
default: $country = "Bilinmeyen";
}
echo "<font color=\"red\" size=\"2\">$host</font> ip'si <font face=\"verdana,arial,helvetica\" size=\"2\"><b>" . $country . "</b> Ülkesine Ait</font>";
?>