منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
شرح عملية التفعيل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : شرح عملية التفعيل (/showthread.php?tid=24402)

الصفحات: 1 2

شرح عملية التفعيل - حافظ حافظ - 02-04-18

السلام عليكم.من فضلكم اخواني هذا ملف قمت بنسخة من مشروع للاخ الكاتب بقسم المشاريع
كيف بارك الله فيكم اقوم بالتفعيل حاولت و حاولت ولم افعم كيف اقوم بالتفعيل بهاي الطريقة بارك الله فيكم

RE: شرح عملية التفعيل - mmali127 - 02-04-18

متابع ....

RE: شرح عملية التفعيل - محمود صالح - 02-04-18

فكرة في كود تفعيل (غير المثال المطروح)
اولا : جلب رقم Processor  وليكن ( hh100k )
ثانيا : تحويل سريال Processor الى ارقام فقط ليسهل التعامل معه وليكن بعد التحويل ( 123456789 )
ثالثا : اختيار عملية حسابية معقدة على الارقام في ثانيًا 
مثلا ( الرقم الظاهر مضروب * 3 مقسوم / 9 )(41152263) وذلك حتى يصعب على الشخص تخمينها 

رايعا : اصبح معنا رقمين ( 123456789 ) وده الى حيظهر عند المستخدم و (41152263)  وده هيكون مخفي عن المستخدم
عندما يعطيك المستخدم رقم الى ظاهر امامه حتقوم انت بضربه في 3 ثم قسمته على 9  
ثم تعطي له ليكتبه في خانة التسجيل وبعد كده البرنامج هيقوم بمقارنة الرقم المخفي بالذي اخذه منك 
متساوين اذا يسجل او لا



كود جلب سريال Processor
PHP كود :
       Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
        Dim mo_PR As ManagementObject
        For Each mo_PR In MOS_PR.Get()
            (TextBox1.Text = Str2Int(mo_PR("ProcessorId").ToString
        Next 



كود التحويل 
PHP كود :
   Public Function Str2Int(ByVal InStrng As Object) As String
        Dim StrLn As Integer
        Dim Cntr As Integer
        Dim NewStr As String
        Str2Int = ""
        StrLn = Len(InStrng)
        If StrLn = 0 Then Exit Function
        NewStr = ""
        For Cntr = 1 To StrLn
            Select Case Mid(InStrng, Cntr, 1)
                Case "0" To "z"
                    NewStr = NewStr & Asc(Mid(InStrng, Cntr, 1))
            End Select
        Next Cntr
        Str2Int = NewStr
    End Function 


RE: شرح عملية التفعيل - حافظ حافظ - 02-04-18

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

RE: شرح عملية التفعيل - emamtron2014 - 03-04-18

[b]جزاك الله خيرا اخ محمود صالح[/b]
ياريت حضرتك تتكرم وتعمل مثال بسيط لهذا الكود 
وجزاك الله عنا خير اجزاء


RE: شرح عملية التفعيل - محمود صالح - 03-04-18

صورة
[attachment=17564]

RE: شرح عملية التفعيل - حافظ حافظ - 03-04-18

و الله رائع اخ محمود صالح عمل مفهوم و رائع
اخي محمود اكون جد ممنون لحضرتك لو تساعدني عاى تكملة الملف
كيف مثلا احدد الارقام بتاكست 2 بتاع تسجيل النسخة مثلا دائما يطلعو فقط 20 رقم .يعني نكبر عملية اضرب عشان اضمن النتيجة دائما 20 .و بعدين اوزع ال20 رقم على التاكسات كل 4 ارقام في تكست  زي طريقة تفعيل الالترا ايزو كمثال.بارك الله فيك

RE: شرح عملية التفعيل - محمود صالح - 04-04-18

بطريقة دي 
اولا : كل تكست حياخد 3 ارقام فقط لتصبح مجموع التكست 15 رقم 
ثانيا : انت وبتحط المعادلة الحسابية لابد ان تكون بناتج كبير لا يقل الناتج عن 15 رقم مثلا تضرب الرقم *3*9*11*5 
ثالثا : كود التفعيل حيكون اول 15 رقم من الناتج حتى لو كان 50 رقم

RE: شرح عملية التفعيل - عبد العزيز البسكري - 04-04-18

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


RE: شرح عملية التفعيل - mmali127 - 04-04-18

ماشاء الله 

فعلا  مبدع استاذ / محمد صالح 

تحياتى