تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح
#1
عملت برنامج بالفيجول بيسك دوت نت واريد حماية اكوادي من الكومبيلر وقراءة الاكواد من برنامج اخر مثل obfuscator
لاني جربتة علي الفورم فقط وطلع الاكواد كلها بالفعل
اريد برنامج حماية جيد ومتكامل مع الشرح
الرد }}}}
تم الشكر بواسطة:
#2
ub
وانا ايضا اريد ذلك
الرد }}}}
تم الشكر بواسطة:
#3
اخي استخدم ملفات Dll فهي بنظري افضر طريقة لحماية الاكواد
الرد }}}}
تم الشكر بواسطة:
#4
اخى محمد معلش انا مبتدئ جدا جدا
ياريت لو فى شرح فى المنتدى لذلك الامر تدلنى عليه
او لو تقدر تعملنا شرح لذلك اوكن شاكر لك
الرد }}}}
تم الشكر بواسطة:
#5
ممكن نشوف رابط لموضوع dll من كلامك واضح انة موجود بالمنتدي كنت اتمني توضح القسم او الرابط لو موجود او توضح بمثال او برابط او باكواد
الرد }}}}
تم الشكر بواسطة:
#6
يمكنك استخدام برنامج

Crypto Obfuscator For .Net
قم بعلم ولا تطلب به بدلا             فالناس موتى وأهل العلم احياء

الامام على رضوان الله عليه
الرد }}}}
تم الشكر بواسطة:
#7
قم بتشفير برنامجك بأحد برامج التشفير (مثل .Net Reactor) .. سمعت عن البرنامج انه قوي


أو جرب هذه الطريقة : بفكرة : بأنك تقوم ربط البرنامج بسيريال المعالج بحيث ان كل معالج في العالم له سيريال خاص

..............................

ضع موديل

كود :
Dim idp As String ' رقم المعالج  
    Dim idp1 As String ' رقم التسجيل  
    Dim idp2 As String ' رقم التفعيل

    Function Str2Int(ByVal InStrng As Object) As String
        Dim StrLn As Integer
        Dim Cntr As Integer
        Dim NewStr As String
        Str2Int = ""
        StrLn = Len(InStrng)
        If StrLn = 0 Then Exit Function
        NewStr = ""
        For Cntr = 1 To StrLn
            Select Case Mid(InStrng, Cntr, 1)
                Case "0" To "z"
                    NewStr = NewStr & Asc(Mid(InStrng, Cntr, 1))
            End Select
        Next Cntr
        Str2Int = NewStr
    End Function
    Public Function Obfuscate(ByVal origText As String) As String
        Dim textBytes As Byte() = System.Text.Encoding.Unicode.GetBytes(origText)
        For counter As Integer = 0 To textBytes.Length - 1
            If (textBytes(counter) > 50) And (textBytes(counter) < 300) Then
                textBytes(counter) += CByte(counter Mod 31 + 1)
                If (textBytes(counter) > 250) Then textBytes(counter) -= CByte(100)
            End If
        Next counter
        Return System.Text.Encoding.Unicode.GetChars(textBytes)
    End Function

في الحدث الفورم ضع هذا الكود
كود :
Imports System.Data
Imports System.Data.OleDb
Imports System.Globalization
Imports System.Threading
Imports System.Resources
Imports System.Reflection
Public Class ser
    Dim idp As String ' رقم المعالج  
    Dim idp1 As String ' رقم التسجيل  
    Dim idp2 As String ' رقم التفعيل
    Private Sub ser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBoxX3.Text = Focus()
        Dim Searcher As ManagementObjectSearcher
        Searcher = New ManagementObjectSearcher("Select ProcessorId From Win32_Processor")
        For Each Device As ManagementObject In Searcher.Get
            For Each Prop As PropertyData In Device.Properties
                idp = (Prop.Value.ToString)
            Next
        Next
        '%%%%%%%%%%%%%%%%%%%%%%%%%%%%

        idp = Obfuscate(idp)
              
        idp = Str2Int(idp)
          
        TextBoxX3.Text = idp
        '%%%%%%%%%%%%%%%%%%%%%%%%%%%%      
            
        idp1 = Obfuscate(idp)
          
          
        idp1 = Str2Int(idp1)
              
        idp1 = (idp1.Substring(17, 30))
        '%%%%%%%%%%%%%%%%%%%%%%%%%%%%    


    End Sub




