تطبيق : زراعة ملف مخفي لحماية التطبيق

[أبو آدم]

إخوتي الفضلاء

 

كانت لي مساهمة مع الاخ حسين العربي بخصوص مسار التطبيق وحماية التطبيق بقراءة هذا المسار بالكود ... http://www.officena.net/ib/index.php?showtopic=54485

 

وتطور النقاش لنصل لمحور حماية جديد يتمثل بالطريقة المعروفة بزراعة ملف في الجهاز وفي مكان محدد ، للبحث عنه وتفقده قبل تشغيل النظام

وفي حال العثور عليه يتم تشغيل النظام ، وخلاف ذلك يتم اشعار المستخدم بوجود خطأ رئيسي يتمثل بخلل يتعلق بفقدان هذا الملف وبالتالي الخروج من التطبيق

 

واشعرنا الاخ حسين بانه قد هدي لتطبيق الفكرة بفضل من الله

 

وحيث انني كنت قد بدأت بالتطبيق لأجيب على تساؤله ، رأيت ان اعدل به قليلاً بفكرة راودتني تتمثل باخفاء ملف text في مكان ما من الجهاز وتحريك مسألة الحماية حول هذا الملف ( المخفي ) ، وفكرة الاخفاء تهمني لغايات ابعاد هذا الملف عن الايدي العابثة ، او الخطأ المتمثل بحذف الملف ، وتنحصر الامور هنا غالبا بما بقي من الاحتمالات القائمة لضرورة الحماية ، ومنها إجراء اعادة تنصيب لنظام التشغيل ( الويندوز - فورمات ) ، ومنها أيضا نقل التطبيق بدون علم المبرمج او مدير النظام لجهاز آخر ، وحيث ان المستخدم لا يعلم بشأن هذا الملف المخفى ، ولا يراه بالعادة ، فلن يقوم بنقله و التعامل معه

 

وبالتالي يتوقف النظام عن العمل ، ويضطر المستخدم للرجوع لمدير النظام او المبرمج

 

سيحمل المرفق ملف التطبيق و مجلد باسم AccTxt يحتوي على ملف مخفي باسم 123

يتم نسخ هذا المجلد او قصه ولصقه على القرص c في المجلد Program Files

وبذلك يصبح مسار ملفنا المخفي هو

C:\Program Files\AccTxt\123.txt

وللحديث بقية ...

 

...........

[عبدالرحمن هاشم]

جزاك الله خيرا معلمنا الفاضل ورزقكم الله مزيدا من العلم النافع وأثابكم عليه خير الجزاء

 

وكل عام وأنتم بخير

[أبو آدم]

حياك الله أخي عبدالرحمن هاشم

 

نسعى دوماً للأجر والثواب من رب العباد ، ومن ثم عموم الفائدة لكافة إخوتنا و ابنائنا الطيبين

 

......

[أبو آدم]

ارفق لكم التطبيق

 

مع التأكيد على ضرورة نقل المجلد المرفق بالتطبيق للمسار المحدد كي يعمل بشكل صحيح

ويمكن لكل منكم تعديل الكود ونقل الملف للمسار الذي يراه مناسباً ، وحسب رغبته ، ولكنني آثرت استخدام هذا المسار كونه يحقق الغايات المرجوة منه

فعند اعادة التنصيب سيفقد هذا الملف ، ومعظم المستخدمين لا يقتربون من المجلد المختار Program Files

 

جربوا ووافوني بالنتائج

 

والله من وراء القصد ...

NA_HiddenTextFile.rar

[أبو آدم]

بعد اجراء اللازم وتشغيل النظام وتجاوز الحماية ، يظهر النموذج ، جعلت خلف زر الامر Show Hidden كود لإظهار الملف ، وبعد النقر عليه ، يمكنك الذهاب للمجلد الهدف لتجد ملف 123 قد أصبح ظاهرا وليس مخفيا .

HideUnhideFile "C:\Program Files\AccTxt\123.txt", True

[أبو آدم]

الكود الذي يتحكم باخفاء واظهار الملف المزروع

Sub HideUnhideFile(strFilespec As String, blnShowFile As Boolean)
'****************************************
'By Nart Lebzo ... www.officena.net
'compiled at 24/06/2014 : Amman - Jordan
'****************************************
On Error GoTo Errhandler

Dim fso As Object
Dim fi As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set fi = fso.GetFile(strFilespec)

If blnShowFile Then
fi.Attributes = fi.Attributes And (Not vbHidden)
Else
fi.Attributes = fi.Attributes Or vbHidden
End If

