اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

 

تشفير.rarFetching info...

  • Like 5
  • Thanks 2
قام بنشر (معدل)

السلام عليكم 

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

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

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

تم تعديل بواسطه حمدى الظابط
قام بنشر
  في 17‏/2‏/2023 at 11:12, ابوخليل said:
Me.regEnd = Now()
Me.regStart = Now()
Expand  

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

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

تشفير.accdbFetching info...

  • Like 1
قام بنشر
  في 17‏/2‏/2023 at 20:56, ابوخليل said:

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

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

Expand  

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

  في 17‏/2‏/2023 at 21:37, ابو عبد الرحمن اشرف said:

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

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

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

Expand  

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

قام بنشر
  في 17‏/2‏/2023 at 21:37, ابو عبد الرحمن اشرف said:

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

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

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

Expand  

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

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

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

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

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

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

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

  في 17‏/2‏/2023 at 21:39, حمدى الظابط said:

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

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

Expand  

اعام

قام بنشر

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

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

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

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

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

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

تشفير_1.accdbFetching info...

  • Like 3
قام بنشر
  في 17‏/2‏/2023 at 22:02, ابوبسمله said:

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

Expand  

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

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

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

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

  في 17‏/2‏/2023 at 22:24, kkhalifa1960 said:

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

 

Expand  

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

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

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

  • Like 1
  • Thanks 1
قام بنشر
  في 17‏/2‏/2023 at 22:31, ابوخليل said:

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

Expand  

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

  في 17‏/2‏/2023 at 22:31, ابوخليل said:

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

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

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

Expand  

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

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

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

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

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information