نسخة تجريبية للعميل _ تشفير لوقت محدد

[ابوخليل]

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

Function EncryptDecrypt(strIn As String, strPass As String) As String
Dim intLen As Integer
Dim intCounter As Integer
Dim varTmp As Variant
Dim strTmp As String
intLen = Len(strPass)
strTmp = strIn
For intCounter = 1 To Len(strIn)
varTmp = Asc(Mid$(strPass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1))
Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp)
Next
EncryptDecrypt = strTmp
End Function

Private Sub cmd1_Click()
'لإدراج التاريخ في الحقلين ثم تعديل الحقول يدويا حسب الفترة المطلوبة
' يستخدم مرة واحدة قبل التشفير
Me.regEnd = Now()
Me.regStart = Now()
Me.Requery
End Sub
Private Sub cmd2_Click()
' تشفير الحقلين ولاحظ ان الزر يشفر ويفك التشفير في نفس الوقت
Dim strPassword As String
strPassword = "EnDecryptAccessOfficna"
Me.regStart = EncryptDecrypt(Me.regStart, strPassword)
Me.regEnd = EncryptDecrypt(Me.regEnd, strPassword)
       
End Sub

Private Sub Form_Current()
On Error Resume Next
Dim strRegStart, strRegEnd, vNowv As Date
Dim strPassword As String

vNowv = Now()
strPassword = "EnDecryptAccessOfficna"
strRegStart = EncryptDecrypt(Me.regStart, strPassword)
strRegEnd = EncryptDecrypt(Me.regEnd, strPassword)

'عند العبث بالشفرة في اي من الحقلين
If Not IsDate(strRegEnd) Or Not IsDate(strRegStart) Then
MsgBox "تم التلاعب بالشفرة .. سيتم اغلاق البرنامج"
DoCmd.Quit
End If

' عند نهاية الفترة
If vNowv > strRegEnd Then
MsgBox "انتهت الفترة التجريبية .. تواصل مع المبرمج "
DoCmd.Quit
End If

' عند تغيير تاريخ الكمبيوتر لان النسخة المؤقتة ستعمل فقط بين التاريخين المرصودين
If vNowv <= strRegStart Then
MsgBox "تم تغيير تاريخ الجهاز .. سيتم غلق البرنامج "
DoCmd.Quit
End If

End Sub

 

تشفير.rar

[حمدى الظابط]

السلام عليكم 

الراقى ابو خليل بعد الاطلاع على المثل وخدنى على اد عقلى حيث انى مبتداء فى عالم الاكسيس

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

وشكرا لك على هذه الهدية التى يحتاجها كثير من المبرمجين ولك تحياتى

تم تعديل فبراير 17, 2023 بواسطه حمدى الظابط

[ابوخليل]

افتح القاعدة باشتخدام الشيفت على التصميم

الكود واضح وعليه بعض الشروحات

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

10 ساعات مضت, ابوخليل said:

Me.regEnd = Now()
Me.regStart = Now()

يتم كتابة تاريخ معين بدلا من now()

ام يتم كتابة التاريخ بين القوسين

تشفير.accdb

[حمدى الظابط]

39 دقائق مضت, ابوخليل said:

افتح القاعدة باشتخدام الشيفت على التصميم

الكود واضح وعليه بعض الشروحات

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

1 دقيقه مضت, ابو عبد الرحمن اشرف said:

يتم كتابة تاريخ معين بدلا من now()

ام يتم كتابة التاريخ بين القوسين

تشفير.accdb 424 kB · 0 downloads

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

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

4 دقائق مضت, ابو عبد الرحمن اشرف said:

يتم كتابة تاريخ معين بدلا من now()

ام يتم كتابة التاريخ بين القوسين

تشفير.accdb 424 kB · 0 downloads

اعلم اخي انه في النموذج المرفق في حدث عند النقر الخاص بتسجيل التاريخ 

لقد قمت بتغير التاريخ داخل الجدول 

اعطاني رسالة تم التلاعب بالتشفير

غيرت في تاريخ اخر 

اعطاني رسالة تم التلاعب بتاريخ الجهاز

اين وكيف اضع التاريخين الجدد لفترة التجريب

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

3 دقائق مضت, حمدى الظابط said:

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

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

اعام

[ابوبسمله]

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

جزاك الله خيرا اخى ومعلمى وشيخنا الجليل على هذه الهديه 💐

واسمح لى بتعديل بسيط ليستطيع اخواننا بالتجربه

قمت باضافه نموذج اخر للسماح لهم باضافه التواريخ واضافه يومان لتاريخ النهايه

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

تقبل تحياتى ومرورى

تشفير_1.accdb

[kkhalifa1960]

وهذه مشاركتي بعد اذن استاذي أبو خليل .

تشفير-1.accdb

[ابوخليل]

25 دقائق مضت, ابوبسمله said:

واسمح لى بتعديل بسيط ليستطيع اخواننا بالتجربه

اهلا وسهلا بحبيبنا واستاذنا ابي بسملة

فكرة جميلة جدا ،

ولا اخفيك اني احترت في الطريقة التي ساشرح فيها الفكرة للاخوة 

سرني مرورك وأسعدني تعديلك  ، وفقك الله لكل خير وكتب اجرك  . 

6 دقائق مضت, kkhalifa1960 said:

وهذه مشاركتي بعد اذن استاذي أبو خلي

 

هلا اخوي العزيز خليفة

الف شكر لمساعدتك وعملك على شرح وتسهيل فهم المثال ، 

وفقك الله لكل خير وكتب اجرك  . 

[ابوبسمله]

2 ساعات مضت, ابوخليل said:

اهلا وسهلا بحبيبنا

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

2 ساعات مضت, ابوخليل said:

فكرة جميلة جدا ،

ولا اخفيك اني احترت في الطريقة التي ساشرح فيها الفكرة للاخوة 

سرني مرورك وأسعدني تعديلك  ، وفقك الله لكل خير وكتب اجرك  . 

افكارى نابعه من افكاركم وتعليمكم لنا

الحيره ترافقنا جميعا وقت العمل فى ترتيب الافكار وتنفيذ الفكره ويسعدنى دائما مشاركتكم فى توصيل وشرح افكاركم فمنها اتعلم ولعلى انول دعوه معكم تنفعنى فى حياتى او يوم لاينفع مال ولا بنون

سعدت بسعادتك معلمى العزيز ابوخليل ووفقك الله لما يحبه ويرضاه ، اللهم آمين

تقبل تحياتى معلمى العزيز ابوخليل اخوك وابنكم الصغير 😀 احمد

[أغيد]

كم انتم رائعون  ومتميزون  @ابوخليل @ابوبسمله @kkhalifa1960  شكراً جزيلاً  لكم  ولجميع اعضاء المنتدى والقائمين عليه .. اسئل الله ان ينفعنا بعلمكم وان يجعل ذلك في ميزان حسناتكم ..

[abouelhassan]

شكر وتقدير واحترام اخوانى الاساتذة العمالقة