| View previous topic :: View next topic |
| Author |
Message |
ExtraChewy
How do I cheat?
![]() Reputation: 0
Joined: 06 Dec 2009
Posts: 1
|
 Posted: Sun Dec 06, 2009 12:26 pm Post subject: Cheat Engine Generated Trainer |
 |
|
| I was wondering if it was possible to find the source code (in vB?) for one of these? I wanted to take a look inside a trainer I made myself to see how I can do it myself.
|
|
| Back to top |
|
 |
Csimbi
I post too much
 Reputation: 97
Joined: 14 Jul 2007
Posts: 3321
|
| Posted: Sun Dec 06, 2009 7:02 pm Post subject: |
|
|
| I think it's Pascal (not VB).
|
|
| Back to top |
|
|
Kpoch
Grandmaster Cheater
 Reputation: 0
Joined: 17 Apr 2005
Posts: 668
Location: Mexico Muy orgulloso
|
| Posted: Wed Apr 07, 2010 10:26 am Post subject: |
|
|
CE trainer source code its on the main CE source code BUT for the non experienced coders its impossible to isolate the trainer code from the main code (due to the imports and blah blah blah) u get a BIG exe file if u dont know how to split the code
_________________
|
|
| Back to top |
|
|
Slugsnack
Grandmaster Cheater Supreme
![]() Reputation: 71
Joined: 24 Jan 2007
Posts: 1857
|
| Posted: Wed Apr 07, 2010 10:28 am Post subject: |
|
|
lol nice bump..
Easiest way would be to produce it from scratch if you're using VB. Hook or bp on WriteProcessMemory() and get all the buffers + addresses
|
|
| Back to top |
|
|
Dark Byte
Site Admin
 Reputation: 470
Joined: 09 May 2003
Posts: 25788
Location: The netherlands
|
| Posted: Wed Apr 07, 2010 1:28 pm Post subject: |
|
|
the trainer source is in the "standalone\" folder
the trainer generator(the thing that appends the configuration data to the trainer) is in formMemoryModifier.pas
_________________
Do not ask me about online cheats. I don't know any and wont help finding them.
Like my help? Join me on Patreon so i can keep helping |
|
| Back to top |
|
|
Amok
Newbie cheater
![]() Reputation: 0
Joined: 14 Jul 2008
Posts: 15
|
| Posted: Thu Apr 15, 2010 2:24 pm Post subject: |
|
|
Yes i have a very old source programed in Delphi 
You can use on Delphi with Visual window or on Pascal command
Is my first trainer in Delphi for GTA for have unlimited Pizza lmao ^^
| Code: | //----------------| DELPHI |-------------------
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, XPMan, ShellApi, StdCtrls;
type
TFmain = class(TForm)
fond: TImage;
Fermer: TImage;
XPManifest: TXPManifest;
email: TImage;
Site: TImage;
Infos: TEdit;
Timer: TTimer;
Timer1: TTimer;
procedure FermerClick(Sender: TObject);
procedure fondMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TimerTimer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Fmain: TFmain;
Scroll:Integer;
Fentr : integer;
PrcID : integer;
ProID : integer;
Opnpr : integer;
Wrtpr : cardinal;
Buf : pchar;
NumberOfBytes : byte;
PokeValue : dword;
PokeAddress : dword;
implementation
{$R *.dfm}
procedure TFmain.FermerClick(Sender: TObject);
begin
FMain.Close;
end;
procedure TFmain.fondMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
FMain.Perform(WM_SYSCOMMAND, $F012, 0);
end;
procedure TFmain.TimerTimer(Sender: TObject);
var
I :Integer;
S,ScrollText:String;
Begin
ScrollText:=' NOTE : Pressez F9 pendant le jeux pour Activer le Code. -=[ PizzaLand v1.0 ]=- By Am0...';
Inc(Scroll);
If Scroll>Length(ScrollText) then
Scroll :=0;
For I:=1 to Length(ScrollText) do
S:=S+ScrollText[I+Scroll];
Infos.Text := S;
end;
procedure TFmain.Timer1Timer(Sender: TObject);
begin
// Si l'utilisateur presse F9...
if (GetAsyncKeyState(VK_F9) <> 0) then
begin
PokeAddress := $44BA14; // Adresse
PokeValue := 9090; // Valeur à 'injecter'
NumberOfBytes := 2; // Nombre de byte à écrire
Fentr := FindWindow(nil,'GTA: Vice City'); // On cherche la fenêtre du jeu...
PrcID := GetWindowThreadProcessId(Fentr,@ProID); // On cherche l'ID une fois que la fenêtre a été trouvée
Opnpr := OpenProcess(PROCESS_ALL_ACCESS,False,ProID); // On ouvre le processus
GetMem(Buf,1); // Pointeur...
Buf^ := Chr(PokeValue); // La valeur à écrire
WriteProcessMemory(Opnpr, ptr(PokeAddress),Buf,NumberOfBytes,Wrtpr); // On écrit la valeur @PokeAddress
FreeMem(Buf); // On libère les ressources
closehandle(Opnpr);
end;
end;
end.
//----------------| DELPHI |------------------- |
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