كود :
Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX3.Click
        idp2 = idp1
        If TextBoxX1.Text = "" Then
      
MsgBox("hi")  
ElseIf TextBoxX4.Text = idp2 Then
            LabelX4.ForeColor = Color.Green
      
      LabelX4.Text = "L’activation du produit et correctement .   MERCI"

My.Settings.dkm = TextBoxX4.Text
            My.Settings.n = TextBoxX1.Text
            My.Settings.Save()
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\nn", "num", TextBoxX4.Text)
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\RRRR1458", "n", TextBoxX1.Text)
Else

            LabelX4.ForeColor = Color.Red
            LabelX4.Text = "Echec de l’activation du produit ."

        End If
   end sub

بـــالتــــوفــيــق ..
الرد }}}}
تم الشكر بواسطة:
#8
اخى Ahmed_Online

Crypto Obfuscator For .Net

هل هذا البرنامج افضل شى

بصراحه انا ابحث عن برنامج به مواصفات معينه
1- مجانى
2- لايؤثر على اداء وسرعة البرنامج ولو 1%
3- قوى فى الحماية

اخى shado1796

(.Net Reactor)

هل هذا البرنامج يحقق الشروط السابقه

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

وجزاكم الله خير على مساعدكنم لنا
الرد }}}}
تم الشكر بواسطة:
#9
ali.alfoly كتب :اخى Ahmed_Online

Crypto Obfuscator For .Net

هل هذا البرنامج افضل شى

بصراحه انا ابحث عن برنامج به مواصفات معينه
1- مجانى
2- لايؤثر على اداء وسرعة البرنامج ولو 1%
3- قوى فى الحماية

اخى shado1796

(.Net Reactor)

هل هذا البرنامج يحقق الشروط السابقه

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

وجزاكم الله خير على مساعدكنم لنا


شوف أخي مافي شئ كامل انه يحمي .. حتى شركة مايكروسوفت اتكركت .. فنحن ما علينا الا نسوي اقوى الامكانيات لتصعيب الأمر .. فالهاكرز والكراكرز يتطوروا مثل ما نطور البرامج
الرد }}}}
تم الشكر بواسطة:
#10
shado1796 كتب :شوف أخي مافي شئ كامل انه يحمي .. حتى شركة مايكروسوفت اتكركت .. فنحن ما علينا الا نسوي اقوى الامكانيات لتصعيب الأمر .. فالهاكرز والكراكرز يتطوروا مثل ما نطور البرامج

وهذا ما اريده بالفعل الوصول الى اصعب تشفير

منذ سنوات وانت تعملون فى البرمجه واكيد فيه برامج مميزه تعتمدون عليها فى التشفير انا فقط اريد ان اعرف افضل برنامج تتوفر فيه المواصفات التاليه

1- مجانى
2- لايؤثر على اداء وسرعة البرنامج ولو 1%
3- قوى فى الحماية

واظنها بل بالتأكيد موجوده ولاكنى فقط لا اعرفها اريد من اهل الخبره ان يفيدونى
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 12 منذ 2 ساعة مضت
آخر رد: طارق سليمان
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 113 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  كيف تتحقق من وجود برنامج مثبت وان لم يكن مثبت تثبته محمد بن عطية 1 58 20-05-17, 09:26 PM
آخر رد: محمود بكرى
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 47 19-05-17, 04:09 PM
آخر رد: e-coder
  تشغيل برنامج دون الحاجه للاقلاع ببرامج اخري medoddd 0 35 19-05-17, 12:46 PM
آخر رد: medoddd
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 76 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  مساعدة بخصوص تشفير ملف exe OakenShield 1 56 18-05-17, 11:27 AM
آخر رد: OakenShield
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 92 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 105 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  طلب برنامج .NET Reactor مع التفعيل OakenShield 0 32 13-05-17, 01:28 PM
آخر رد: OakenShield

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


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