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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 282 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 430 09-01-24, 08:40 PM
آخر رد: new_programer
  برنامج لحفظ اكوادي samsunggears 2 385 05-01-24, 12:57 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 358 08-11-23, 08:16 AM
آخر رد: justforit

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


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