Вирус PHP?

function SetFilePermission($path, $permissions)
  {
    $originalPath = $path;
 
    CMain::InitPathVars($site, $path);
    $documentRoot = CSite::GetSiteDocRoot($site);
 
    $path = rtrim($path, "/");
 
    if (strlen($path) <= 0)
      $path = "/";
 
    if( ($position = strrpos($path, "/")) !== false)
    {
      $pathFile = substr($path, $position+1);
      $pathDir = substr($path, 0, $position);
    }
    else
      return false;
 
    if ($pathFile == "" && $pathDir == "")
      $pathFile = "/";
 
    $PERM = Array();
    if(file_exists($documentRoot.$pathDir."/.access.php"))
    {
      //include replaced with eval in order to honor of ZendServer
      eval("?>".file_get_contents($documentRoot.$pathDir."/.access.php"));
    }
 
    if (!isset($PERM[$pathFile]) || !is_array($PERM[$pathFile]))
      $arPermisson = $permissions;
    else
      $arPermisson = $permissions + $PERM[$pathFile];
 
    return $GLOBALS["APPLICATION"]->SetFileAccessPermission($originalPath, $arPermisson);
  }

//include replaced with eval in order to honor of ZendServer
            eval("?>".file_get_contents($documentRoot.$pathDir."/.access.php"))

$PERM = Array();
        if(file_exists($documentRoot.$pathDir."/.access.php"))
            @include($documentRoot.$pathDir."/.access.php");

<?
$PERM["admin"]["*"]="D";
$PERM["wizards"]["*"]="D";
?>