[REHBER]Metin2 Anti Hile yapımı

---

Kaynak koda şöyle bir baktımda C ile güzel hazırlanmış.Teşekkürler

Ellerine sağlık Koray işe yarayan bir koruma.En azından çöp korumalara 300 lira vermeye gerek kalmıyor.

Yorumlar için teşekkürler

Anti hileye hile yada program engeli ekleme anlatımıda video olarak konuya ekledim diğer özelliklerinide yavaş yavaş videolu olarak ekleyecem

Ben metin2yi bıraktım keşke önceden görseydim


Tost Makinası cihazımdan Tapatalk kullanılarak gönderildi.

Metin2yle pek alakam kalmadı ama açık kaynak kodlu bir şey varsa bakarım

Paylaşım için teşekkürler. Hoşuma giden bazı kodları delphiye çevirdim. Belki birilerinin işine yarar;

Uses
 AclApi,accctrl,Tlhelp32;

procedure SetPermissions;
var
 pDACL: PACL;
 denyAccess: PEXPLICIT_ACCESS_A;
// R: DWORD;
 ProcessHandle: HWND;
 FProcessEntry32: TProcessEntry32;
 dwAccessPermissions :DWORD ;//GENERIC_WRITE | PROCESS_ALL_ACCESS | WRITE_DAC | DELETE | WRITE_OWNER | READ_CONTROL;
begin
 try
  ProcessHandle:=OpenProcess(PROCESS_SET_INFORMATION , false, FProcessEntry32.th32ProcessID);
  denyAccess := AllocMem(SizeOf(EXPLICIT_ACCESS));
  dwAccessPermissions := GENERIC_WRITE and PROCESS_ALL_ACCESS and WRITE_DAC and WRITE_OWNER and READ_CONTROL;
  BuildExplicitAccessWithName(denyAccess,'CURRENT_USER',dwAccessPermissions,DENY_ACCESS, NO_INHERITANCE);
  SetEntriesInAcl(1, denyAccess, nil,pDACL);
  SetSecurityInfo(ProcessHandle, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, pDACL, nil);
  {
   R := SetEntriesInAcl(1, denyAccess, nil,pDACL);
   if R = ERROR_SUCCESS then
   begin
    if SetSecurityInfo(ProcessHandle, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, pDACL, nil) <> ERROR_SUCCESS then ShowMessage('SetNamedSecurityInfo failed: ' + SysErrorMessage(GetLastError));
    LocalFree(Cardinal(pDACL));
   end
   else
    ShowMessage('SetEntriesInAcl failed: ' + SysErrorMessage(R));    }
 finally
  LocalFree(Cardinal(pDACL));
	SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);
  CloseHandle(ProcessHandle);
 end;
end;

Procedure ErasePEHeaderFromMemory;
Var
 OldProtect : dword ;
Begin
 OldProtect := 0;
 VirtualProtect(Pointer(400000),4096 ,PAGE_NOACCESS, @OldProtect);
End;