background image

 

return

 

$mark

if

 (@fwrite(

$fp

, "modify test.rn") !== false) 

$mark

 ^= 4; 


@fclose(

$fp

); 

/* 检查目录下是否有执行 rename()

 

函数的权限 */

 

if

 (@rename(

$test_file

$test_file

) !== false) 

$mark

 ^= 8; 


@unlink(

$test_file

); 

/* 

 

如果是文件 */

 

elseif

 (

is_file

(

$file_path

)) 

/* 

 

以读方式打开 */

 

$fp

 = @

fopen

(

$file_path

, 'rb'); 

if

 (

$fp

$mark

 ^= 1; 

//

 

可读 001 


@fclose(

$fp

); 

/* 

 

试着修改文件 */

 

$fp

 = @

fopen

(

$file_path

, 'ab+'); 

if

 (

$fp

 && @fwrite(

$fp

, '') !== false) 

$mark

 ^= 6; 

//

 

可修改可写可读 111,不可修改可写可读 011... 


@fclose(

$fp

); 

/* 检查目录下是否有执行 rename()

 

函数的权限 */

 

if

 (@rename(

$test_file

$test_file

) !== false) 

$mark

 ^= 8; 



else

 

if

 (@

is_readable

(

$file_path

))