تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف احمي الكود سورس
#1
السلام عليكم


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

تقوم بانشاء مجروع جديد في [ vb.net ] و نضيف [ Module ] و نضيف الاكواد التالية



نذهب الآن الى [ Form1_Load ] و نقوم باستدعاء الاكواد عبر [ Call Protect() ]

و انتهينا ، تمت حماية مشروعك من :
[ CurrPorts ’ Fiddler ’ SimpleAssemblyExplorer ’ Reflector ’ HxD ’ Ollydb ’ Microsoft Spy ++ ’ TCPEye ’ Process Explorer ]

الاكواد المستعملة في الشرح :

كود :
Module OPq
' [SeC_FRAROUKi]
    Sub Protect()
        Dim TargetProcess1() As Process = Process.GetProcessesByName("Fiddler")
        Dim TargetProcess2() As Process = Process.GetProcessesByName("SimpleAssemblyExplorer")
        Dim TargetProcess3() As Process = Process.GetProcessesByName("Reflector")
        Dim TargetProcess4() As Process = Process.GetProcessesByName("HxD")
        Dim TargetProcess5() As Process = Process.GetProcessesByName("Ollydb")
        Dim TargetProcess6() As Process = Process.GetProcessesByName("taskmgr")
        Dim TargetProcess7() As Process = Process.GetProcessesByName("sptxx")
        Dim TargetProcess8() As Process = Process.GetProcessesByName("tcpeye")
        Dim TargetProcess9() As Process = Process.GetProcessesByName("procexp")
        Dim TargetProcess10() As Process = Process.GetProcessesByName("cports")

        If Not TargetProcess10.Length = 0 Then
            TargetProcess10(0).Kill()
            MsgBox("CurrPorts Detected!", MsgBoxStyle.Critical, "^_^")

        End If
        If Not TargetProcess1.Length = 0 Then
            TargetProcess1(0).Kill()
            MsgBox("Fiddler Detected!", MsgBoxStyle.Critical, "^_^")

        End If


        If Not TargetProcess2.Length = 0 Then
            TargetProcess2(0).Kill()
            MsgBox("SimpleAssemblyExplorer Detected!", MsgBoxStyle.Critical, "^_^")

        End If

        If Not TargetProcess3.Length = 0 Then
            TargetProcess3(0).Kill()
            MsgBox("Reflector Detected!", MsgBoxStyle.Critical, "^_^")

        End If

        If Not TargetProcess4.Length = 0 Then
            TargetProcess4(0).Kill()
            MsgBox("HxD Detected!", MsgBoxStyle.Critical, "^_^")

        End If

        If Not TargetProcess5.Length = 0 Then
            TargetProcess5(0).Kill()
            MsgBox("Ollydb Detected!", MsgBoxStyle.Critical, "^_^")
        End If
        If Not TargetProcess6.Length = 0 Then
            TargetProcess6(0).Kill()
            MsgBox("Windows Task Manager Detected!", MsgBoxStyle.Critical, "^_^")

        End If
        If Not TargetProcess7.Length = 0 Then
            TargetProcess7(0).Kill()
            MsgBox("Microsoft Spy ++ Detected!", MsgBoxStyle.Critical, "^_^")

        End If
        If Not TargetProcess8.Length = 0 Then
            TargetProcess8(0).Kill()
            MsgBox("TCPEye  Detected!", MsgBoxStyle.Critical, "^_^")

        End If
        If Not TargetProcess9.Length = 0 Then
            TargetProcess9(0).Kill()
            MsgBox("Process Explorer  Detected!", MsgBoxStyle.Critical, "^_^")

        End If
    End Sub

كود الاستدعاء في Form1_Load

كود :
Call Protect()


اما ان كنت تريد ان يعمل برنامجك في حاسوبك فقط وذالك عن طريق الهارد ديسك

اولا تحتاج الى textbox و button


2/ نكتب الكود التالي فيbutton :
كود :
TextBox1.Text = My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory


