[Delphi] WriteProcessMemory?

[bounty-hunter]

here is my attempt at writeprocessmemory after following an example from Torry Delphi pages

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,GunZLib;

  const
  Address = $777042EB;
  Value = $90; //NOP

type
  TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Strings : TbountyGunZ;
  Form4: TForm4;
  ProcessID : Integer;
  ThreadID : Integer;
  WindowName : Integer;
  HandleWindow : Integer;
  Data : Pchar;
  Written : Cardinal;
implementation

{$R *.dfm}

procedure ByPassSerial();
begin

WindowName := FindWindow(nil,'EpicGunZ Launcher'); // Find our GunZClient
ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
GetMem(Data,1);
Data^ := chr(Value);
  WriteProcessMemory(HandleWindow, ptr(Address),Data,2, Written); // Nop the serial Key
 freemem(Data);
CloseHandle(HandleWindow);
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
try
begin
ByPassSerial;
end;
except
begin
showmessage('epic phail');
end;

end;
end;

end.

What im trying to do is trying to NOP at the given address, but it doesnt work :S

 

[Negata]

You'll get better responses if you specify how and why it doesn't work.

 

[bounty-hunter]

I run the code while the Target Application is running 'EpicGunZ Launcher',
basically i wana NOP the program on the entrypoint so i can get a error and so the program closes. But it seems to not work

 

[Charlie19]

Nice work! Is perfect

 

[jMerliN]

Put debug messages in there. I suspect your process handle is invalid.

 

[Negata]

Put debug messages in there. I suspect your process handle is invalid.

You're not very good at checking dates for bumped threads are you?

 

[jMerliN]

You're not very good at checking dates for bumped threads are you?

Nope, don't ever look at dates. We don't have a mod here to get rid of epicly old bumps, so I just assume everything is new.

 

[FrostElite]

Lol i'm not gonna lie, I thought this was a new thread too

 

[iceman4154]

I deff thought this was a new thread, it is from the first january 2010 lol.

 

[vcorp]

you first ask permission to the portion of memory
first use VirtualProtectEX
and after use WriteProcessMemory