تقييم الموضوع :
  • 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] اريد كود للكشف عن تغير عنوان الشبكة e-coder 0 18 أمس, 03:21 AM
آخر رد: e-coder
  [سؤال] عمل برنامج بالفجوال بيسك و تشغيلة على الجوال مهندس_خالد 2 77 20-09-17, 09:29 PM
آخر رد: محمود بكرى
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 88 20-09-17, 01:11 AM
آخر رد: سعود الشامان
  [سؤال] كيف اجعل برنامج التحميل يحتفظ بقيمة التحميل لو النور انقطع ابو روضة 2 95 16-09-17, 05:44 AM
آخر رد: ابو روضة
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 87 11-09-17, 06:57 PM
آخر رد: The Light Fire
  برنامج وارد ومصروفات abdohassan 0 66 09-09-17, 08:48 PM
آخر رد: abdohassan
  [مشروع] برنامج قران كريم عبدالرحمن المكاوي 7 154 09-09-17, 02:51 PM
آخر رد: عبدالرحمن المكاوي
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 46 08-09-17, 04:02 PM
آخر رد: Amjad
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 124 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
  [VB.NET] مشكلة بتشغيل برنامج سكول سيرفر 2012 امل عوض 2 115 29-08-17, 02:45 PM
آخر رد: زيد زينوبي

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


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