قائمة الاعضاء المشار اليهم
النتائج 1 إلى 8 من 8

الموضوع: صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

  1. #1
    .: جيماوي رائع :.
    الصورة الرمزية hasanmh

    الحالة
    غير متواجد
    تاريخ التسجيل
    Apr 2010
    الدولة
    السودان
    Sonork
    100.1592650
    Phone
    نوكيا 7610
    المشاركات
    1,009
    الشكر
    278
    شُكر 691 فى 304 مشاركة
    تم تذكيره فى
    0 مشاركة
    تمت الاشارة اليه فى
    0 مواضيع
    معدل تقييم المستوى
    33

    افتراضي صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

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

    كل ما تحتاج له هو برنامج visual basic أما طريقة التصميم فقد وضعت ملف مرفق يحتوي علي source code خاص بالبرمجة قد وجدته في أحد المنتديات الأجنبية و أحببت أن أشاركه الإخوة الأعضاء

    و مرفق أيضا برنامج قمت بتعديل واجهته لتصبح باللغة العربية بنفسي علي سبيل التجربة

    صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )


    بالنسبة للإخوة المحترفين يمكنكم تصميم برامجكم الخاصة ووضعها هنا ليستفيد منها بقية الأعضاء , و أيضاً الموضوع مفتوح للنقاش و المشاركة بالخبرات

    كل من يصمم برنامج عن طريق هذه الأكواد فليضعه هنا , ولنري إبداعاتكم



    أما إذا كنت مبتدئ في البرمجة بواسطة visual basic فقد وضعت رابط لكتاب يشرح كيفية البرمجة من البداية للنهاية , و إذ واجهتك مشكلة فاطرحها هنا فأظن بأن المنتدي عامر بالمحترفين وسوف يساعدونك .

    الرابط
    http://www.mediafire.com/?mar43mznnyn

    و هنا وضعت أكواد البرمجة كاملة فما عليك سوي تصميم واجهة للبرنامج في الوقت الحالي , إلي ان تتمكن من تصميم البرنامج كاملاً بنفسك و هذا هو المطلوب

    كود:
    Private gBytes() As Byte
    Private gHash As New MD5Hash
    Private Function CheckHex(gHex As String) As String
    ' This function will append a '0' if Hex Value is single digit.
    If Len(gHex) = 1 Then
        gHex = "0" & gHex
    End If
    CheckHex = gHex
    End Function
    
    Private Sub Command1_Click()
    Dim gIMEI As String
    Dim gHexVal1(3) As String
    Dim gHexVal2(3) As String
    Dim gHexVal3(3) As String
    Dim gHexVal4(3) As String
    Dim X As Integer
    Dim gHashStr As String
    Dim gXoredHash As Long
    gIMEI = Text1.Text
    If IsNumeric(gIMEI) = False Or Len(gIMEI) < 15 Then
        MsgBox "رقم غير صحيح!", vbExclamation, "Error"
        Exit Sub
    End If
    gIMEI = gIMEI & "5e8dd316726b0335" 'Append Unlock Hash with IMEI
    gBytes = StrConv(gIMEI, vbFromUnicode)
    gHashStr = gHash.HashBytes(gBytes) 'Creating MD5 Hash
    'MsgBox gHashStr
    For X = 0 To 3
        gHexVal1(0) = Mid(gHashStr, 1, 2)
        gHexVal1(1) = Mid(gHashStr, 9, 2)
        gHexVal1(2) = Mid(gHashStr, 17, 2)
        gHexVal1(3) = Mid(gHashStr, 25, 2)
        gHexVal2(0) = Mid(gHashStr, 3, 2)
        gHexVal2(1) = Mid(gHashStr, 11, 2)
        gHexVal2(2) = Mid(gHashStr, 19, 2)
        gHexVal2(3) = Mid(gHashStr, 27, 2)
        gHexVal3(0) = Mid(gHashStr, 5, 2)
        gHexVal3(1) = Mid(gHashStr, 13, 2)
        gHexVal3(2) = Mid(gHashStr, 21, 2)
        gHexVal3(3) = Mid(gHashStr, 29, 2)
        gHexVal4(0) = Mid(gHashStr, 7, 2)
        gHexVal4(1) = Mid(gHashStr, 15, 2)
        gHexVal4(2) = Mid(gHashStr, 23, 2)
        gHexVal4(3) = Mid(gHashStr, 31, 2)
    Next X
    gHexVal1(0) = Hex(Val("&H" & gHexVal1(0)) Xor Val("&H" & gHexVal1(1)) Xor Val("&H" & gHexVal1(2)) Xor Val("&H" & gHexVal1(3)))
    gHexVal1(1) = Hex(Val("&H" & gHexVal2(0)) Xor Val("&H" & gHexVal2(1)) Xor Val("&H" & gHexVal2(2)) Xor Val("&H" & gHexVal2(3)))
    gHexVal1(2) = Hex(Val("&H" & gHexVal3(0)) Xor Val("&H" & gHexVal3(1)) Xor Val("&H" & gHexVal3(2)) Xor Val("&H" & gHexVal3(3)))
    gHexVal1(3) = Hex(Val("&H" & gHexVal4(0)) Xor Val("&H" & gHexVal4(1)) Xor Val("&H" & gHexVal4(2)) Xor Val("&H" & gHexVal4(3)))
    For X = 0 To 3
        gHexVal1(X) = CheckHex(gHexVal1(X))
    Next X
    gXoredHash = Val("&H" & gHexVal1(0) & gHexVal1(1) & gHexVal1(2) & gHexVal1(3))
    Text2.Text = gXoredHash And &H1FFFFFF Or &H2000000
    End Sub
    
    Private Sub Command2_Click()
    End
    
    End Sub



    تذكروا أن هذا الموضوع مفتوح للنقاش و تبادل الآراء


    تم رفع الملفات علي mediafire
    the source code
    http://www.mediafire.com/?aqygz1wxlnd

    برنامج للتجربة
    http://www.mediafire.com/?jzumm2iyxmy

    بالتوفيق



    التعديل الأخير تم بواسطة hasanmh ; 25-05-2010 الساعة 01:01 PM

  2. # ADS
    Circuit advertisement
    تاريخ التسجيل
    Always
    الدولة
    Advertising world
    المشاركات
    Many
  • # ADS

    تاريخ التسجيل
    Always
    الدولة
    Advertising world
    المشاركات
    Many


  • #2
    .: جيماوي محترف :.
    الصورة الرمزية sami2007

    الحالة
    غير متواجد
    تاريخ التسجيل
    Jul 2007
    الدولة
    تونس
    Phone
    nokia
    المشاركات
    8,834
    الشكر
    9,641
    شُكر 11,837 فى 4,883 مشاركة
    تم تذكيره فى
    0 مشاركة
    تمت الاشارة اليه فى
    0 مواضيع
    معدل تقييم المستوى
    392

    افتراضي رد: صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

    مشكور قيد تجربة

  • #3
    .: جيماوي رائع :.
    الصورة الرمزية hasanmh

    الحالة
    غير متواجد
    تاريخ التسجيل
    Apr 2010
    الدولة
    السودان
    Sonork
    100.1592650
    Phone
    نوكيا 7610
    المشاركات
    1,009
    الشكر
    278
    شُكر 691 فى 304 مشاركة
    تم تذكيره فى
    0 مشاركة
    تمت الاشارة اليه فى
    0 مواضيع
    معدل تقييم المستوى
    33

    افتراضي رد: صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

    اقتباس المشاركة الأصلية كتبت بواسطة sami2007 مشاهدة المشاركة
    مشكور قيد تجربة
    أسعدني مرورك و بإنتظار نتيجة التجربة

  • #4
    .: جيماوي جديد :.

    الحالة
    غير متواجد
    تاريخ التسجيل
    Jun 2010
    المشاركات
    2
    الشكر
    1
    Thanked 2 Times in 1 Post
    تم تذكيره فى
    0 مشاركة
    تمت الاشارة اليه فى
    0 مواضيع
    معدل تقييم المستوى
    0

    افتراضي رد: صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

    شكرا كثيرا على هذا البرنامج وهو فعال لدرجة كبيرة

  • #5
    .: جيماوي جديد :.

    الحالة
    غير متواجد
    تاريخ التسجيل
    May 2010
    المشاركات
    5
    الشكر
    0
    شُكر 5 فى 2 مشاركة
    تم تذكيره فى
    0 مشاركة
    تمت الاشارة اليه فى
    0 مواضيع
    معدل تقييم المستوى
    0

    افتراضي رد: صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

    برنامج جدا رائع و ممتاز اشكرك......
    قيد التجربه

  • #6
    .: جيماوي محترف :.
    الصورة الرمزية .:Кinģ pЯo:.

    الحالة
    غير متواجد
    تاريخ التسجيل
    Sep 2009
    الدولة
    . : : YeMeN : : .
    العمر
    26
    Sonork
    100.1596797
    Phone
    BlackBerry Pearl 8100
    المشاركات
    2,139
    الشكر
    17,194
    شُكر 3,879 فى 1,418 مشاركة
    تم تذكيره فى
    0 مشاركة
    تمت الاشارة اليه فى
    0 مواضيع
    معدل تقييم المستوى
    77

    افتراضي رد: صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

    مشكور على الموضوع
    <][--- جاري التجربه

  • #7
    .: جيماوي رائع :.
    الصورة الرمزية hasanmh

    الحالة
    غير متواجد
    تاريخ التسجيل
    Apr 2010
    الدولة
    السودان
    Sonork
    100.1592650
    Phone
    نوكيا 7610
    المشاركات
    1,009
    الشكر
    278
    شُكر 691 فى 304 مشاركة
    تم تذكيره فى
    0 مشاركة
    تمت الاشارة اليه فى
    0 مواضيع
    معدل تقييم المستوى
    33

    افتراضي رد: صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

    اقتباس المشاركة الأصلية كتبت بواسطة sadah1 مشاهدة المشاركة
    برنامج جدا رائع و ممتاز اشكرك......
    قيد التجربه
    أسعدني مرورك و ما تنسي تورينا نتيجة التجربة



  • #8
    .: جيماوي رائع :.
    الصورة الرمزية hasanmh

    الحالة
    غير متواجد
    تاريخ التسجيل
    Apr 2010
    الدولة
    السودان
    Sonork
    100.1592650
    Phone
    نوكيا 7610
    المشاركات
    1,009
    الشكر
    278
    شُكر 691 فى 304 مشاركة
    تم تذكيره فى
    0 مشاركة
    تمت الاشارة اليه فى
    0 مواضيع
    معدل تقييم المستوى
    33

    افتراضي رد: صمم برنامج huawei calculator بنفسك ( للمحترفين و المبتدئين )

    اقتباس المشاركة الأصلية كتبت بواسطة King Pro مشاهدة المشاركة
    مشكور على الموضوع
    <][--- جاري التجربه
    سعيد بمرورك يا ملك , و ورينا إبداعك

  • الكلمات الدلالية لهذا الموضوع

    المفضلات

    المفضلات

    ضوابط المشاركة

    • لا تستطيع إضافة مواضيع جديدة
    • لا تستطيع الرد على المواضيع
    • لا تستطيع إرفاق ملفات
    • لا تستطيع تعديل مشاركاتك
    •