كيف احمي الكود سورس - hassan - 11-10-14
السلام عليكم
شباب انا عندي برنامج ابغى احمي الاكواد حقته يعني لو يصير الي صير ما تبين عند اي احد الاكواد وشكرا
RE: كيف احمي الكود سورس - hitman48 - 12-10-14
تفضل اخي الكريم ان كنت تريد حماية برنامجك من الكسر:
تقوم بانشاء مجروع جديد في [ 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
اما ان كنت تريد ان يعمل برنامجك في حاسوبك فقط وذالك عن طريق الهارد ديسك
اولا تحتاج الى 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
RE: كيف احمي الكود سورس - hassan - 12-10-14
(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
اما ان كنت تريد ان يعمل برنامجك في حاسوبك فقط وذالك عن طريق الهارد ديسك
اولا تحتاج الى 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
الله يعطيك العافيه | شكلك تعبت على الرد ههههههههههههه
RE: كيف احمي الكود سورس - hitman48 - 12-10-14
لا ولا شيئ بس كلنا هون بنساعد بعضنا البعض
ان شاء الله تكون استفدت
RE: كيف احمي الكود سورس - سعود - 15-10-14
طيب لو شغل الـ reflector من دون تشغيل البرنامج المحمي؟!!!
RE: كيف احمي الكود سورس - hassan - 15-10-14
(15-10-14, 12:06 AM)سعود كتب : طيب لو شغل الـ reflector من دون تشغيل البرنامج المحمي؟!!!
ما فهمت وش تقصد
RE: كيف احمي الكود سورس - سعود - 15-10-14
(15-10-14, 12:39 AM)hassan كتب : (15-10-14, 12:06 AM)سعود كتب : طيب لو شغل الـ reflector من دون تشغيل البرنامج المحمي؟!!!
ما فهمت وش تقصد
الحماية في الموضوع قائمة على ان البرنامج الخاص بك لابد يكون قيد العمل لكي يحمي نفسه صحيح ام لا؟؟؟
RE: كيف احمي الكود سورس - hassan - 15-10-14
(15-10-14, 12:49 AM)سعود كتب : (15-10-14, 12:39 AM)hassan كتب : (15-10-14, 12:06 AM)سعود كتب : طيب لو شغل الـ reflector من دون تشغيل البرنامج المحمي؟!!!
ما فهمت وش تقصد
الحماية في الموضوع قائمة على ان البرنامج الخاص بك لابد يكون قيد العمل لكي يحمي نفسه صحيح ام لا؟؟؟
صحيح
RE: كيف احمي الكود سورس - الكاتب - 15-10-14
كما قال الاخ سعود بالضبط الفكرة تعتمد على دالة GetProcessesByName اي تحصل على اسم العملية ومن ثم تقوم بعمل انهاء لها فقط
ماذا لو تم تغيير اسم العملية في المعالج هناك سيتجاوز هذا الكود بكل سهولة ؟
اذكر كان موضوع بالمنتدى القديم وتم استظافة فريق الهندسة العربي وقامو بكسر جميع البرامج التي طرحة من قبل المنتدى !!
لم نجد حل إلى الان للمشكلة اقارن نفسي وبرامجي ببرامج شركة ادوبي ومايكروسفت التي تم كسرها واحبط نفسياً هههههههه
RE: كيف احمي الكود سورس - hitman48 - 15-10-14
في كل يوم تقنية والتطور ملحوظ ههههههههههههههههه اكبر البرامج صار الان بامكان كسرها
اما بخصوص حماية البرامج فقط قم باتحايل في كتابة الخوارزميات الى غير ذالك خربط الكل هههههههههههههههههههههههه هيك مابيعرف راسو من رجليه وكل واحد يهتم بالبرمجة مايهمو كسر برنامج وعمل كوبي ولسق لا لالا وانما عند الكسر كل كود ووظيفته شيو يعمل...هيك حتى جاءة فكرة التطوير اما كوبي ولسق هههههههههههههههه
هذا لايفقه شيئ في البرمجة وماتخاف منه فقط يؤلمك تغيير الحقوق لا غير
|