إذا قمت بتحميل برنامج nero أو أي برنامج أخر فتلاحظ أنه معه كراك يعطيك أكثر من رقم سري
أليس هذا صحيح فكرت كيف البرنامج يتقبل كل الأرقام و الأحرف التي يعطيها الكراك !! وأعتقد أنني وجدت الحل
حيث أن البرنامج يقوم بقراءة السيريال نمبر ثم يحلله فالنفرض أن الرقم السري هو 5FFS أو أو 4DFF
فماذا تلاحظون نلاحظ أن الرقمين السريين أولهما رقم ثم حرف ثم حرف ثم حرف وسيحللها البرنامج إذا
كانت (أولها رقم ثم حرف ثم حرف ثم حرف ) فسيقبلها إذا لم يكن فسيرفضها وأعتقد أن هذه فكرة حلوة
لكن المهم الكلام برمجيا وقد استطعت أن أنفذه وهو :
الخوارزمية
النص الأول :
1 - حرف
2- حرف
3- رقم
4 - حرف
5- رقم
النص الثاني :
1 - رقم
2- حرف
3 - حرف
4 - رقم
5 - حرف
وأولا قم بإنشاء مربعين نص وسمهما sn1 و sn2
الأكواد :
If sn1.Text = Nothing Or sn2.Text = Nothing Then
MsgBox("لم تقم بإدخال الرقم ! ", MsgBoxStyle.Exclamation, "خطأ")
Exit Sub
End If
وهو يتفحص إذا تم كتابة نص في المربعين
If IsNumeric(sn1.Text.Chars(0)) = True Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرمز الأول من مربع النص الاول حرف
If IsNumeric(sn1.Text.Chars(1)) = True Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرمز الثاني من مربع النص الاول حرف
If IsNumeric(sn1.Text.Chars(2)) = False Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرمز الثالث من مربع النص الاول حرف
If IsNumeric(sn1.Text.Chars(3)) = True Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرمز الرابع حرف من مربع النص الاول
If IsNumeric(sn1.Text.Chars(4)) = False Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرقم الخامس من مربع النص الأول رقم
مربع النص الثاني :
If IsNumeric(sn2.Text.Chars(0)) = False Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرمز الأول من مربع النص الثاني رقم
If IsNumeric(sn2.Text.Chars(1)) = False Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرمز الثاني من مربع النص الثاني حرف
If IsNumeric(sn2.Text.Chars(2)) = False Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرمز الثالث من مربع النص الثاني حرف
If IsNumeric(sn2.Text.Chars(3)) = False Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرمز الرابع حرف من مربع النص الثاني
If IsNumeric(sn2.Text.Chars(4)) = True Then
MsgBox("رقم خاطئ", MsgBoxStyle.Critical, Me.Text)
Exit Sub
End If
وهو يتفحص إذا كان الرقم الخامس من مربع النص الثاني حرف
وهكذا تنتهي وقد قمت بعمل مثال على هذا في الملف المرفق
