savage
03-17-2006, 06:25 PM
اخي المبرمج اذا لم تستطع فهم ما اقوله فيجب عليك اعادة دراسة ما تعلمته في لغات البرمجة
وخصواص مبدء التعامل مع الملفات بنظام Binary
اولا يجب ان نعرف نوع الملف المراد حمايته
مثلا
exe ثاني حرف يجب ان يكون Z او الرقم 90 بنظام العد الست عشري
لذا يكفي ان نغير هذا الرقم الى اي رقم اخر مثلا 89
و كمثال برمجي لدالة حماية و دالة الغاء حماية
Function Protactexefile(EXEfileName as string) as boolean
Open exefilename for binary access write as #1
On error goto ErrH
Put #1,2,89
ProtactErrorFile=true
close #1
Exit function
errh :
protactEXEFile=false
Close #1
end function
Function UnProtactexefile(EXEfileName as string) as boolean
Open exefilename for binary access write as #1
On error goto ErrH
Put #1,2,90
UnProtactErrorFile=true
close #1
Exit function
errh :
UnprotactEXEFile=false
Close #1
end function
و سأقوم بعمل جدول لباقي انواع الملفات الاخرى ليكون هناك برنامج كامل للجميع
ارجو ممن له تعليق او فكرة لتطوير البرنامج ان يفيدنا بالسرعة
و شكرا للجميع
وخصواص مبدء التعامل مع الملفات بنظام Binary
اولا يجب ان نعرف نوع الملف المراد حمايته
مثلا
exe ثاني حرف يجب ان يكون Z او الرقم 90 بنظام العد الست عشري
لذا يكفي ان نغير هذا الرقم الى اي رقم اخر مثلا 89
و كمثال برمجي لدالة حماية و دالة الغاء حماية
Function Protactexefile(EXEfileName as string) as boolean
Open exefilename for binary access write as #1
On error goto ErrH
Put #1,2,89
ProtactErrorFile=true
close #1
Exit function
errh :
protactEXEFile=false
Close #1
end function
Function UnProtactexefile(EXEfileName as string) as boolean
Open exefilename for binary access write as #1
On error goto ErrH
Put #1,2,90
UnProtactErrorFile=true
close #1
Exit function
errh :
UnprotactEXEFile=false
Close #1
end function
و سأقوم بعمل جدول لباقي انواع الملفات الاخرى ليكون هناك برنامج كامل للجميع
ارجو ممن له تعليق او فكرة لتطوير البرنامج ان يفيدنا بالسرعة
و شكرا للجميع