shado1796 كتب :قم بتشفير برنامجك بأحد برامج التشفير (مثل .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
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%