SEMO.Pa3x

نعم بكل بساطة، حدد البيانات في الاكسل وقم بنسخها ثم افتح الجدول بالاكسس وقم بلصقهم. أو اطرح قاعدة البيانات + ملف الاكسل هنا لنقوم بمساعدتك.

اهلا بالمعلم، شكرا على الدعوة.. ذكرتك في ردي هنا على امل المشاركة منك.

حالياً الوضع صعب بسبب كثرة المشاغل وقطع الانترنت لفترات طويلة في العراق.

InlinePatch

بعد سنوات طويلة من العمل في هذا المجال اعتزلت الهندسة العكسية منذ عام 2014 😓 عندما تم اقفال منتدانا 😓 العرب المتحدون للهندسة العكسية ولو تلاحظ اني لم اشرح اي خطوات تفصيلية حول الكسر، اعطيت فقط رؤوس اقلام لبيان ان هذه الحمايات ممكن ان تكسر للشخص الخبير فقط الذي له خبرة واسعة في تحليل الاتصالات وانا ارى ان الشباب ما شاء الله يزدادون خبرة في نقاشهم حول تطوير الحمايات وفقكم الله. حسنين اقرأ ردي مرة اخرى حول استخدام wireshark

احسنت، هذا واحد من الحلول، لكن! لو كان شخص متمرس في الهندسة العكسية ويجيد استعمال OllyDBG سيقوم بتحليل السورس عند التشغيل Runtime من داخل OllyDBG لان في وضع الruntime تكون القاعدة بالرغم من انها ACCDE أو MDE مفكوكة الضغط في الذاكرة مما يسهل عليه تتبع القاعدة ثم يقوم بعمل قفزة مشروطة JZ لتتجاوز منطقة التحقق واجبار القاعدة على القفز للمنطقة التي بعد التحقق بالنتيجة ستعمل القاعدة، بدون اي قيود او شروط. اهلا بالمعلم، سبق وادليت بدلوي لكن لم ارى تجاوب من قبل الاعضاء ونقاش حول تطوير هكذا نوع من الحمايات. موضوعي السابق: اي حماية تتعلق بالتحقق online تُكسر بتغيير الاتصال فقط! ممكن تقوم بعمل تشويش على المهندس العكسي بتشفير packet الاتصال بخوارزمية مثلا gzip

السلام عليكم, لكسر هذا النوع من الحماية قم بعمل إعادة توجيه للرابط الاصلي داخل القاعدة، الى رابط ثاني لمعرفة الرابط الاصلي يكفي ان تقوم بمراقبة الاتصالات الخارجية ببرنامج wireshark واقتناص الرابط الاصلي، ثم قم بتحويله عن طريق hosts

اعتذر لعدم الرد, ربما لم ارى ردك او كنت منشغلاً حقيقة لا اتذكر. 1- بالنسبة لرسالة الديباق صراحة ملف الحماية كتبتة بسرعة ولم اجربه بدون انترنت, وحله بسيط جدا اعمل تحقق من وجود الانترنت ( ركز هنا تحقق من ان الانترنت يعمل بدون مشاكل وليس فقط متصل بشبكة wifi او كيبل ولكن offline ) ضع التحقق هذا في بداية السطر قبل ان يتحقق من الحماية فإن وجد الانترنت ، سيكمل طريقة ويتحقق من الحماية وان لم يجد الانترنت يغلق نفسة. 2- اعد قراءة موضوعي مرة اخرى، لكي تتوضح لك الامور .. لكني ساشرح لك بإختصار عند تشغيل البرنامج يقرة المفكرة التي تحتوي على ارقام العملاء في موقع pastebin فإن لم يجد رقمك بينهم لا يسمح لك بالدخول 3- لم اقم ببرمجتها لحد الان لعدم امتلاكي لوقت فراغ.

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

