لماذا تطلب كود فك الشفرة من غيرك ما دمت تستطيع تصميم برنامج بنفسك يحسب كود فك الشفرة لأجهزة 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 جديد و ضع عليه المكونات المذكورة و سيكون عندك برنامجك الخاص
بالتوفيق
إذا أعجبك الموضوع إضغط علي أيقونة شكراً
المفضلات