+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح (/showthread.php?tid=7625)
الصفحات:
1
2
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - ميمو55 - 12-02-13
عملت برنامج بالفيجول بيسك دوت نت واريد حماية اكوادي من الكومبيلر وقراءة الاكواد من برنامج اخر مثل obfuscator
لاني جربتة علي الفورم فقط وطلع الاكواد كلها بالفعل
اريد برنامج حماية جيد ومتكامل مع الشرح
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - ali.alfoly - 14-02-13
ub
وانا ايضا اريد ذلك
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - m.sami.ak - 14-02-13
اخي استخدم ملفات Dll فهي بنظري افضر طريقة لحماية الاكواد
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - ali.alfoly - 15-02-13
اخى محمد معلش انا مبتدئ جدا جدا
ياريت لو فى شرح فى المنتدى لذلك الامر تدلنى عليه
او لو تقدر تعملنا شرح لذلك اوكن شاكر لك
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - ميمو55 - 15-02-13
ممكن نشوف رابط لموضوع dll من كلامك واضح انة موجود بالمنتدي كنت اتمني توضح القسم او الرابط لو موجود او توضح بمثال او برابط او باكواد
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - Ahmed_online - 15-02-13
يمكنك استخدام برنامج
Crypto Obfuscator For .Net
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - shado1796 - 15-02-13
قم بتشفير برنامجك بأحد برامج التشفير (مثل .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بـــالتــــوفــيــق ..
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - ali.alfoly - 16-02-13
اخى Ahmed_Online
Crypto Obfuscator For .Net
هل هذا البرنامج افضل شى
بصراحه انا ابحث عن برنامج به مواصفات معينه
1- مجانى
2- لايؤثر على اداء وسرعة البرنامج ولو 1%
3- قوى فى الحماية
اخى shado1796
(.Net Reactor)
هل هذا البرنامج يحقق الشروط السابقه
الكود السابق بصراحه ما فهمتو جيدا لانى مبتداء لاكنى ساحفظه ربما استفيد منه فيكا بعد
وجزاكم الله خير على مساعدكنم لنا
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - shado1796 - 16-02-13
ali.alfoly كتب :اخى Ahmed_Online
Crypto Obfuscator For .Net
هل هذا البرنامج افضل شى
بصراحه انا ابحث عن برنامج به مواصفات معينه
1- مجانى
2- لايؤثر على اداء وسرعة البرنامج ولو 1%
3- قوى فى الحماية
اخى shado1796
(.Net Reactor)
هل هذا البرنامج يحقق الشروط السابقه
الكود السابق بصراحه ما فهمتو جيدا لانى مبتداء لاكنى ساحفظه ربما استفيد منه فيكا بعد
وجزاكم الله خير على مساعدكنم لنا
شوف أخي مافي شئ كامل انه يحمي .. حتى شركة مايكروسوفت اتكركت .. فنحن ما علينا الا نسوي اقوى الامكانيات لتصعيب الأمر .. فالهاكرز والكراكرز يتطوروا مثل ما نطور البرامج
اريد حماية اكوادي من القرصنة ومن وافضل برنامج تشفير مع الشرح - ali.alfoly - 16-02-13
shado1796 كتب :شوف أخي مافي شئ كامل انه يحمي .. حتى شركة مايكروسوفت اتكركت .. فنحن ما علينا الا نسوي اقوى الامكانيات لتصعيب الأمر .. فالهاكرز والكراكرز يتطوروا مثل ما نطور البرامج
وهذا ما اريده بالفعل الوصول الى اصعب تشفير
منذ سنوات وانت تعملون فى البرمجه واكيد فيه برامج مميزه تعتمدون عليها فى التشفير انا فقط اريد ان اعرف افضل برنامج تتوفر فيه المواصفات التاليه
1- مجانى
2- لايؤثر على اداء وسرعة البرنامج ولو 1%
3- قوى فى الحماية
واظنها بل بالتأكيد موجوده ولاكنى فقط لا اعرفها اريد من اهل الخبره ان يفيدونى