1- لم اجرب، لكن في حال لم يعمل البرنامج وظهرت له رسالة التفعيل عليه ان يرسل الرقم مرة اخرى للمبرمج. 2- اكيد يطلب التفعيل مرة اخرى. 3- كل مرة تشغل فيها القاعدة يتطلب وجود الانترنت. 4- لن يتم اغلاق الموقع، لانه موقع قديم جدا ومشهور بالاضافة الى انه يمكنك شراء استضافة ورفع عليها مفكرة التفعيل الخاصة بارقام العملاء. 5- فكرة الحماية التفعيل عن بعد كما ذكرته في العنوان يمكنك تعطيل وتفعيل برامجك لدى العملاء في اي وقت وغير مسموح لتشغيل برنامجك لغير المصرح لهم بذلك.

اقرأه اولا، وانظر هل هو طلبك ام لا

طيب تعب نفسك وابحث شوي

كتبت موضوع جديد بقسم الاكسس يمكنك الاطلاع عليه

كنت قد طرحت موضوع بهذا الخصوص، يمكنكم الاطلاع عليه.

مداخلة بسيطة, بإمكانك استخدام الدالة Split داخل وحدة نمطية. اسمح لي ان ابدي محاولتي البسيطة Database2.rar

صمم الرسالة على شكل فورم فارغ ومرر لها براميترات الرسائل التي تريدها.

السلام عليكم ورحمة الله وبركاته.. آولآ نقُوم بتَسجيل عضُوية بمُوقع [ PasteBin ] رآبط آلتَسجيل [ هُنآ ] آتمآم آلتَسجيل ، ظهُور رسآلة تُخبرك بآلتُوجه نحُو بَريدك لتَفعيل آلعضُوية بَعد عَملية آلتَفعيل ظهُور رسآلة تُخبرك بنجآح آلتَفعيل آلآن نقُوم بتَسجيل آلدخُول قم باعطاء هذا الملف الى العميل لكي يظهر لك الرقم الخاص به ثم يقوم العميل بإعطائك هذا الرقم، بعدها ستقوم انت باضافته الى المفكرة التي انشأتها في موقع pastebin ثُم نقُوم بآلضَغط عَلى كَلك يَمين عَلى كَلمة [ RAW ] ونَختآر ارجع الى برنامجك, وقم بإلصاق الرابط في المكان المخصص له Option Compare Database Private Sub Form_Current() Dim HDD, PID, MB, MAC As String PID = ProcessorId() HDD = VolumeSerialNumber() MAC = MACAddress() MB = MotherBoardID() Dim PHMB As String PHMB = Strings.UCase(MD5Hex(PID & HDD & MB & MAC)) On Error Resume Next Dim objHttp As Object Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") Call objHttp.Open("GET", "ضع الرابط هنا", False) Call objHttp.Send("") For Each c In Split(objHttp.ResponseText, "|") If PHMB = c Then GoTo authed End If Next MsgBox "1 - قد تكون النسخة الحالية غير مسجلة" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "2 - تأكد من اتصالك بالانترنت" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "3 - اذا لم تكن واحدة من تلك المشاكل قم بالاتصال بالمبرمج" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "www.facebook.com/Nisr.Aln3jaf", vbCritical, "ERROR" DoCmd.Close DoCmd.CloseDatabase DoCmd.Quit Exit Sub authed: MsgBox "تم تفعيل النسخة بنجاح" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "شكرا لإستخدامك هذه النسخة", vbInformation, "عملية ناجحة" End Sub Public Function MD5Hex(textString As String) As String Dim enc Dim textBytes() As Byte Dim bytes Dim outstr As String Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider") textBytes = textString bytes = enc.ComputeHash_2((textBytes)) For pos = 1 To LenB(bytes) outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2)) Next MD5Hex = outstr Set enc = Nothing End Function Public Function MACAddress() On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration", , 48) For Each objItem In colItems MACAddress = objItem.MACAddress Next End Function Public Function ProcessorId() On Error Resume Next Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor") For Each objItem In colItems ProcessorId = objItem.ProcessorId Next End Function Public Function VolumeSerialNumber() As String On Error Resume Next Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set oItems = oWMI.ExecQuery("Select * from Win32_DiskDrive") For Each oItem In oItems VolumeSerialNumber = oItem.SerialNumber Next End Function Public Function MotherBoardID() As String On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard", , 48) For Each objItem In colItems MotherBoardID = objItem.SerialNumber Next End Function في كل قواعد البيانات التي تريد حمايتها ضع نفس الرابط، لا تقم بإنشاء مفكرة جديدة في موقع pastebin آلآن آلسؤآل كَيف سآقُوم بآضآفة آكثر مَن رَقم عَميل بنفس المفكرة ؟ آلجوُآب بَين كُل عَميل وآخر آفصل بَينهم بآلـ [ | ] مثآل بَسيط عَلى آلعَملية .. تم بحمد الله ، SEMO.Pa3x GET_INFO.accdb Protection.accdb

