mirror of
https://git.sindominio.net/estibadores/wordpress.git
synced 2024-11-14 15:11:06 +01:00
522 lines
14 KiB
PHP
522 lines
14 KiB
PHP
<?php
|
|
/*
|
|
Copyright (C) 2015-20 CERBER TECH INC., https://cerber.tech
|
|
Copyright (C) 2015-20 CERBER TECH INC., https://wpcerber.com
|
|
|
|
Licenced under the GNU GPL.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
|
|
|
*/
|
|
|
|
/*
|
|
|
|
*========================================================================*
|
|
| |
|
|
| ATTENTION! Do not change or edit this file! |
|
|
| |
|
|
*========================================================================*
|
|
|
|
*/
|
|
|
|
|
|
// If this file is called directly, abort executing.
|
|
if ( ! defined( 'WPINC' ) ) { exit; }
|
|
|
|
define('WHOIS_ERR_EXPIRE',300);
|
|
define('WHOIS_OK_EXPIRE',24 * 3600);
|
|
define('WHOIS_IO_TIMEOUT', 3);
|
|
|
|
require_once(dirname(__FILE__).'/ripe.php');
|
|
|
|
/*
|
|
* Get WHOIS about IP
|
|
* @since 2.7
|
|
*
|
|
*/
|
|
function cerber_ip_whois_info($ip) {
|
|
$ret = array();
|
|
|
|
$whois_server = cerber_get_whois_server($ip);
|
|
if (is_array($whois_server)) return $whois_server;
|
|
|
|
if ($whois_server == 'whois.ripe.net') {
|
|
return ripe_readable_info($ip);
|
|
}
|
|
|
|
$whois_info = cerber_get_whois($ip);
|
|
if (is_array($whois_info)) return $whois_info;
|
|
$data = cerber_parse_whois_data($whois_info);
|
|
|
|
// Special case - network was transfered to RIPE
|
|
if (isset($data['ReferralServer']) && $data['ReferralServer'] == 'whois://whois.ripe.net') {
|
|
return ripe_readable_info($ip);
|
|
}
|
|
|
|
$table1 = '';
|
|
if (!empty($data)) {
|
|
$table1 = '<table class="whois-object"><tr><td colspan="2"><b>FILTERED WHOIS INFO</b></td></tr>';
|
|
foreach ( $data as $key => $value ) {
|
|
if (is_email($value)) $value = '<a href="mailto:'.$value.'">'.$value.'</a>';
|
|
elseif (strtolower($key) == 'country') {
|
|
$value = cerber_get_flag_html($value) . '<b>' . cerber_country_name($value) . ' (' . $value . ')</b>';
|
|
$ret['country'] = $value;
|
|
}
|
|
|
|
$table1.='<tr><td>'.$key.'</td><td>'.$value.'</td></tr>';
|
|
}
|
|
$table1.='</table>';
|
|
}
|
|
|
|
$table2 ='<table class="whois-object raw"><tr><td><b>RAW WHOIS INFO</b></td></tr>';
|
|
$table2.='<tr><td><pre>'.$whois_info."\n WHOIS server: ".$whois_server.'</pre></td></tr>';
|
|
$table2.='</table>';
|
|
|
|
$info = $table1.$table2;
|
|
|
|
// Other possible field with abuse email address
|
|
if (empty($data['abuse-mailbox']) && !empty($data['OrgAbuseEmail'])){
|
|
$data['abuse-mailbox'] = $data['OrgAbuseEmail'];
|
|
}
|
|
if (empty($data['abuse-mailbox'])){
|
|
foreach ($data as $field){
|
|
$maybe_email = trim($field);
|
|
if (false !== strpos($maybe_email,'abuse') && is_email($maybe_email)){
|
|
$data['abuse-mailbox'] = $maybe_email;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
// Network
|
|
if (!empty($data['inetnum'])){
|
|
$data['network'] = $data['inetnum'];
|
|
}
|
|
elseif (!empty($data['NetRange'])){
|
|
$data['network'] = $data['NetRange'];
|
|
}
|
|
|
|
$ret['data'] = $data;
|
|
$ret['whois'] = $info;
|
|
return $ret;
|
|
}
|
|
/*
|
|
* Get WHOIS info fro given IP
|
|
* @since 2.7
|
|
*
|
|
*/
|
|
function cerber_get_whois($ip){
|
|
$key = 'WHS-'.cerber_get_id_ip($ip);
|
|
$info = get_transient($key);
|
|
if (false === $info) {
|
|
$whois_server = cerber_get_whois_server($ip);
|
|
if (is_array($whois_server)) return $whois_server;
|
|
$info = make_whois_request($whois_server, $ip);
|
|
if (is_array($info)) return $info;
|
|
set_transient( $key, $info , WHOIS_OK_EXPIRE );
|
|
}
|
|
return $info;
|
|
}
|
|
/*
|
|
* Find out what is server storing WHOIS info for given IP
|
|
* @since 2.7
|
|
*
|
|
*/
|
|
function cerber_get_whois_server($ip){
|
|
$key = 'SRV-'.cerber_get_id_ip($ip);
|
|
$server = get_transient($key);
|
|
if (false === $server) {
|
|
$w = make_whois_request( 'whois.iana.org', $ip);
|
|
if (is_array($w)) return $w;
|
|
preg_match( '/^whois\:\s+([\w\.\-]{3,})/m', $w, $data );
|
|
if ( ! isset( $data[1] ) ) return array('error'=>'No WHOIS server was found for IP '.$ip);
|
|
$server = $data[1];
|
|
set_transient( $key, $server , WHOIS_OK_EXPIRE );
|
|
}
|
|
return $server;
|
|
}
|
|
/*
|
|
* Attempt to parse TXT WHOIS response to associative array
|
|
* @since 2.7
|
|
*
|
|
*/
|
|
function cerber_parse_whois_data($txt){
|
|
$lines = explode("\n",$txt);
|
|
$lines = array_filter($lines);
|
|
$ret = array();
|
|
foreach ( $lines as $line ) {
|
|
if (preg_match( '/^([\w\-]+)\:\s+(.+)/', trim($line), $data )) $ret[$data[1]] = $data[2];
|
|
}
|
|
return $ret;
|
|
}
|
|
/*
|
|
*
|
|
* Retrieve RAW IP information by using WHOIS protocol
|
|
* @since 2.7
|
|
*
|
|
*/
|
|
function make_whois_request($server, $ip) {
|
|
if ( ! $f = @fsockopen( $server, 43, $errno, $errstr, WHOIS_IO_TIMEOUT ) ) {
|
|
return array( 'error' => 'Network error: ' . $errstr . ' (WHOIS server: ' . $server . ').' );
|
|
}
|
|
#Set the timeout for answering
|
|
if (!stream_set_timeout($f,WHOIS_IO_TIMEOUT)) return array('error'=>'WHOIS: Unable to set IO timeout.');
|
|
#Send the IP address to the whois server
|
|
if (false === fwrite($f, "$ip\r\n" )) return array('error'=>'WHOIS: Unable to send request to remote WHOIS server ('.$server.').');
|
|
//Set the timeout limit for reading again
|
|
if (!stream_set_timeout($f,WHOIS_IO_TIMEOUT)) return array('error'=>'WHOIS: Unable to set IO timeout.');
|
|
//Set socket in non-blocking mode
|
|
if (!stream_set_blocking( $f, 0 )) return array('error'=>'WHOIS: Unable to set IO non-blocking mode.');
|
|
//If connection still valid
|
|
if ($f) {
|
|
$data = '';
|
|
while (!feof($f)) {
|
|
$data .= fread($f,256);
|
|
}
|
|
}
|
|
else return array('error'=>'Unable to get WHOIS response.');
|
|
if (!$data) return array('error'=>'Remote WHOIS server return empty response ('.$server.').');
|
|
return $data;
|
|
}
|
|
|
|
/**
|
|
* HTML for displaying a national flag
|
|
*
|
|
* @param $code string Country code
|
|
*
|
|
* @return string HTML code
|
|
*
|
|
*/
|
|
function cerber_get_flag_html( $code, $txt = '' ) {
|
|
global $crb_assets_url;
|
|
if ( ! $code ) {
|
|
return '';
|
|
}
|
|
|
|
return '<span class="crb-country" style="background: url(\'' . $crb_assets_url . 'flags/' . strtolower( $code ) . '.gif\') no-repeat left;">' . $txt . '</span>';
|
|
}
|
|
/*
|
|
*
|
|
* Country name from two letter code
|
|
* ISO 3166-1 alpha-2
|
|
* @since 2.7
|
|
*
|
|
*/
|
|
function cerber_country_name( $code ) {
|
|
global $wpdb, $cerber_country_names;
|
|
static $cache, $locale;
|
|
|
|
if ( ! $code ) {
|
|
return __( 'Unknown', 'wp-cerber' );
|
|
}
|
|
|
|
if ( isset( $cache[ $code ] ) ) {
|
|
return $cache[ $code ];
|
|
}
|
|
|
|
$code = strtoupper( $code );
|
|
$ret = '';
|
|
|
|
if (!isset($locale)) {
|
|
$locale = crb_get_bloginfo( 'language' );
|
|
if ( $locale != 'pt-BR' && $locale != 'zh-CN' ) {
|
|
$locale = substr( $locale, 0, 2 );
|
|
if ( ! in_array( $locale, array( 'de', 'en', 'es', 'fr', 'ja', 'ru' ) ) ) {
|
|
$locale = 'en';
|
|
}
|
|
}
|
|
}
|
|
|
|
$ret = cerber_db_get_var( 'SELECT country_name FROM ' . CERBER_GEO_TABLE . ' WHERE country = "'.$code.'" AND locale = "'.$locale.'"' );
|
|
|
|
if ($ret) {
|
|
$cache[ $code ] = $ret;
|
|
return $ret;
|
|
}
|
|
|
|
if ( isset( $cerber_country_names[ $code ] ) ) {
|
|
$ret = $cerber_country_names[ $code ];
|
|
}
|
|
else {
|
|
$ret = __( 'Unknown', 'wp-cerber' );
|
|
}
|
|
|
|
$cache[ $code ] = $ret;
|
|
return $ret;
|
|
}
|
|
|
|
function cerber_get_country_list() {
|
|
global $cerber_country_names;
|
|
$ret = array();
|
|
foreach ( $cerber_country_names as $code => $name ) {
|
|
$ret[ $code ] = cerber_country_name( $code );
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
$cerber_country_names = array(
|
|
'AF' => 'Afghanistan',
|
|
'AL' => 'Albania',
|
|
'AX' => 'Aland Islands',
|
|
'DZ' => 'Algeria',
|
|
'AS' => 'American Samoa',
|
|
'AD' => 'Andorra',
|
|
'AO' => 'Angola',
|
|
'AI' => 'Anguilla',
|
|
'AQ' => 'Antarctica',
|
|
'AG' => 'Antigua and Barbuda',
|
|
'AR' => 'Argentina',
|
|
'AM' => 'Armenia',
|
|
'AW' => 'Aruba',
|
|
'AU' => 'Australia',
|
|
'AT' => 'Austria',
|
|
'AZ' => 'Azerbaijan',
|
|
'BS' => 'Bahamas',
|
|
'BH' => 'Bahrain',
|
|
'BD' => 'Bangladesh',
|
|
'BB' => 'Barbados',
|
|
'BY' => 'Belarus',
|
|
'BE' => 'Belgium',
|
|
'BZ' => 'Belize',
|
|
'BJ' => 'Benin',
|
|
'BM' => 'Bermuda',
|
|
'BT' => 'Bhutan',
|
|
'BO' => 'Bolivia',
|
|
'BQ' => 'Caribbean Netherlands',
|
|
'BA' => 'Bosnia and Herzegovina',
|
|
'BW' => 'Botswana',
|
|
'BV' => 'Bouvet Island',
|
|
'BR' => 'Brazil',
|
|
'IO' => 'British Indian Ocean Territory',
|
|
'BN' => 'Brunei Darussalam',
|
|
'BG' => 'Bulgaria',
|
|
'BF' => 'Burkina Faso',
|
|
'BI' => 'Burundi',
|
|
'KH' => 'Cambodia',
|
|
'CM' => 'Cameroon',
|
|
'CA' => 'Canada',
|
|
'CV' => 'Cape Verde',
|
|
'KY' => 'Cayman Islands',
|
|
'CF' => 'Central African Republic',
|
|
'TD' => 'Chad',
|
|
'CL' => 'Chile',
|
|
'CN' => 'China',
|
|
'CX' => 'Christmas Island',
|
|
'CC' => 'Cocos (Keeling) Islands',
|
|
'CO' => 'Colombia',
|
|
'KM' => 'Comoros',
|
|
'CG' => 'Congo',
|
|
'CD' => 'Democratic Republic of the Congo',
|
|
'CK' => 'Cook Islands',
|
|
'CR' => 'Costa Rica',
|
|
'CI' => 'Cote Divoire',
|
|
'HR' => 'Croatia',
|
|
'CU' => 'Cuba',
|
|
'CW' => 'Curacao',
|
|
'CY' => 'Cyprus',
|
|
'CZ' => 'Czech Republic',
|
|
'DK' => 'Denmark',
|
|
'DJ' => 'Djibouti',
|
|
'DM' => 'Dominica',
|
|
'DO' => 'Dominican Republic',
|
|
'EC' => 'Ecuador',
|
|
'EG' => 'Egypt',
|
|
'SV' => 'El Salvador',
|
|
'GQ' => 'Equatorial Guinea',
|
|
'ER' => 'Eritrea',
|
|
'EE' => 'Estonia',
|
|
'ET' => 'Ethiopia',
|
|
'EU' => 'European Union',
|
|
'EZ' => 'Eurozone',
|
|
'FK' => 'Falkland Islands',
|
|
'FO' => 'Faroe Islands',
|
|
'FJ' => 'Fiji',
|
|
'FI' => 'Finland',
|
|
'FR' => 'France',
|
|
'GF' => 'French Guiana',
|
|
'PF' => 'French Polynesia',
|
|
'TF' => 'French Southern Territories',
|
|
'GA' => 'Gabon',
|
|
'GM' => 'Gambia',
|
|
'GE' => 'Georgia',
|
|
'DE' => 'Germany',
|
|
'GH' => 'Ghana',
|
|
'GI' => 'Gibraltar',
|
|
'GR' => 'Greece',
|
|
'GL' => 'Greenland',
|
|
'GD' => 'Grenada',
|
|
'GP' => 'Guadeloupe',
|
|
'GU' => 'Guam',
|
|
'GT' => 'Guatemala',
|
|
'GG' => 'Guernsey',
|
|
'GN' => 'Guinea',
|
|
'GW' => 'Guinea-Bissau',
|
|
'GY' => 'Guyana',
|
|
'HT' => 'Haiti',
|
|
'HM' => 'Heard Island And McDonald Islands',
|
|
'VA' => 'Holy See',
|
|
'HN' => 'Honduras',
|
|
'HK' => 'Hong Kong',
|
|
'HU' => 'Hungary',
|
|
'IS' => 'Iceland',
|
|
'IN' => 'India',
|
|
'ID' => 'Indonesia',
|
|
'IR' => 'Iran',
|
|
'IQ' => 'Iraq',
|
|
'IE' => 'Ireland',
|
|
'IM' => 'Isle of Man',
|
|
'IL' => 'Israel',
|
|
'IT' => 'Italy',
|
|
'JM' => 'Jamaica',
|
|
'JP' => 'Japan',
|
|
'JE' => 'Jersey',
|
|
'JO' => 'Jordan',
|
|
'KZ' => 'Kazakhstan',
|
|
'KE' => 'Kenya',
|
|
'KI' => 'Kiribati',
|
|
'KP' => 'North Korea',
|
|
'KR' => 'South Korea',
|
|
'KW' => 'Kuwait',
|
|
'KG' => 'Kyrgyzstan',
|
|
'LA' => 'Laos',
|
|
'LV' => 'Latvia',
|
|
'LB' => 'Lebanon',
|
|
'LS' => 'Lesotho',
|
|
'LR' => 'Liberia',
|
|
'LY' => 'Libya',
|
|
'LI' => 'Liechtenstein',
|
|
'LT' => 'Lithuania',
|
|
'LU' => 'Luxembourg',
|
|
'MO' => 'Macao',
|
|
'MK' => 'Macedonia',
|
|
'MG' => 'Madagascar',
|
|
'MW' => 'Malawi',
|
|
'MY' => 'Malaysia',
|
|
'MV' => 'Maldives',
|
|
'ML' => 'Mali',
|
|
'MT' => 'Malta',
|
|
'MH' => 'Marshall Islands',
|
|
'MQ' => 'Martinique',
|
|
'MR' => 'Mauritania',
|
|
'MU' => 'Mauritius',
|
|
'YT' => 'Mayotte',
|
|
'MX' => 'Mexico',
|
|
'FM' => 'Micronesia',
|
|
'MD' => 'Moldova',
|
|
'MC' => 'Monaco',
|
|
'MN' => 'Mongolia',
|
|
'ME' => 'Montenegro',
|
|
'MS' => 'Montserrat',
|
|
'MA' => 'Morocco',
|
|
'MZ' => 'Mozambique',
|
|
'MM' => 'Myanmar',
|
|
'NA' => 'Namibia',
|
|
'NR' => 'Nauru',
|
|
'NP' => 'Nepal',
|
|
'NL' => 'Netherlands',
|
|
'NC' => 'New Caledonia',
|
|
'NZ' => 'New Zealand',
|
|
'NI' => 'Nicaragua',
|
|
'NE' => 'Niger',
|
|
'NG' => 'Nigeria',
|
|
'NU' => 'Niue',
|
|
'NF' => 'Norfolk Island',
|
|
'MP' => 'Northern Mariana Islands',
|
|
'NO' => 'Norway',
|
|
'OM' => 'Oman',
|
|
'PK' => 'Pakistan',
|
|
'PW' => 'Palau',
|
|
'PS' => 'Palestine',
|
|
'PA' => 'Panama',
|
|
'PG' => 'Papua New Guinea',
|
|
'PY' => 'Paraguay',
|
|
'PE' => 'Peru',
|
|
'PH' => 'Philippines',
|
|
'PN' => 'Pitcairn',
|
|
'PL' => 'Poland',
|
|
'PT' => 'Portugal',
|
|
'PR' => 'Puerto Rico',
|
|
'QA' => 'Qatar',
|
|
'RE' => 'Reunion',
|
|
'RO' => 'Romania',
|
|
'RU' => 'Russian Federation',
|
|
'RW' => 'Rwanda',
|
|
'BL' => 'Saint Barthelemy',
|
|
'SH' => 'Saint Helena, Ascension and Tristan da Cunha',
|
|
'KN' => 'Saint Kitts and Nevis',
|
|
'LC' => 'Saint Lucia',
|
|
'MF' => 'Saint Martin (French part)',
|
|
'PM' => 'Saint Pierre and Miquelon',
|
|
'VC' => 'Saint Vincent and the Grenadines',
|
|
'WS' => 'Samoa',
|
|
'SM' => 'San Marino',
|
|
'ST' => 'Sao Tome and Principe',
|
|
'SA' => 'Saudi Arabia',
|
|
'SN' => 'Senegal',
|
|
'RS' => 'Serbia',
|
|
'SC' => 'Seychelles',
|
|
'SL' => 'Sierra Leone',
|
|
'SG' => 'Singapore',
|
|
'SX' => 'Sint Maarten (Dutch part)',
|
|
'SK' => 'Slovakia',
|
|
'SI' => 'Slovenia',
|
|
'SB' => 'Solomon Islands',
|
|
'SO' => 'Somalia',
|
|
'ZA' => 'South Africa',
|
|
'GS' => 'South Georgia and the South Sandwich Islands',
|
|
'SS' => 'South Sudan',
|
|
'ES' => 'Spain',
|
|
'LK' => 'Sri Lanka',
|
|
'SD' => 'Sudan',
|
|
'SR' => 'Suriname',
|
|
'SJ' => 'Svalbard and Jan Mayen',
|
|
'SZ' => 'Swaziland',
|
|
'SE' => 'Sweden',
|
|
'CH' => 'Switzerland',
|
|
'SY' => 'Syrian Arab Republic',
|
|
'TW' => 'Taiwan, Province of China',
|
|
'TJ' => 'Tajikistan',
|
|
'TZ' => 'Tanzania',
|
|
'TH' => 'Thailand',
|
|
'TL' => 'Timor-Leste',
|
|
'TG' => 'Togo',
|
|
'TK' => 'Tokelau',
|
|
'TO' => 'Tonga',
|
|
'TT' => 'Trinidad and Tobago',
|
|
'TN' => 'Tunisia',
|
|
'TR' => 'Turkey',
|
|
'TM' => 'Turkmenistan',
|
|
'TC' => 'Turks And Caicos Islands',
|
|
'TV' => 'Tuvalu',
|
|
'UG' => 'Uganda',
|
|
'UA' => 'Ukraine',
|
|
'AE' => 'United Arab Emirates',
|
|
'GB' => 'United Kingdom',
|
|
'US' => 'United States',
|
|
'UM' => 'United States Minor Outlying Islands',
|
|
'UY' => 'Uruguay',
|
|
'UZ' => 'Uzbekistan',
|
|
'VU' => 'Vanuatu',
|
|
'VE' => 'Venezuela',
|
|
'VN' => 'Viet Nam',
|
|
'VG' => 'British Virgin Islands',
|
|
'VI' => 'United States Virgin Islands',
|
|
'WF' => 'Wallis and Futuna',
|
|
'EH' => 'Western Sahara',
|
|
'YE' => 'Yemen',
|
|
'ZM' => 'Zambia',
|
|
'ZW' => 'Zimbabwe'
|
|
); |