الان وصلنا للحماية نكتب الكود التالي :
كود :
If My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory = "Hard dick هنــا رقــم" Then
Form2.Show()
Else
Form3.Show()
End If
الرد }}}}
تم الشكر بواسطة: محمود رغمان , سعود , الماجيك مسعد
#3
(12-10-14, 03:01 AM)hitman48 كتب : تفضل اخي الكريم ان كنت تريد حماية برنامجك من الكسر:

تقوم بانشاء مجروع جديد في [ vb.net ] و نضيف [ Module ] و نضيف الاكواد التالية



نذهب الآن الى [ Form1_Load ] و نقوم باستدعاء الاكواد عبر [ Call Protect() ]

و انتهينا ، تمت حماية مشروعك من :
[ CurrPorts ’ Fiddler ’ SimpleAssemblyExplorer ’ Reflector ’ HxD ’ Ollydb ’ Microsoft Spy ++ ’ TCPEye ’ Process Explorer ]

الاكواد المستعملة في الشرح :



كود :
Module OPq
' [SeC_FRAROUKi]
    Sub Protect()
        Dim TargetProcess1() As Process = Process.GetProcessesByName("Fiddler")
        Dim TargetProcess2() As Process = Process.GetProcessesByName("SimpleAssemblyExplorer")
        Dim TargetProcess3() As Process = Process.GetProcessesByName("Reflector")
        Dim TargetProcess4() As Process = Process.GetProcessesByName("HxD")
        Dim TargetProcess5() As Process = Process.GetProcessesByName("Ollydb")
        Dim TargetProcess6() As Process = Process.GetProcessesByName("taskmgr")
        Dim TargetProcess7() As Process = Process.GetProcessesByName("sptxx")
        Dim TargetProcess8() As Process = Process.GetProcessesByName("tcpeye")
        Dim TargetProcess9() As Process = Process.GetProcessesByName("procexp")
        Dim TargetProcess10() As Process = Process.GetProcessesByName("cports")

        If Not TargetProcess10.Length = 0 Then
            TargetProcess10(0).Kill()
            MsgBox("CurrPorts Detected!", MsgBoxStyle.Critical, "^_^")

        End If
        If Not TargetProcess1.Length = 0 Then
            TargetProcess1(0).Kill()
            MsgBox("Fiddler Detected!", MsgBoxStyle.Critical, "^_^")

        End If


        If Not TargetProcess2.Length = 0 Then
            TargetProcess2(0).Kill()
            MsgBox("SimpleAssemblyExplorer Detected!", MsgBoxStyle.Critical, "^_^")

        End If

        If Not TargetProcess3.Length = 0 Then
            TargetProcess3(0).Kill()
            MsgBox("Reflector Detected!", MsgBoxStyle.Critical, "^_^")

        End If

        If Not TargetProcess4.Length = 0 Then
            TargetProcess4(0).Kill()
            MsgBox("HxD Detected!", MsgBoxStyle.Critical, "^_^")

        End If

        If Not TargetProcess5.Length = 0 Then
            TargetProcess5(0).Kill()
            MsgBox("Ollydb Detected!", MsgBoxStyle.Critical, "^_^")
        End If
        If Not TargetProcess6.Length = 0 Then
            TargetProcess6(0).Kill()
            MsgBox("Windows Task Manager Detected!", MsgBoxStyle.Critical, "^_^")

        End If
        If Not TargetProcess7.Length = 0 Then
            TargetProcess7(0).Kill()
            MsgBox("Microsoft Spy ++ Detected!", MsgBoxStyle.Critical, "^_^")

        End If
        If Not TargetProcess8.Length = 0 Then
            TargetProcess8(0).Kill()
            MsgBox("TCPEye  Detected!", MsgBoxStyle.Critical, "^_^")

        End If
        If Not TargetProcess9.Length = 0 Then
            TargetProcess9(0).Kill()
            MsgBox("Process Explorer  Detected!", MsgBoxStyle.Critical, "^_^")

        End If
    End Sub

