[محمود صالح]

فكرة في كود تفعيل (غير المثال المطروح)
اولا : جلب رقم 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