 |
Cheat Engine
The Official Site of Cheat Engine
|
| View previous topic :: View next topic |
| Author |
Message |
Rafaellz
How do I cheat?
![]() Reputation: 0
Joined: 04 Dec 2011
Posts: 2
|
 Posted: Sun Dec 04, 2011 8:01 am Post subject: Please, help with the Address [Delphi 7] |
 |
|
I use Delphi7 Btw.
I must put on the code this addres
"engine.dll+55DAD0"
its easy to put 0DFCDAD0 but when i restart the game, the first 4 numbers allways change, so i need to put on the unit this address "engine.dll+55DAD0"
Ill be glad if some one helps me 
|
|
| Back to top |
|
 |
Unbr0ken
Advanced Cheater
![]() Reputation: 2
Joined: 10 Aug 2011
Posts: 67
|
| Posted: Mon Dec 05, 2011 1:03 am Post subject: |
|
|
Can't you do a search before post a question?
As i say a long time ago:
| Unbr0ken wrote: | As Wiccan says:
| Wiccaan wrote: | For things like 'wolfteam.bin' you can get the base address of that module using the following API:
- CreateToolhelp32Snapshot
- Module32First
- Module32Last
Or using the PSAPI alternatives:
- EnumProcessModules / EnumProcessModulesEx |
Then a example with PSAPI:
| Code: | function GetModuleBaseAddress(ProcessID: Cardinal; MName: String): Pointer;
var
Modules : Array of HMODULE;
cbNeeded, i : Cardinal;
ModuleInfo : TModuleInfo;
ModuleName : Array[0..MAX_PATH] of Char;
PHandle : THandle;
begin
Result := nil;
SetLength(Modules, 1024);
PHandle := OpenProcess(PROCESS_QUERY_INFORMATION + PROCESS_VM_READ, False, ProcessID);
if (PHandle <> 0) then
begin
EnumProcessModules(PHandle, @Modules[0], 1024 * SizeOf(HMODULE), cbNeeded); //Getting the enumeration of modules
SetLength(Modules, cbNeeded div SizeOf(HMODULE)); //Setting the number of modules
for i := 0 to Length(Modules) - 1 do //Start the loop
begin
GetModuleBaseName(PHandle, Modules[i], ModuleName, SizeOf(ModuleName)); //Getting the name of module
if AnsiCompareText(MName, ModuleName) = 0 then //If the module name match with the name of module we are looking for...
begin
GetModuleInformation(PHandle, Modules[i], @ModuleInfo, SizeOf(ModuleInfo)); //Get the information of module
Result := ModuleInfo.lpBaseOfDll; //Return the information we want (The image base address)
CloseHandle(PHandle);
Exit;
end;
end;
end;
end; |
| Code: | | read(read(read(GetModuleBaseAddress(ProcessID, 'CryPhysics.dll') + $002BF344)^+$708)^+$68C); |
Do a search before ask dude. |
...
:-/
|
|
| Back to top |
|
|
Rafaellz
How do I cheat?
![]() Reputation: 0
Joined: 04 Dec 2011
Posts: 2
|
| Posted: Mon Dec 05, 2011 10:51 am Post subject: |
|
|
hmm
Look, i did an injector, and now im doing the DLL ( Trainer ).
here is the code
Project1
| Quote: |
library Project2;
uses
SysUtils,
windows,
Classes,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
Rafael : DWORD;
procedure Rafaell;
begin;
form1 := tForm1.Create(nil);
Form1.ShowModal;
end;
begin
CreateThread(nil,Rafael,@Rafaell,nil,Rafael,Rafael);
end.
|
Unit 1
| Quote: | var
Form1: TForm1;
Const
Sv_Cheats = $55DAD0; // full addres = engine.dll+55DAD0
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Checkbox1.Checked = true then begin;
PDword(Sv_cheats)^:=1; |
I understand what you mean, but i dont know how to apply that
Ty before all
____________
[/quote]
_________________________________________
oh i did it! ty
| Quote: | procedure TForm1.Timer3Timer(Sender: TObject);
begin
dwModuleHandle := GetModuleHandle('client.dll');
hProcess := OpenProcess(PROCESS_ALL_ACCESS,FALSE,dwModuleHandle);
// Wireframeee
if checkbox15.Checked:=true then begin
VirtualProtectEx(hProcess, ptr(dwModuleHandle + ($6F42F0)),sizeof($),PAGE_EXECUTE_READWRITE,@Rights);
u := VirtualProtectEx(hProcess, ptr(dwModuleHandle + ($6F42F0)),sizeof(Wireframe2),PAGE_EXECUTE_READWRITE,@Rights);
PBYTE(dwModuleHandle + ($6F42F0))^ := 2;
end;
end; |
|
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
