ZTE calculator source code للجميع ( صمم برنامجك بنفسك )

[hasanmh]

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

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

Private Sub Command1_Click()
Dim imei(12), r1(12), r2(12), r3(12), nck(12)
Dim i, j, z As Integer
z = 0
magic = "688950000000"
For i = 1 To 12
imei(i) = Val(Mid$(Text1.Text, i + 3, 1))
r3(i) = Val(Mid$(magic, i, 1))
z = z + Val(imei(i))
Next i
For i = 1 To 12
r1(i) = (imei(i) * z) Mod 10
r2(i) = (imei(i) * 8) Mod 10
Next i
j = 12
For i = 1 To 6
x = r2(i)
r2(i) = r2(j)
r2(j) = x
j = j - 1
Next i
Text2.Text = ""
For i = 1 To 12
nck(i) = (r1(i) + r2(i) + r3(i)) Mod 10
Text2.Text = Text2.Text + Str$(nck(i))
Next i

End Sub

الأجهزة التي سيدعمها برنامجك هي

SFR 114, SFR 231, SFR 232, SFR 241, SFR 251, SFR 341, SFR 342, SFR 343, SFR Messenger Edition 251, Orange Vegas, Vodafone Indie, ZTE A261+, ZTE X760, ZTE X761, ZTE X960, ZTE X990, ZTE GX760, ZTE GX761, ZTE GR230, T-Mobile Vairy Touch

.

لقد جربت الأكواد بنفسي و قمت بتصميم برنامج بواجهة بسيطة تجدونه في المرفقات



المهم في الأمر هو أنك تحتاج لبرنامج - Visual basic - VB6

كل من يصمم برنامج فليضعه هنا و لنري إبداعاتكم

تلميح بالنسبة للمبتدئين : البرنامج كامل يحتاج فقط إلي ثلاث خطوات بعد و هي زر الأمر لحساب الكود و TEXT BOX لكتابة رمز IMEI و text box 2 يستخدمه البرنامج لكتابة كود فك الشفرة . يعني أعمل copy past للأكواد المرفقة في المشاركة و أنشئ form جديد و ضع عليه المكونات المذكورة و سيكون عندك برنامجك الخاص

بالتوفيق

إذا أعجبك الموضوع إضغط علي أيقونة شكراً