هذا هو الي حطه زاجل قبل مده بس انسخه وحطه في ملف php
اسم الملف ztrans.php
كود:
<?
if (!isset($file)){ ?>
<html dir="rtl">
<head>
<meta http-equiv="Content-Language" content="ar-sa">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<title>::: ناقل الملفات :::</title>
</head>
<body>
<p align="center"><b><font face="Arial" color="#A42900">::: ناقل الملفات :::</font></b></p>
<form method="POST" action="<? PHP_SELF ?>">
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" >
<tr>
<td bgcolor="#ECECFF" nowrap><b><font face="Arial">موقع الملف: </font></b>
</td>
<td width="100%">
<input type="text" name="file" size="70" style="font-family: verdana; font-size: 8pt; color: #A42900; border: 1px solid #808080; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #EEEEEE"></td>
</tr>
<tr>
<td bgcolor="#ECECFF" nowrap valign="top"><b><font face="Arial">موقع تنزيل
الملف: </font></b></td>
<td width="100%">
<input type="text" name="loc" size="70" style="font-family: verdana; font-size: 8pt; color: #A42900; border: 1px solid #808080; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #EEEEEE"><br>
<font face="Tahoma" size="1" color="#A42900">اترك هذا الحقل فارغاً إذا كنت
ترغب في نقل الملف إلى نفس الدليل الذي يوجد فيه السكريبت. أما في حالة رغبتك
في نقل الملف إلى موقع آخر فيتوجب عليك إدخال موقع الدليل كما يتوجب التأكد من
أن تصريح هذا الدليل هو 777.</font></td>
</tr>
</table>
<p align="center">
<input type="submit" value="نفذ عملية النقل" name="B1" style="font-family: Arial; font-size: 12pt; color: #A42900; font-weight: bold; border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #EEEEEE"></p>
</form>
<!-- إذا لم تكن ترغب بظهور توقيع زاجل يمكنك إزالته دون تحفظ -->
<p align="center"><font face="Tahoma" size="2">
<font color="#C0C0C0">زاجل ...
دائماً في الخدمة<br>
</font><a href="http://www.zajil.cc"><font color="#C0C0C0">
www.zajil.cc</font></a></font></p>
<!-- نهاية التوقيع -->
</body>
</html>
<? }
else {
?>
<html dir="rtl">
<head>
<meta http-equiv="Content-Language" content="ar-sa">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<title>::: ناقل الملفات :::</title>
</head>
<body><font face=arial size=3><B>
<?
set_time_limit(30000);
print ("جاري البحث عن: <font color=gray size=2>$file</font><br>\n");
flush();
sleep(1);
$fp= @fopen($file,"r");
if ($fp == false) {
print ("الملف: <font color=red size=2>$file</font> غير موجود!\n");
exit;
}
print ("تم العثور على الملف...<br> جاري التنزيل ... الرجاء الانتظار<Br><BR>\n");
flush();
sleep(1);
$startmtime = microtime();
while(!feof($fp)){
$contents.= fread ($fp, 1024);
}
fclose($fp);
$endmtime = microtime();
$i=strrpos($startmtime," ");
$startmtime=substr($startmtime,$i+1,strlen($startmtime)-$i)+substr($startmtime,0,$i);
$i=strrpos($endmtime," ");
$endmtime=substr($endmtime,$i+1,strlen($endmtime)-$i)+substr($endmtime,0,$i);
$totaltime = $endmtime - $startmtime;
$kbs = round((strlen($contents)/1024)/$totaltime);
print ("<font color=red>تم نقل الملف بنجاح</font><br><br><font color=#000080>\n");
print ("سرعة نقل البيانات: ".number_format($kbs)." كيلوبايت / ثانية. « الوقت المستغرق: $totaltime ثانية »<br>\n");
flush();
sleep(1);
$tmpnewfile = strrchr($file,"/");
$newfile = $loc . substr($tmpnewfile,1,strlen($tmpnewfile)-1);
$dest=fopen("$newfile","w+");
fwrite($dest,$contents);
fclose($dest);
print ("تم إنشاء ملف باسم:<font size=2> $newfile</font><br>\n");
flush();
sleep(1);
$size = (int) (strlen($contents) / 1024 + .5);
if ($size < 1024) {
$size = $size . " كيلوبايت ";
} else {
$size = ((int) ($size / 102.4 + .5)) / 10 . " ميجابايت ";
}
print ("الحجم: $size<br><br></font>\n");
}
?>