الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة فى الحماية للبرنامج

مغلق
بدأه styles0ft في 6 يوليو 2007 · 3 رد · 523 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الفكره عموما ان بعمل حمايه للبرنامج اللى بعمله اذاى؟

ان المفروض ان ال user اللى بيستخدم البرنامج يدخل ذى id_number داخل textbox وعلى البرنامج بتاعى انه يتاكد اذا كان الرقم اللى داخله متوافق مع المعادله المكتوبه بالاكواد ولا لاْ .طبعا ب vb.net ولو الرقم غير متوافق يطلعله ذى رساله يقوله الرقم غير صحيح ............................... ايه المعادله

1 ان ال textbox لا تسمح غير بدخول 11رقم فقط

2 اول لما بيدخل ال user 11 رقم. على البرنامج ان ياخد عشر ارقام من ناحيه الشمال وليكن متلا ان ال user دخل هذا الرقم

05224433226 اذن البرنامج حياخد 0522443322 ويجرى عليه العملية القادمة

3 حيضرب العشر ارقام فى رقم ثابت وليكن 1212121212 مع ملا حظه ان

باخد ضرب الاحاد فى الاحاد مليش دعوه بالعشرات( يعنى لو بضرب 10*6 المفروض تطلع 60 لا انا هنا باخد الصفر بس ومليش دعوه بالباقى) لو رجعنا للمثال تانى

وضربنا الرقم اللى دخل *الرقم الثابت

اذن النتيجه حتكون 0024483624

4 بعد كده حاخد ناتج عمليه الضرب واجرى عليها عمليه جمع

اذن الناتج هنا حيكون 33

5 حاخد رقم الاحاد بس من الرقم اللى طلعلى اللى هنا هو رقم 3

6 حطرح رقم 3 من رقم ثابت وليكن 10

7 حاخد نتيجه الطرح الى هنا هى رقم 10-3=7

حاخد رقم 7 واقارنه بالرقم الحادى عشر ( اللى هو مدخلش فى عمليات المعادله) اللى هنا فى المثال هو رقم 6

لو البرنامج

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

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

#2

انا حاولت افهم الي حضرتك كاتبه بس داخل في بعض ممكن تشرح براحه صيغه السؤال علشان تقدر تحصل علي مساعده

  1. سبحان الله وبحمده سبحان الله العظيم


    متى نحكم العالم زى زمان ايام اجددنا

    صلى الله على محمد صلى الله عليه وسلم



#3
اقتباس
انا حاولت افهم الي حضرتك كاتبه بس داخل في بعض ممكن تشرح براحه صيغه السؤال علشان تقدر تحصل علي مساعده
اقتباس
اثنان لا يتعلمان مستحي ومتكبر

دوال الAPI التي تساعد في الحصول على مقابض النوافذ

تطوير مكتبة DLL ذات إمكانيات عالية وقوية جداً[/وسط]

#4

كتبت التالي بالمفكرة

dim number as integer
number = id_number.text

if len(id_number.text) <> 11 then
	msgbox "error, 11 char please"
end if

dim temp as integer, static as integer
temp = left(number, 10)
static = 1212121212

dim x as integer, i as integer, y as integer

for i = 1 to 10
x = val(mid(temp, i, 1)) * val(mid(static, i, 1))

if x >= 10 then
	x = mid(x, 2, 1)
end if

y = y & x
next

dim z as integer
z = 0

for i = 1 to 10
z = z + mid(y, i, 1)
next

if z >= 10 then
	z = mid(z, 2, 1)
end if

z = 10 - z

if z <> mid(number, 11, 1) then
	msgbox "incorrect pin"
end if

وهو يندرج في تعليمات الزر الخاص بالمتابعة

عليك ان تحدد عدد الارقام بنفسك

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

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

هذا الموضوع مغلق.

مواضيع مشابهة