вот оно мой блок отвечающий за то что бы пользователь не смог отправить файл который уже есть на сервере (учитываются регистр поджопники тирэ запятые можете поиграть) укажите где лежит музыка и в форме напишете названия песни только всё название переверните вот если выдаст одинаковое количество разделённых частей и количесво найденых частей то файл нельзя закачать а если разное то можно! Может комунибудь понадобиться! С уважением Sfinks!
<?
print"<a href=http://>Вот</a><br>";//ссылочка что бы страницу не перезагружать
$dir_search="../cool/PA3HOE/"; //укажи доступ к папке с музыкой
$sfinksdir=opendir($dir_search);
while($sfifile=readdir($sfinksdir))
{
if(($sfifile!=".")&&($sfifile!=".."))
{
$asfile[]=$sfifile;
$sfi++;
}
}
$qw00=$_REQUEST["text"];
//----------------------------------//
//Проводим фильтрацию файла загрузки//
//----------------------------------//
$qw="$qw00";settype($qw,string);$qw0=trim($qw);$qw1=strtolower($qw0);$qw2=(int)$qw1;
if($qw2!=""){settype($qw2,string);$qw3=strlen($qw2);$qw4=strpos($qw1,$qw2);$qw5=($qw3+$qw4);$qw6=substr($qw1,($qw5));}else{$qw6=$qw1;}
$qw77=trim($qw6);$filelol[]=$qw77;
for($i=0;$i<=100;$i++){$usf=($i+1);$usf1=strstr($filelol[$i],"_");if($usf1!=""){$usf2=strpos($filelol[$i],"_");$usf3=($usf2+1);$usf4=strlen($filelol[$i]);$usf5=($usf4-$usf3+1);$usf7=($usf4-$usf5-$usf2);$usf8=substr($filelol[$i],$usf7,$usf2);$usf9=substr($filelol[$i],$usf3,$usf5);$filelol[$usf]="$usf8 $usf9";$uc++;}}
$qwxer=$filelol[$uc];if($qwxer!=""){$qw777=$filelol[$uc];}else{$qw777=$qw77;}
$filelol1[]=$qw777;
for($i=0;$i<=100;$i++){$usf1=($i+1);$usf11=strstr($filelol1[$i],"-");if($usf11!=""){$usf21=strpos($filelol1[$i],"-");$usf31=($usf21+1);$usf41=strlen($filelol1[$i]);$usf51=($usf41-$usf31+1);$usf71=($usf41-$usf51-$usf21);$usf81=substr($filelol1[$i],$usf71,$usf21);$usf91=substr($filelol1[$i],$usf31,$usf51);$filelol1[$usf1]="$usf81 $usf91";$uc1++;}}
$qwxer1=$filelol1[$uc1];if($qwxer1!=""){$qw7777=$filelol1[$uc1];}else{$qw7777=$qw777;}
$fileng[]=$qw7777;for($i=0;$i<=100;$i++){$usfng=($i+1);$usf1ng=strstr($fileng[$i],",");if($usf1ng!=""){$usf2ng=strpos($fileng[$i],",");$usf3ng=($usf2ng+1);$usf4ng=strlen($fileng[$i]);$usf5ng=($usf4ng-$usf3ng+1);$usf7ng=($usf4ng-$usf5ng-$usf2ng);$usf8ng=substr($fileng[$i],$usf7ng,$usf2ng);$usf9ng=substr($fileng[$i],$usf3ng,$usf5ng);$fileng[$usfng]="$usf8ng $usf9ng";$ucng++;}}
$qwxer=$fileng[$ucng];if($qwxer!=""){$qw77777=$fileng[$ucng];}else{$qw77777=$qw7777;}
$qw7=trim($qw77777);$jkl=strstr($qw7," ");if($jkl!=""){$km[]=$qw7;for($i=0;$i<=100;$i++){$gm=($i+1);$sfm=strpos($km[$i]," ");if($sfm!=""){$sfhm[$i]=substr($km[$i],0,$sfm);$sf1m=substr($km[$i],$sfm);$km[$gm]=trim($sf1m);$sfgm++;$sf1m2=strstr($km[$gm]," ");if($sf1m2!=""){}else{$sfhm[]=substr($km[$gm],0);}}}}else{$sfhm[]=$qw7;}
$df=-1;
$dn=-1;
$bn=($sfgm+1);
while(++$df<=($sfi-1))
{
$asfile[$df]=strtolower($asfile[$df]);
for($fk=-1;$fk<=($bn-1);$fk++)
{
$zx=strstr($asfile[$df],$sfhm[$fk]);
if($zx!="")
{
$zx1=strlen($sfhm[$fk]);
$zx2=strpos($asfile[$df],$sfhm[$fk]);
$zx3=substr($asfile[$df],$zx2,$zx1);
print"<font color=red> $zx3 </font><br>";
$fu[]="$zx3 $df";
$poschitaem++;
}
}
}
for($fh=-1;$fh<=($bn);$fh++)
{
print"Часть запроса : '$sfhm[$fh]'<br>";
}
$jo=-1;
while(++$jo<=$poschitaem)
{
$jp=($jo-1);
$zx4=strpos($fu[$jo]," ");
$zx5[]=substr($fu[$jo],($zx4+1));
$jop++;
}
$we=-1;
$ws=-1;
while(++$we<=($jop-2))
{
print"<font color=blue> $zx5[$we] </font><br>";
}
$x = array();
foreach ($zx5 as $v){
@$x[$v]++;
}
arsort($x);
$max = each($x);
$asp=''.$max['value'];
print"Это максимальное нахождение частей в файле = $asp .<br>";
print"Это на сколько разбит файл загрузки = $bn .<br>";
?>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<LINK REL="STYLESHEET" TYPE="text/css">
<meta http-equiv="sfinsk" content="no-cache">
<body>
<form action="<?php print $text ?>" method=post>
<input type=text name=text>
<input type=submit>
</form>
</body>
</html>