كود الاستدعاء في Form1_Load



كود :
Call Protect()


اما ان كنت تريد ان يعمل برنامجك في حاسوبك فقط وذالك عن طريق الهارد ديسك

اولا تحتاج الى textbox و button


2/ نكتب الكود التالي فيbutton :


كود :
TextBox1.Text = My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory


الان وصلنا للحماية نكتب الكود التالي :


كود :
If My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory = "Hard dick هنــا رقــم" Then
Form2.Show()
Else
Form3.Show()
End If

الله يعطيك العافيه | شكلك تعبت على الرد ههههههههههههه
الرد }}}}
تم الشكر بواسطة: hitman48
#4
لا ولا شيئ بس كلنا هون بنساعد بعضنا البعض
ان شاء الله تكون استفدت
الرد }}}}
تم الشكر بواسطة: سعود
#5
طيب لو شغل الـ reflector من دون تشغيل البرنامج المحمي؟!!!
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
(15-10-14, 12:06 AM)سعود كتب : طيب لو شغل الـ reflector  من دون تشغيل البرنامج المحمي؟!!!

ما فهمت وش تقصد
الرد }}}}
تم الشكر بواسطة:
#7
(15-10-14, 12:39 AM)hassan كتب :
(15-10-14, 12:06 AM)سعود كتب : طيب لو شغل الـ reflector  من دون تشغيل البرنامج المحمي؟!!!

ما فهمت وش تقصد

الحماية  في الموضوع قائمة على ان البرنامج الخاص بك لابد يكون قيد العمل لكي يحمي نفسه صحيح ام لا؟؟؟
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
(15-10-14, 12:49 AM)سعود كتب :
(15-10-14, 12:39 AM)hassan كتب :
(15-10-14, 12:06 AM)سعود كتب : طيب لو شغل الـ reflector  من دون تشغيل البرنامج المحمي؟!!!

ما فهمت وش تقصد

الحماية  في الموضوع قائمة على ان البرنامج الخاص بك لابد يكون قيد العمل لكي يحمي نفسه صحيح ام لا؟؟؟

صحيح
الرد }}}}
تم الشكر بواسطة:
#9
كما قال الاخ سعود بالضبط الفكرة تعتمد على دالة GetProcessesByName اي تحصل على اسم العملية ومن ثم تقوم بعمل انهاء لها فقط

ماذا لو تم تغيير اسم العملية في المعالج هناك سيتجاوز هذا الكود بكل سهولة ؟

اذكر كان موضوع بالمنتدى القديم وتم استظافة فريق الهندسة العربي وقامو بكسر جميع البرامج التي طرحة من قبل المنتدى !!

لم نجد حل إلى الان للمشكلة اقارن نفسي وبرامجي ببرامج شركة ادوبي ومايكروسفت التي تم كسرها واحبط نفسياً هههههههه
الرد }}}}
تم الشكر بواسطة: سعود , hitman48
#10
في كل يوم تقنية والتطور ملحوظ ههههههههههههههههه اكبر البرامج صار الان بامكان كسرها
اما بخصوص حماية البرامج فقط قم باتحايل في كتابة الخوارزميات الى غير ذالك خربط الكل هههههههههههههههههههههههه هيك مابيعرف راسو من رجليه وكل واحد يهتم بالبرمجة مايهمو كسر برنامج وعمل كوبي ولسق لا لالا وانما عند الكسر كل كود ووظيفته شيو يعمل...هيك حتى جاءة فكرة التطوير اما كوبي ولسق هههههههههههههههه
هذا لايفقه شيئ في البرمجة وماتخاف منه فقط يؤلمك تغيير الحقوق لا غير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 74 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 336 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 51 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 69 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 105 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 172 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 69 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 114 18-01-17, 05:25 PM
آخر رد: dubai.eig
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 235 15-01-17, 02:11 PM
آخر رد: abudawoodd
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 495 04-01-17, 01:12 AM
آخر رد: Namer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم