أحسن كود حماية للبرنامج

تفضلوا أول هداياي لمنتدانا الحبيب :P

تفضلوا أحسن كود حماية للبرنامج :lol:

يقوم هذا الكود بمعرفة إذا كان softice- و هو أخطر برامج الهكر- مشتغلا فإذا كان كذلك فإنه يعرض رسالة خطأ وينقطع عن العمل (h)

تفضلوا الكود

Public Declare Function CreateFileNS Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function WriteFileNO Lib "kernel32" Alias "WriteFile" (ByVal hfile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80

Public Function SoftICELoaded() As Boolean
Dim hfile As Long, retval As Long
	hfile = CreateFileNS("\\.\SICE", GENERIC_WRITE Or GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
	If hfile <> -1 Then
		' SoftICE is detected.
		retval = CloseHandle(hfile) ' Close the file handle
		SoftICELoaded = True
	Else
	' SoftICE is not found.
	SoftICELoaded = False
	End If
End Function

Sub Main()
	If SoftICELoaded Then ' check if softice is loaded
		MsgBox "SoftICE is detected! Closing now!", vbMsgBoxSetForeground + vbInformation, "SoftICE-"
		End ' if true finish the app
	End If
	MsgBox "SoftICE was not found in memory!", vbMsgBoxSetForeground + vbInformation, "SoftICE"
End Sub