حياكم الله اخوان، بوركت استاذي @jjafferr على مبادرتك الجميلة.

عليكم السلام, اضافة لاستاذي @jjafferr Private Sub K_id_BeforeUpdate(Cancel As Integer) If InStr(1, K_id, 2) <> 1 Then Cancel = True MsgBox "يجب ان يبدأ الحقل برقم 2" Exit Sub End If End Sub

لا يوجد حل دائم. لكن ممكن ان تضغط البرنامج بإحد برامج الضغط والتشفير الخاصة بلغة دوت نت مثلا confuser لكن ايضا ممكن كسرها. هي وغيرها ولو برمجت اداة بنفسك لتشفير السورس كود سيكون كسره بمراقبة الاتصالات الخارجية بواسطة wireshark او اي برنامج اخر لتحليل الاتصالات بالنهاية الحماية لم تخلق الا لكي تخترق

@sandanet اخي الكريم, لم نتشعب في الموضوع لكن ربما لم تتضح لك الصورة لحد الان مهما تبرمج من خوارزمية او حماية وتبقى نسخة القاعدة نسخة مفتوحة يعني ليست ACCDE أو MDE فكل برمجتك وحمايتك لا معنى لها ركز في هذه الكلمة ( لا معنى لها ) , ببساطة يأتي شخص ويقوم بحذف الكود المسؤول عن التحقق والحماية وكل شي سوف ينتهي معها ارجو ان تكون توضحت الصورة لديك

شكرا للإطراء عزيزي. فانا كنت من المشرفين لاقسام الهندسة العكسية في مواقع عربية ضخمة جدا مثل نقطة التطوير. وكانت البرامج التي نقوم بتكركها تعتمد على حسابات رياضية ومعادلات خصوصا مع البرنامج العملاق OllyDBG ناهيك عن برامج الضغط والتشفير والحمايات الشرسة امثال Themedia و SafeEngine التي يضغطون بها البرامج لحماياتها من الفك مهما تبلغ صعوبة الخوارزمية المستخدمة للتشفير ، تبقى سهلة في الكسر لكن لماذا ؟ لانك وببساطة قدمت الي مفتاح الفك على طبق من ذهب. الحل هو في تشفير القاعدة ACCDE , MDE وبعدها لو وضعت باسورد 112233 لا احد سوف يتمكن من معرفته

دعني اشرح لك الذي فهمته من خوارزميتك. 1- قمت بإحضار volume serial number ( الرقم التسلسلي ) 2- طلبت ان يتم ابقاء اول 3 محارف من الرقم 3- طلبت يتم جمع الرقم الناتج مع ( 95312876 ) 4- ثم رجعت الى مربع البداية الى الرقم volume serial number الاصلي قبل التعديل عليه وقمت بطرحه من الرقم الذي نتج بعد جمعه مع ( 95312876 ) 5- بعدها ضربت الناتج * 2

هل هذا يكفي ؟

مافائدة ان يوضع داخل قاعدة البيانات ؟ 🙄 الغرض من الملف لكي يعطيك العميل الرقم التسلسلي الخاص بجهازه ثم تقوم انت بدورك كـ مبرمج القاعدة بوضع الرقم بداخل القاعدة ثم تحولها الى امتداد ACCDE وتعطيها للعميل وبالتالي عند تشغيلها ستعمل على جهازه فقط !