Errhandler:

      Select Case Err


         Case 53:        ' Error 53: "file not found"
          '  MsgBox "The specified path is not found."
         Case 0:
         Case Else:      ' An error other than 53, 0  has occurred.
            ' Display the error number and the error text.
            MsgBox "Error # " & Err & " : " & Error(Err)

      End Select

End Sub

[أبو آدم]

عند تحميل النموذج الرئيسي تتم الاجراءات التالية

 

إظهار الملف المخفي ، كي يتمكن التطبيق من البحث عنه

HideUnhideFile "C:\Program Files\AccTxt\123.txt", True

اذا كان الملف غير موجود سواء أكان السبب عدم وجوده أصلا أو تغيير اسمه او تغيير اسم المجلد تظهر رسالة بذلك ويتم اغلاق التطبيق

If Len(Dir("C:\Program Files\AccTxt\123.txt")) = 0 Then
   MsgBox " التطبيق ضمن مسار غير مصرح به من مدير النظام" & vbNewLine & " أتصل بمدير النظام ", vbCritical, "خطأ في مسار النظام "
   DoCmd.Quit

وحال وجوده يتم تشغيل النظام و إشعار المستخدم ( إن شئت ) بذلك

 

يتم إعادة إخفاء الملف

HideUnhideFile "C:\Program Files\AccTxt\123.txt", False

[hussein arby]

زرادكم الله من علمه اخي ابو ادم   واخي  عبد الرحمن  ومشكورين علي اهتمامكم بهذا الموضوع واضيف اليكم فكرتي التي طبقتها ليستفيد الجميع

 if Dir("C:\WINDOWS\MOVI.INI") = "" Then 
MsgBox "لا يحق لك الدخول الي النظام", vbOKOnly, "اتصل بمدير النظام فورا*6414192* "

DoCmd.Quit
End If

 زرعت ملف في ال  \ c  في فلدر  ويندوز  اسمه MOVI  بامتداد \ INI \   وعند فتح البرنامج يقوم بالبحث عن الملف عند وجوده يتم الدخول الي البرنامج وعند عدم وجوده  يعطي هذه الرساله الموجود في الكود اوحسب ماتريده انت  

تم تعديل يونيو 25, 2014 بواسطه أبو آدم
احتواء الكود

[hussein arby]

والفضل يرجع لااخي واستاذي ابو ادم في هذا

[أبو آدم]

لا فضل لنا ، الفضل كله لله

وما نسعى الا لأجر من الله ومثوبة من عنده

[at_aziz]

بارك الله فيك وجزاك الله خير اخي الكريم ابو ادم

 

الحقيقه برنامج اكثر من رائع 

 

ومن زمان وانا ابحث عن مثال مثل هذا

 

الله يوفقك ويعطيك الصحة والعافيه

[ازهر عبد العزيز]

السلام عليك اخي أبو آدم شكرا على المجهود الكبير ولكن عندما طبقت المثال المرفق من قبلك اشتغل معي بشكل طبيع  ثم ظهرت لي هذة الرسالة  تجدها بالمرفقات .

[sideeq]

هل يمكنك تطبيق هذا على ملف اكسل

وبارك الله بك

[ابوبسمله]

في 19‏/5‏/2019 at 16:53, ازهر عبد العزيز said:

السلام عليك اخي أبو آدم شكرا على المجهود الكبير ولكن عندما طبقت المثال المرفق من قبلك اشتغل معي بشكل طبيع  ثم ظهرت لي هذة الرسالة  تجدها بالمرفقات .

السلام عليكم اخى ازهر

معلش الاجابه متاخره هذه الرساله خاصه بصلاحيات الويندوز ويمكن حلها

كالتالى ادخل ع C:\Program Files وقف ع الفولدر AccTxt كليك يمين وبروبيرتز

ثم سكيورتى

ثم ادفانسد ثم اتشينج بريميشن

ثم قف ع اليوزر المستخدم للويندوز واضغط على زر ايديت

ثم فعل اختيار Allow ثم اوك للاخر

ثم جرب التطبيق ان شاء الله يعمل معك

بالتوفيق

3 ساعات مضت, sideeq said:

هل يمكنك تطبيق هذا على ملف اكسل

ع ما اعتقد نعم ولكن اهل الذكر فى منتدى الاكسيل

قم بنسخ رابط الموضوع وافتح موضوع جديد فى قسم الاكسيل بامكانيه تطبيق هذا العمل بالرابط التالى وضع الرابط على الاكسيل

وان شاء الله اخوانا واساتذتنا فى قسم الاكسيل سوف يقوموا بمساعدتك ان شاء الله

بالتوفيق