[ شرح ] شرح عمل برنامج تشفير بالطريقه الصحيحه

الموضوع في 'حماية الأجهزة' بواسطة *أحمد*, بتاريخ ‏19 ابريل 2010.

تم تحميل الصفحة في 1,1061856 ثانية
حالة الموضوع:
مغلق
  1. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    [​IMG]

    اولا اخواني اعضاء ومشفرين وادارين منتدى الديف بوينت اليوم حاب اشرح لكم عمل برنامج تشفير بالفيجوال

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

    لما تختار الباتش وتعطيه امر تشفير يطلع لك خطاء ويقفل البرنامج لاكن بشرح لكم عمل البرنامج دون وجود

    اي خطاء ( وسوف استعين بالصور لا اخوي دكتور عدنان

    تابع معي

    بسم الله اول شي نبدا بعمل البرنامج


    لازم تحتاج لبرنامج VB6

    [​IMG]

    (نسخه بروتبل بدون تنصيب )

    حمله من هينا

    http://www.multiupload.com/PZKI7HRFQO


    نقوم بتشغيل الفيجوال بيسك 6 ومن ثم أتباع الأتي :

    [​IMG]


    [​IMG]


    [​IMG]

    [​IMG]


    [​IMG]

    [​IMG]

    [​IMG]

    [​IMG]

    طبعا نظيف الكود هذا

    كود:
    Private Sub Command1_Click()
    With CommonDialog1
            .DialogTitle = "Select The file you Want to Protect"
            .Filter = "EXE Files |*.exe"
            .ShowOpen
    End With
    
    If Not CommonDialog1.FileName = vbNullString Then
    
    Text1.Text = CommonDialog1.FileName
    
    End If
    
    End Sub
    
    Private Sub Command2_Click()
    Dim Stub As String
    
    Open App.Path & "\Stub.exe" For Binary As #1
    Stub = Space(LOF(1))
    Get #1, , Stub
    Close #1
    
    With CommonDialog1
    
            .DialogTitle = "Select Where you want to Save Crypted File"
            .Filter = "EXE Files |*.exe"
            .ShowSave
    
    End With
    
    Dim File As String
    
    Open Text1.Text For Binary As #1
    File = Space(LOF(1))
    Get #1, , File
    Close #1
    
    File = RC4(File, "therefenge")
    
    Open CommonDialog1.FileName For Binary As #1
    Put #1, , Stub & "[Theref]" & File
    Close #1
    
    MsgBox "Succesfully Crypted", vbInformation
    
    End Sub
    
    Public Function RC4(ByVal Data As String, ByVal Password As String) As String ' This is a Modified RC4 Function ^^
    On Error Resume Next
    Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
    Key() = StrConv(Password, vbFromUnicode)
    For X = 0 To 255
        Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
        F(X) = X
    Next X
    Key() = StrConv(Data, vbFromUnicode)
    For X = 0 To Len(Data)
        Y = (Y + F(Y) + 1) Mod 256
        Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
    Next X
    RC4 = StrConv(Key, vbUnicode)
    End Function
    
    Private Sub Command4_Click()
    MsgBox "[ MATRIX ]" & vbNewLine & vbNewLine & "Dev-PoinT" & vbNewLine & "" & vbNewLine & "", vbInformation, Me.Caption
    End Sub
    
    Private Sub Form_Load()
    
    End Sub
    
    ** لاحظ انو في شرح ابو عدنان اظاف موديل للبرنامج انا اقولك لا خلاص احفظ البرنامج كتالي

    [​IMG]


    [​IMG]


    وبكذا خلصنا [ برنامج التشفير ] ~



    2- برمجـة ستب برنامج التشفير

    الأن نقوم بفتح الفيجوال بيسك مرة أخرى :

    [​IMG]

    [​IMG]

    [​IMG]

    [​IMG]

    [​IMG]

    الكود :


    [​IMG]

    ونظيف هذا الكود

    الان نحفظ الــ Stub

    [​IMG]

    يجب تطبيق هذه الخطوات


    [​IMG]

    [​IMG]

    [​IMG]

    وبكذا خلصنا برمجـة الستب ..

    طبعاً لازم يكون أسم الستب هو

    Stub

    ويكون موجود بجنب برنامج التشفير



    بكذا خلصنا العمل ..

    ( طبعا تقدر تطور الستاب كل ماطورته كل ما اعطاك منتوج افضل :12: )

    طبعا هالشرح اهداء الى الاخ

    napster



    لاتحرمونا من تقيممكم
     
    8 شخص معجب بهذا.
  2. ie

    ie Beginner Developer

    إنضم إلينا في:
    ‏9 ابريل 2010
    المشاركات:
    287
    الإعجابات المتلقاة:
    34
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    يا سلام عليك يا اخي والله موضوع جد رائع :6:
     
  3. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه




    وانت الاروع يابطل اهم شي قيمنا :28: ​
     
    1 person likes this.
  4. الإيطــالي

    الإيطــالي VIP DeveloPer

    إنضم إلينا في:
    ‏26 ديسمبر 2009
    المشاركات:
    2,558
    الإعجابات المتلقاة:
    275
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    .
    .
    يعطيك العآفيه مآ قصرت..~
    وتستآهل التقييم إن آمكن .!
    آحس مكآنه بقسم الفيجوآل :9:
    .
    .
    .
     
  5. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه



    احس انه مكانه صح بالفيجوال بيسك لاكن لحظت كثرة طلبات الاعضاء على عمل برامج تشفير خاصه فقلت انزله هينا احسن وبعدين يبون ينقلونه ينقلونه
     
  6. MASKOFZORRO

    MASKOFZORRO Developer

    إنضم إلينا في:
    ‏20 يناير 2008
    المشاركات:
    226
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    جزاك الله خير اخوي احمد على هذا الشرح الواضح
    وكلي وين اروح اذا ابي اقيمك؟؟ تستاهل التقييم با بطل:32:
     
  7. عماد س

    عماد س ExpErt DeveloPer

    إنضم إلينا في:
    ‏14 ابريل 2009
    المشاركات:
    2,820
    الإعجابات المتلقاة:
    161
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    يعطيك الف عافية اخوى على الشرح
    شكرااااا:32:
     
  8. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه





    يعافي قلبك نورت يابطل :32: ​
     
  9. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه




    يكفيني مرورك وتشجيعك :25: ​
     
  10. lkhadra

    lkhadra Developer

    إنضم إلينا في:
    ‏26 ديسمبر 2009
    المشاركات:
    159
    الإعجابات المتلقاة:
    18
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    :9::13:ماشاء الله موضوع رائع وجميل

    الله يوفقك خو
    :6:​
     
  11. pavarotti

    pavarotti Beginner Developer

    إنضم إلينا في:
    ‏7 يناير 2010
    المشاركات:
    34
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    تنسيق في منتهى امروعة واصل اخي

    :9:
     
  12. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه





    اهم شي تستفيدون ( KsA )
     
  13. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه





    على قولت مصطفى الاغاء

    انت
    1- الاروع
    2- الامثل
    3- والاجمل ​
     
  14. Mr.pRiNce

    Mr.pRiNce DeveloPer Plus

    إنضم إلينا في:
    ‏13 يوليو 2009
    المشاركات:
    713
    الإعجابات المتلقاة:
    68
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    الشرح مكرر
     
  15. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه



    كل الشروحات كان فيها خطا ولو كانت سليمه انا اليوم اسلم عضويتي واطلع :8: لاني شفتها كلها

    وانت روح شوف المواضيع شرح اخونا ابو عدنان شوف مشاكل الاعضاء :10:
     
    1 person likes this.
  16. simon007

    simon007 DeveloPer Plus

    إنضم إلينا في:
    ‏23 يونيو 2007
    المشاركات:
    1,815
    الإعجابات المتلقاة:
    93
    نقاط الجائزة:
    48
    Credits:
    7
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    يعطيك الف عافية اخوى على الشرح
    جاري التقييم
     
  17. theslayer3

    theslayer3 Active DeveloPer

    إنضم إلينا في:
    ‏7 يناير 2010
    المشاركات:
    436
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    موضوع جميل جدا
    تستاهل احلى تقييم :32:
     
  18. **NapsTer**

    **NapsTer** ExpErt DeveloPer

    إنضم إلينا في:
    ‏24 يناير 2010
    المشاركات:
    1,930
    الإعجابات المتلقاة:
    879
    نقاط الجائزة:
    113
    الوظيفة:
    Actor
    الإقامة:
    :: Syria ::
    Credits:
    1
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه

    تعشق الموت لكي لا تعشقنا الحياة
    فدخلت مدارس الهاكر لتعاقب الحقراء

    فتعملت فنون الهاكر بكل أنواع الجنون
    تعلمت حين تقول نعم ... فقط من أجل العيون
    الهاكر حرب ... وكل من قادها يا عمرى مجنون

    لا تسأل من تكون ؟

    انت من كتب دستور الهاكر ... وأنت من وضع له قانون



    تحياتي لك ومشكور على الاهداء وجاري التقييم بعنــــــــــــف أخوك Napster
     
  19. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه




    نورت يا بطل واهم شي استفدتو
     
  20. *أحمد*

    *أحمد* DeveloPer Plus

    إنضم إلينا في:
    ‏29 أكتوبر 2009
    المشاركات:
    608
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج تشفير بالطريقه الصحيحه



    وقصم بايات الله احرجتني :28: اهم شي يكون كل من خش موضوعي يستفيد يا بطل ونورت
     
حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...