Hogyan létre csal
Létrehozásához csal meg kell 3 dolog:
1. Delphi bármilyen legújabb verzióját.
2. GameHack (vagy valami ilyesmi). De jobb GameTrainer (mert Freestuff).
3. Közvetlen kezét!
Már a kezdet kezdetén meg kell találni valamit, ami a din.
1. Az ablak neve. Nos, a cím az ablak, minden béna talál, akkor ahhoz, hogy nem kell semmit.
3. Az adatok típusát. Az adatok típusa fontos szerepet játszik! Alapján, akkor nem csal, és meghatározza a maximális érték a következő példák:
byte: 256; 1 bájt;
szót: 65536; 2 bájt;
dword: 4294967296; 4 byte;
Mi lesz itt, hogy használja ezeket a funkciókat API (olvasható róluk az igazolást):
FindWindow
GetWindowThreadProcessId
OpenProcess
ReadProcessMemory
WriteProcessMemory
CloseHandle
Jelentették be először, itt ez a szar:
var
Szél. THandle; // kilincs
ProcessID. integer; // PID (nem n * p * q)
pokevalue. egyetlen;
// maga az érték (a adattípusok emlékszel?)
ProcHandle. integer; // kezelni, hogy a folyamat
NumberOfBytes: byte; // bájtok száma
rw. bíboros; // olvasási / írási
Most adjuk hozzá a forma és az Edit gombra, az érintését, button'a írni a következő:
kezdődik
Szél: = FindWindow (nil, WindowTitle); // kap a fogantyút az ablak
ha Szél = 0, akkor // ha a lárma nem fut, akkor szakít láma
kezdődik
MessageBox (0, 'Start COP, kecske', 'Hiba a DNS-ben!', MB_OK + MB_ICONERROR);
exit;
végén;
megpróbál
pokevalue: = StrToInt (Edit1.Text); // kap az x, Engedély szerkesztése
kivéve
MessageBox (0, 'adja meg az x, kecske', 'Egy hiba a DNS!', MB_OK + MB_ICONERROR);
exit;
végén;
GetWindowThreadProcessId (Szél, @ProcessId); // kap a PID
ProcHandle: = OpenProcess (PROCESS_ALL_ACCESS, hamis, processID);
// kap a kilincset a folyamat
NumberOfBytes: = 4; // ebben az esetben 4 bájt,
// ami azt jelenti, hogy a maximális érték
// == 2564 (
WriteProcessMemory (ProcHandle, PTR (Addr_Health1), @ p okevalue, NumberOfBytes, rw);
WriteProcessMemory (ProcHandle, PTR (Addr_Health2), @ p okevalue, NumberOfBytes, rw);
WriteProcessMemory (ProcHandle, PTR (Addr_Health3), @ p okevalue, NumberOfBytes, rw);
// Hakan játék
Closehandle (ProcHandle);
// egészítik ki
végén;
Felvehet egy csaló egy chip: A ReadProcessMemory funkció lehet
helyezze az x annak prog, és ott is változik a másikba
És meg lehet csinálni, mint ez:
ReadProcessMemory (ProcHandle, PTR (Addr_Health1), @ po kevalue, 4, rw);
Edit1.Text: = FloatToStr (pokevalue);
Software_Address_Health1 = $ 00137A54;
Software_Address_Health2 = $ 00138938;
Software_Address_Health3 = $ 01CBA38C;
OpenGl_Address_Health1 = $ 00137BA8;
OpenGl_Address_Health2 = $ 00138A88;
OpenGl_Address_Health3 = $ 01CA64DC;
D3D_Address_Health1 = $ 00137BA8;
D3D_Address_Health2 = $ 00138A88;
D3D_Address_Health3 = $ 01CA64DC;
Itt, mint minden, hogy hol és mit.
Ne feledje, hogy ez a CSA, így ugyanazt a kódot nem húzza néhány Gama! Tényleg szortírozni magukat. Szürkére valahol egy-két órát, és meg fogja érteni, hogy mi az, ami.