ما عملته خارج نطاق الأكسس وخارج نطاق الفجوال بيسك للتطبيقات
ولو كانت العملية فكرة حماية لكنت وضحتها لك وللأعضاء الكرام ، لما لا ، فما تواجدنا في هذا المنتدى ألا لتبادل المعرفة
ولكن أخي ليس كل مايعرف يقال وخصوصا في ما يساء استخدامه
ما عملته خارج نطاق الأكسس وخارج نطاق الفجوال بيسك للتطبيقات
ولو كانت العملية فكرة حماية لكنت وضحتها لك وللأعضاء الكرام ، لما لا ، فما تواجدنا في هذا المنتدى ألا لتبادل المعرفة
ولكن أخي ليس كل مايعرف يقال وخصوصا في ما يساء استخدامه
السلام عليكم
الأخ accessna
إذا أردت التحدث - على انفراد - يرجى مراسلتي على بريدي الخاص وشكراً
وشكراً
قالَ رَسُولُ الله صلى الله عليه وسلم:
"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "
حديث حسن صحيح
طريقة ذكية أستخد الاسكي للانتر ثم $ ثم الاسكي للانتر مرة واحدة ثم %
تفتح عن طريق الفيجيول بيسك و الكود هو
x = ";PWD=" & Chr(10) & Chr(13) & "$" & Chr(10) & Chr(13) & "%" & ""
Set db = OpenDatabase(Application.CodeProject.Path & "" & "\data.mdb", False, False, x) 'PWD =abc")
كلمة السر " & Chr(10) & Chr(13) & "$" & Chr(10) & Chr(13) & "%" &"
Chr(10) & Chr(13) = entert في لوحة المفاتيح
تم تعديل هذه المشاركة بواسطة مفرج في 18 مايو 2007 في 23:36
من سار على الدرب وصل
الأخ مفرج فرج الله عنك كرب يوم القيامة
لو تسمح تشرح أكثر وأن تضع الكود ضمن تنسيق الكود من الأزرار في أعلى نافذة المشاركة
وشكراً
قالَ رَسُولُ الله صلى الله عليه وسلم:
"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "
حديث حسن صحيح
أخي الكريم يمكن فتح القاعدة لكن المشكلة إن الشفت أو ال autoexec يعمل خروج
الكود هو :
Option Compare Database
Dim appAccess As Access.Application
Private Sub getb_Click()
On Error GoTo Errorp
Dim x As String
x = "" & Chr(10) & Chr(13) & "$" & Chr(10) & Chr(13) & "%" & ""
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase Application.CodeProject.Path & "" & "\data.mdb", False, x
Exit Sub
Errorp:
MsgBox Error
End Subتم تعديل هذه المشاركة بواسطة مفرج في 19 مايو 2007 في 19:29
من سار على الدرب وصل
السلام عليكم
يا شباب اللي فهم الطريقة يفهمنا و يكسب أجرنا
لعمرك ما ضاقت بلاد بأهلها **** ولكن أحلام الرجال تضيق
يا أخ Accessna
أرجو أن لا تبخل علينا بالطريقة هذا رجاء خاص و صدقني مثل ما تعلمنا سوف تكتشف أنك تعلمت أشاء كانت تعوقك يسرها الله عليك
بدعائنا الصادق لك
و شكرا
لعمرك ما ضاقت بلاد بأهلها **** ولكن أحلام الرجال تضيق
شباب واللي يرحم والديكم
اولا : شهر كريم عليكم جميعاً .. جعلنا الله واياكم من الصائمين القائمين المقبولين فيه
ثانياً : اخوكم في الله بحاجة ماسّة لفك قاعدة بيانات محمية ( خاصة بي ) بمعنى - وللتوضيح اكثر لما بين القوسين - القاعدة تأتي مع برنامج محاسبي قمت بشرائه مؤخراً من شركة معروفة .. البرنامج في حد ذاته غير قابل للكسر او النسخ او الاستنساخ لانه يعمل على الرقم التسلسلي ( للهارد دسك ) اضف الى ذلك فإن قاعدة البيانات ايضاً محميّة بكلمة مرور مشفّرة بالآسكي كود او Control charactor كما في المثال اعلاه :
الباس وورد كالتالي كما حصلت عليها من احد برامج الريكفري ولكنها هنا تجزأت الى اسطر لان فيها كود ( الانتر ) char 10كما اشار بعض الاخوة في احد الردود :
í9y1ã ä~9m1Ó7otÈÜ í
الجدير بالذكر ان الباسوورد مكوّن من 20 حرف اكتشفت منها 18 عشر حرفاً ولكنني عجزت في اثنين منهم احدهما الانتر ALT+010 والآخر اتوقع انه ايضاً حرف تحكم ليس حرفاً مطبوعاً ؟؟؟
مع العلم انني حاولت بالتي هي احسن الحصول على كلمة المرور من المصدر ( الشركة نفسها ) ولكن اعتقد انه الاحتكار او ماشابه كان عائقاً امام ذلك
بالمناسبة حاجتي لفك قاعدة البيانات هو لغرض ادخال البيانات مباشرة الى قاعدة البيانات ( بمعنى آخر لدي مخزون بشكل يومي تقريباً يضاف الى البيانات بكميات كبيرة وعملية الادخال اليدوي تستهلك من وقتي الكثير ) في بداية الامر هم من قاموا ( هم : مهندس الشركة المنتجة للبرنامج ) هم قاموا بادخال بياناتي بصورة مباشرة لقاعدة البيانات اكثر من 80000 صنف عن طريق النسخ واللصق والعملية لم تأخذ ثواني معدودة كون الداتا كانت معدة سلفاً على ملف اكسل ... وبعد ذلك رفضوا التعاون معي بزعمهم انها من خصوصيات الشركة ...؟؟؟ عجيب !!! اليست البيانات بياناتي انا ولي الحق ان اضيف فيها واشطب حسبما يتماشى وطبيعة عملي ؟
اتمنى على الله ثم عليكم ان تساعدوني لاجد لها حلاً ..
واقسم لكم بالله العلي العظيم وانا صائم الآن ان طلبي هذا لن يستخدم في عمل غير مشروع وانني بالفعل دفعت قيمة البرنامج وهو بملكيتي ولكن الشركة غير متعاونة في هذا الخصوص؟
ملاحظة: عندما يأتي مهندس الشركة لايقوم بإدخال كلمة مرور ؟؟ وانما يستخدم برنامج صغير يحضره معه في الفلاش دسك .. اتوقع انه يلغي كلمة المرور .. ومن ثم بعد فتح قاعدة البيانات والتعديل فيها يغلقها بنفس البرنامج ويذهب الى حال سبيله مع برنامجه ؟؟
ساعدوني .. جزاكم الله كل خير
نظراً لان الباسوورد لم تظهر بالشكل المطلوب اعلاه
فإنني ارفقت لكم الصورة التالية وفيها محاولاتي لفك الشفرة .. لعلها تفيد من اراد ان يفيد ولكم شكري الجزيل سلفاً..
ودمتم عوناً لمن اراد العون
تم تعديل هذه المشاركة بواسطة حاتم الطائي في 21 سبتمبر 2007 في 17:03
أرسل لي القاعدة وأنا أزيل كلمة السر منها وهذه لمرة واحدة فقط
أما إذا أردتني عمل برنامج خاص لبرنامجكم لإزالة كلمة السر كلما احتجتم فعليكم مراسلتي للتفاهم
Accessna كتب:أرسل لي القاعدة وأنا أزيل كلمة السر منها وهذه لمرة واحدة فقطأما إذا أردتني عمل برنامج خاص لبرنامجكم لإزالة كلمة السر كلما احتجتم فعليكم مراسلتي للتفاهم
لاهنت اخي العزيز : Accessna
اشكر لك سرعة تجاوبك و فزعتك لاخيك .. ومثمّن لك عرضك السخي وهذا من طيب اصلك يا اصيل
القاعدة ياعزيزي بعد قرأتي لردك حاولت ضغطها ولكنها حتى بعد الضغط لازال حجمها كبيرا نسبياً بحيث يصعب رفعها وتنزيلها كذلك
لذا سأحاول ان انشئ منشأة جديدة ( مخزن مستقل ) لان النظام يسمح بإنشاء اكثر من منشأة ويضع لها (( قاعدة فارغة )) - ولكنها محميّة ايضاً بنفس الطريقة السابقة ونفس الشيفرة - وساوافيك بها حال استطاعتي ..
جزيل الشكر والامتنان لك ولجميع الرواد
الى فاعلي الخير لدي ملف اكسل يحمل كلمة مرور ولكني نسيت كلمة المرور والملف في المرفقات وكل من يجد حلا مراسلتي على الايميل qadriswafta@gmail.com
وضحي اكثر مش فاهم ومن احطهم وبعدين اكتبلي بالانجليزي الله يخليك