semo.pa3x جعل قاعدة البيانات تعمل بوجود الانترنت ( تفعيل عن بعد )

[SEMO.Pa3x]

السلام عليكم ورحمة الله وبركاته..

آولآ نقُوم بتَسجيل عضُوية بمُوقع [ 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

[Elsayed Bn Gemy]

سبقتنى كنت اجهز لموضوع مماثل  التفعيل عن طريق الانترنت  وبما ان الطرق مختلفة ساكمل فى طريقى واجهز الموضوع هههههههههههههههههه

بارك الله فيك متميز دائما

[qathi]

استاذي @SEMO.Pa3x .. نشكرك على كل ماتبذلة من مجهود مثمر وأفكار رائعة جدا

أولاً:

أستاذي هذه ملاحضاتي في الوقت الحالي في بداية تجربتي للملفين:

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

لذى يفضل عرض رسالة في حقل 
كـ : كيبل الشبكة غير موصل يجب عليك توصيلة وليس شبكة الواير لس WI FI ..

وكذلك في حالة الربط الجهاز بشبكة واير لس تظهر رسالة أخرى بتنبية بتوصيلة كيبل الشبكة   

 

ثانياً:

في المشاركة بخصوص ( طلب ملف الحماية برقم الماك ) .. قمت بتفعيل وألغاء الملف الذي قام بتحميلة @ابا جودى عبر الماك ادرس الخاص به

هل كان ذلك من دون وسيط  (سرفر) ؟؟

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

 

ثالثاً: ماذا بخصوص الفترة التجريبية ؟؟

 

 

شاكرا لك على كل ماتبذله من وقتك وجهدك .. فجزاك الله عنا خيرا

تم تعديل نوفمبر 4, 2019 بواسطه qathi

[sandanet]

استاذ حسنين بارك الله فيك أولاً على هذا الشرح .. طريقتك جديدة وجميلة لكن هنالك نقاط اود ان استفسر عليها وهي:

1- ماذا لو قام المستخدم بتغيير نظام تشغيله هل يتوجب عليه ارسال الرقم للمبرمج مرة أخرى؟

2- ماذا لو قام المستخدم بنقل البرنامج بعد تفعيله الى جهاز آخر فهل سيعمل ويكون مفعلاً ايضاً ام يطلب منه التفعيل مجدداً ؟

3- هل الطريقة هذه تتطلب اتصال الجهاز بالانترنت لإجراء عملية التفعيل فقط أم يتطلب اتصال دائم؟

4- ماذا لو تم إغلاق الموقع لأي سبب كان؟

5- على ماذا تعتمد فكرة الحماية؟

 

طبعاً هذه الأسئلة أود معرفة اجابتها قبل تجريب البرنامج لو سمحت

 

تحياتي  

[SEMO.Pa3x]

6 ساعات مضت, sandanet said:

استاذ حسنين بارك الله فيك أولاً على هذا الشرح .. طريقتك جديدة وجميلة لكن هنالك نقاط اود ان استفسر عليها وهي:

1- ماذا لو قام المستخدم بتغيير نظام تشغيله هل يتوجب عليه ارسال الرقم للمبرمج مرة أخرى؟

2- ماذا لو قام المستخدم بنقل البرنامج بعد تفعيله الى جهاز آخر فهل سيعمل ويكون مفعلاً ايضاً ام يطلب منه التفعيل مجدداً ؟

3- هل الطريقة هذه تتطلب اتصال الجهاز بالانترنت لإجراء عملية التفعيل فقط أم يتطلب اتصال دائم؟

4- ماذا لو تم إغلاق الموقع لأي سبب كان؟

5- على ماذا تعتمد فكرة الحماية؟

 

طبعاً هذه الأسئلة أود معرفة اجابتها قبل تجريب البرنامج لو سمحت

 

تحياتي  

1- لم اجرب، لكن في حال لم يعمل البرنامج وظهرت له رسالة التفعيل عليه ان يرسل الرقم مرة اخرى للمبرمج. 

2- اكيد يطلب التفعيل مرة اخرى. 

3- كل مرة تشغل فيها القاعدة يتطلب وجود الانترنت. 

4- لن يتم اغلاق الموقع، لانه موقع قديم جدا ومشهور بالاضافة الى انه يمكنك شراء استضافة ورفع عليها مفكرة التفعيل الخاصة بارقام العملاء. 

5- فكرة الحماية التفعيل عن بعد كما ذكرته في العنوان يمكنك تعطيل وتفعيل برامجك لدى العملاء في اي وقت وغير مسموح لتشغيل برنامجك لغير المصرح لهم بذلك. 

[sandanet]

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

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

من وجهة نظري الشخصية ان مسألة اجبار المستخدم على توفير اتصال انترنت في الجهاز لكي يعمل البرنامج معه ليست مرغوبة عند العملاء 

 

تحياتي

 

[SEMO.Pa3x]

1 دقيقه مضت, sandanet said:

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

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

من وجهة نظري الشخصية ان مسألة اجبار المستخدم على توفير اتصال انترنت في الجهاز لكي يعمل البرنامج معه ليست مرغوبة عند العملاء 

 

تحياتي

 

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

[qathi]

أرى أنك لم تقم بالرد استاذي SEMO.Pa3x  بالرغم أني قمت بالرد قبل أستاذي sandanet 

هل كلامي غير واضح ؟؟؟

[SEMO.Pa3x]

20 ساعات مضت, qathi said:

استاذي @SEMO.Pa3x .. نشكرك على كل ماتبذلة من مجهود مثمر وأفكار رائعة جدا

أولاً:

أستاذي هذه ملاحضاتي في الوقت الحالي في بداية تجربتي للملفين:

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

لذى يفضل عرض رسالة في حقل 
كـ : كيبل الشبكة غير موصل يجب عليك توصيلة وليس شبكة الواير لس WI FI ..

وكذلك في حالة الربط الجهاز بشبكة واير لس تظهر رسالة أخرى بتنبية بتوصيلة كيبل الشبكة   

 

ثانياً:

في المشاركة بخصوص ( طلب ملف الحماية برقم الماك ) .. قمت بتفعيل وألغاء الملف الذي قام بتحميلة @ابا جودى عبر الماك ادرس الخاص به

هل كان ذلك من دون وسيط  (سرفر) ؟؟

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

 

ثالثاً: ماذا بخصوص الفترة التجريبية ؟؟

 

 

شاكرا لك على كل ماتبذله من وقتك وجهدك .. فجزاك الله عنا خيرا

 

اعتذر لعدم الرد, ربما لم ارى ردك او كنت منشغلاً حقيقة لا اتذكر.

1- بالنسبة لرسالة الديباق صراحة ملف الحماية كتبتة بسرعة ولم اجربه بدون انترنت, وحله بسيط جدا

اعمل تحقق من وجود الانترنت ( ركز هنا تحقق من ان الانترنت يعمل بدون مشاكل وليس فقط متصل بشبكة wifi او كيبل ولكن offline )

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

وان لم يجد الانترنت يغلق نفسة.

 

2- اعد قراءة موضوعي مرة اخرى، لكي تتوضح لك الامور .. لكني ساشرح لك بإختصار

عند تشغيل البرنامج يقرة المفكرة التي تحتوي على ارقام العملاء في موقع pastebin فإن لم يجد رقمك بينهم لا يسمح لك بالدخول

 

3- لم اقم ببرمجتها لحد الان لعدم امتلاكي لوقت فراغ.

[صالح حمادي]

بارك الله فيك أخي الكريم @SEMO.Pa3x

[qathi]

استاذي الغالي @SEMO.Pa3x .. مازلت أنتظر وأترقب رجوعك لنا حتى نكمل فكرتك بتطوير ملف الحماية هذه

 

[SEMO.Pa3x]

منذ ساعه, qathi said:

استاذي الغالي @SEMO.Pa3x .. مازلت أنتظر وأترقب رجوعك لنا حتى نكمل فكرتك بتطوير ملف الحماية هذه

 

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

[qathi]

2 ساعات مضت, SEMO.Pa3x said:

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

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