Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


AA to Delphi

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General Gamehacking
View previous topic :: View next topic  
Author Message
Kalookakoo
Expert Cheater
Reputation: 0

Joined: 03 Mar 2008
Posts: 117
PostPosted: Sun Apr 06, 2008 2:16 pm    Post subject: AA to Delphi Reply with quote
Would this be correct way of translating?

Code:
[enable]
//address : 0066618F

006F156D: //FF 50 04 FF B0 30 02 00
mov edx,[esi]
mov eax,00000064
jmp 006F1585 // //50 53 6A FF FF 75 E4 33 C0 50 50 50 50 8B CE FF





TO

Code:
procedure (Name)
var
Address : Dword=$006F156D;
begin
asm
move edx,[esi]
move eax,00000064
WriteProcessMemory(Address, '50 53 6A FF FF 75 E4 33 C0 50 50 50 50 8B CE FF')
end;






Is that correct? And how do I aim what's going on at a specific running program?
Back to top
View user's profile Send private message
Anden100
Grandmaster Cheater
Reputation: 0

Joined: 20 Apr 2007
Posts: 668
PostPosted: Sun Apr 06, 2008 2:21 pm    Post subject: Reply with quote
At thoklibrary.org, there is a tutorial on how to make a simple standalone trainer, that will tell you how to "aim" that into a process
Back to top
View user's profile Send private message
Labyrnth
Moderator
Reputation: 10

Joined: 28 Nov 2006
Posts: 6301
PostPosted: Sun Apr 06, 2008 2:32 pm    Post subject: Reply with quote
Found this, maybe you can know what it does.


Code:
WindowTitle = 'GAME'; 
WindowName := FindWindow(nil,WindowTitle);
If WindowName = 0 then
begin
MessageDlg('Your game is not running!', mterror,[mbOK],0);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr($90);
WriteProcessMemory(HandleWindow,ptr($400000),buf,1,write);
FreeMem(buf);
CloseHandle(HandleWindow);
Back to top
View user's profile Send private message
Kalookakoo
Expert Cheater
Reputation: 0

Joined: 03 Mar 2008
Posts: 117
PostPosted: Sun Apr 06, 2008 3:14 pm    Post subject: Reply with quote
Labyrnth wrote:
Found this, maybe you can know what it does.


Code:
WindowTitle = 'GAME'; 
WindowName := FindWindow(nil,WindowTitle);
If WindowName = 0 then
begin
MessageDlg('Your game is not running!', mterror,[mbOK],0);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr($90);
WriteProcessMemory(HandleWindow,ptr($400000),buf,1,write);
FreeMem(buf);
CloseHandle(HandleWindow);



I guess my reading paid off, because I understood that. Thank you.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General Gamehacking All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
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


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites