Просмотр файла counter/index.php

<?php
/////////////////////////////////////////////////////////////////
//                                                             //
//                     (c) made by Mackler'                    //
//             ----------------------------------              //
//                     ICQ: 531710                             //
//                   email: [email protected]                //
//                 WAPsite: planeta.h2m.ru                     //
//             ----------------------------------              //
//                            '2007'                           //
//                                                             //
/////////////////////////////////////////////////////////////////

Error_Reporting(E_ALL & ~E_NOTICE);
$ip_tek=$REMOTE_ADDR;
$time_tek= date('H').date('i');
$day_tek= date('j');
$a= @fopen("day.dat","r");
$day_last= @fgets($a,10);
@fclose($a);

header ("Content-type:images/png");

//===========================  online ===========================
$aa= @fopen("online.dat","r");
while ( $bb= @fgets($aa, 30))
      { $data[]= $bb;
       }
@fclose($aa);
$n=0;
$m= count($data);
while ( $n < $m )
      { $str= strlen($data[$n]);
        $data_ip[$n]= substr($data[$n], 0, $str-7);
        $data_time[$n]= substr($data[$n], $str-5, 4);
        $n++;
       }
$time_last=$time_tek-5;
for ($n=0; $n<$m; $n++)
    { if ( $time_last <= $data_time[$n] 
           && $ip_tek !== $data_ip[$n]
           && $day_tek == $day_last)
         { $ondat[$n]=$data[$n];
          }
      else {}
     }
$ondat[]=$ip_tek."||".$time_tek."\n";
$online= count($ondat);
$q=@fopen("online.dat","w");
for ($n=0; $n < $online; $n++)
      { @fputs($q,$ondat[$n]);}
@fclose($q);

//========================= hits today ==========================
if ( $day_tek == $day_last )
    { $hit_last = @file("hits.dat");
      $hit = $hit_last[0]+1;
      $fp = @fopen("hits.dat","w");
      @fputs($fp,$hit);
      @fclose($fp);
     }
else { $fp = @fopen("hits.dat","w");
       @fputs($fp,"1");
       @fclose($fp);
       $hit=1;
      }

//==================== hosts today and all=======================
if ( $day_tek == $day_last )
    { $addr=@fopen("host.dat","r");
      while ( $d=@fgets($addr,30))
          { $ip1[] = $d;
           }
      @fclose($addr);
      $i=0;
      $i=count($ip1); $y=0;
      while ($y < $i)
          { if ( $ip1[$y] == $ip_tek."\n")
              { break;
               }
            elseif ( $i == $y+1 )
                { $y++;
                 $addr1=@fopen("host.dat","a");
                 @fputs($addr1,$ip_tek."\n");
                 @fclose($addr1);
                 $i++;
                 $z= @file("allhost.dat");
                 $op=$z[0]+1;
                 $allhost=$op;
                 $addr2=@fopen("allhost.dat","w");
                 @fputs($addr2,$op);
                 @fclose($addr2);
                 break;
                 }
            else {$y++;
                  }
           }
       $host= $i;
      }
else { $fp = @fopen("host.dat","w");
       @fputs($fp,$ip_tek."\n");
       @fclose($fp);
       $host=1;
       $z= @file("allhost.dat");
       $op=$z[0]+1;
       $allhost=$op;
       $addr2=@fopen("allhost.dat","w");
       @fputs($addr2,$op);
       @fclose($addr2);
      }
$qw=@file("allhost.dat");
$allhost=$qw[0];

//===================== image counter ===========================
$image = ImageCreateFromPng("image.png");
$color1=imagecolorallocate($image, 255, 255, 40);
$color2=imagecolorallocate($image, 0, 255, 0);
ImageString ($image,2, 61, 2,"online" , $color2);
ImageString ($image,2, 73, 12,"hits" , $color2);
ImageString ($image,2, 73, 23,"host" , $color2);
ImageString ($image,2, 49, 34,"all host" , $color2);
ImageString ($image,2, 7, 13, $hit, $color1);
ImageString ($image,2, 7, 35, $allhost, $color1);
ImageString ($image,2, 7, 2, $online, $color1);
ImageString ($image,2, 7, 24, $host, $color1);
Imagepng($image);
imagedestroy($image);
//===============================================================
$a= @fopen("day.dat","w");
@fputs($a,$day_tek);
@fclose($a);
?>