تقييم الموضوع :
  • 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- قوى فى الحماية

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود يضغط على F1 بسرعه اقل من ثانيه mohamedabd 3 54 منذ 1 ساعه مضت
آخر رد: ابراهيم النعيمي
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 44 1,366 منذ 9 ساعة مضت
آخر رد: tryold
  [سؤال] تشفير ملف XML sika1976 0 30 07-12-16, 03:37 PM
آخر رد: sika1976
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 58 07-12-16, 12:20 AM
آخر رد: amgad525
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 58 05-12-16, 02:18 PM
آخر رد: a_abdullah
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 103 04-12-16, 12:37 AM
آخر رد: ali.alfoly
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 48 03-12-16, 06:59 PM
آخر رد: sal.softip
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 85 24-11-16, 11:40 PM
آخر رد: mohammedbassim
  [VB.NET] حماية برنامج من سرقة السورس كود thevirus 1 68 20-11-16, 07:41 PM
آخر رد: محمود بكرى

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


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