ابوخليل

النسخة هنا في موضوع وعنوان جديد

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

تم رفع اشعار لادارة وفريق الموقع

بالنسبة لنا في السعودية يوجد اكثر من قناة لتوصيل التبرعات ومن اهمها وآمنها في وصول التبرعات الى مستحقيها وهي منصة ساهم التابعة لمركز الملك سلمان للإغاثة والأعمال الإنسانية . مركز الملك سلمان للإغاثة ///// التبرع لمساعدة ضحايا الزلزال في سوريا وتركيا من خلال #منصة_ساهم عبر الرابط الآتي: https://sahem.ksrelief.org/SYTR

المشكلة هذه ضبطها من الاتجاه في الخصائص يضبط الاتجاه يمينا او يسارا في النموذج ومثلها في الازرار وجميع العناصر

على كل حال غدا سأرفع النسخة المفتوحة ولكن يهمني محاولة ورأي من يهمه الأمر جرب آخر مرفق هنا عند تحويل قاعدة البيانات الى Accde او mde لا يمكن الاطلاع على الاكواد

أأأأأه هذه معلومة جديدة لدي

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

هذا هو المرفق معدل _ اعبث بتاريخ جهازك كيف شئت 2010 _ 32 بت من دون الاستعانة بالانترنت تشفير فترة زمنية.rar

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

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

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

ملحوظة : عند فتح المثال لأول مرة يجب ربط الجدول الواجهة بجدول القاعدة الخلفية

تفضل اخي الكريم في المرفق نموذج وجدول يشتمل على حقل واحد سوف يفتح معك خلال الــ 24 ساعة القادمة .. بعدها لن تتمكن من فتح الفورم والبرنامج سوف يغلق تلقائيا كلمة السر لفتح البرنامج تجدها في الجدول .. لذا حاول ان تفك التشفير انتبه !! اذا اختل النص المشفر فلن يمكنك فتح الفورم ايضا ، فقبل العبث به قم بنسخه ولصقه بعيدا كي ترجع اليه عند حاجتك لفتح الفورم الفكرة .. هي ان يكون الفورم هذا هو فورم البداية في النسخة المؤقته .. بعد تجربة العميل وموافقته على شراء البرنامج ترسل اليه نسخة من الواجهات مفتوحة ولا تحتوي على هذا الفورم المشفر ولا جدول التشفير وانما تحتوي على ادوات الحماية المعروفة لعدم استخدام النسخة في اجهزة اخرى . وهذا يعني ان النسخة التجريبية لا تحتوي على اي نوع من انواع الحماية سوى هذا التشفير المثال على صيغة mde المثال المفتوح سوف ارفعه بعد اقتناعك بقوة الحماية مع بساطتها المرفق في آخر مشاركة

الافضل ينقل الموضوع الى القسم المفتوح في الموقع ليطلع عليه اكبر شريحة من مرتادي الموقع ايضا يتم اشعار مدير الموقع للمشاركة وابداء الرأي

لا اعتقد نرجوا من الاخوة الكرام تجربة المثال

اخي احمد للاسف لا يوجد عندي مثال بهذا الخصوص ، ولو كان عندي لم ابخل عليك به ثانيا هذا منتدى تعليمي ، للمساعدة والتعلم ، ولو بدأت بعمله وتصميمه لساعدناك

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

الكود هو المعرف الخاص بالزبون ، يمكن يكون رقم الهوية مثلا لذا المفترض يكون نوعه نصي وليس رقمي فائدة : نستخدم الحقول الرقمية فقط في الحقول التي نريد استخدامها للمبالغ او يدخل فيها العمليات الحسابية جمع وطرح ... الخ وفي مثالك كود الزبون هو للتعريف فقط فالافضل يكون نصي .. مثل حقل الهاتف ( لا نجري عليها عمليات حسابية)

ركب الكلاس اعلاه عندك ثم اجعل بيانات الرسائل هكذا MsgBox cResolve.GetHostNameFromIP("85.10.205.205") MsgBox cResolve.GetIPFromHostName("www.officena.net") ستلاحظ انه يعطي اسم الموقع في الرسالة الاولى بناء على الآيبي المدخل والرسالة الثاني عكس الاولى

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

نسيت حاجة تبينها على شان اللي بيعمل لك المعادلة ياخذ باله منها العشرة الاوائل .. هم عشرة طلاب فقط او الى الترتيب العاشر بمعنى يوجد لدينا 10 طلاب كلهم اخذوا المركز الاول مكرر .. تكتفي بهؤلاء ؟ ام يجب ان نأخذ الى المركز العاشر حتى لو بلغوا 100 طالب ؟

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

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

مثلا : انظر هنا وهنا