ZChatoutput !

I attempted to do ZChatOutPut in Delphi and here is my code :

Code:

---

library ZChat;

uses
  SysUtils,
  Classes,
  Windows,
  Dialogs;

//include the windows file

  const
  ADDRESS = $0042A230; // address for the ZChatOutPut

  type
  TZChatoutput = procedure (char : Pchar; int1 : integer; int2 :integer; Colour:Dword); cdecl;

  var
  GunZChat:TZChatoutput = TZChatOutput(ADDRESS);


//EntryPoint for DLL
Procedure Entrypoint( Reason :DWORD);
begin
  if Reason = DLL_PROCESS_ATTACH then begin
  if GetAsyncKeyState(VK_MENU) <> 0  then // Check if ALT was pressed
  begin
    GunZChat('hello world from dll',2,0,$FFFFFF);
  end;
  end;
  if Reason = DLL_PROCESS_DETACH then begin
    showmessage('closed gunz');
  end;
end;

begin
DLLProc := @EntryPoint;
  EntryPoint(DLL_PROCESS_ATTACH);
end.

---

When i inject into exe, it crashes ...
What am i doing wrong?

Try to change the line

Code:

---

GunZChat:TZChatoutput = TZChatOutput(ADDRESS);

---

To

Code:

---

GunZChat:TZChatoutput := Pointer(ADDRESS);

---

I dont know if this will work, i haven't touched delphi in years

Changed the code, now crashes after Character Selection menu

Delphi 2009? If so PChar --> PAnsiChar.

Also, calling ZChatOutput directly never worked well in Delphi, try this:

Code:

---

procedure Echo(Output: String);
var
  Buffer : PAnsiChar;
begin
  If Length(Output) < 200 Then
    begin
    If @ZChatOutput <> nil Then
      begin
      Buffer := AllocMem(200);
      Try
        StrPCopy(Buffer,Output);
        ZChatOutput(Buffer,0,0,$FFFFFFFF);
      Finally
        FreeMem(Buffer);
      end;
    end;
  end;
end;

---

Quote:

---

Originally Posted by ThievingSix

Delphi 2009? If so PChar --> PAnsiChar.

Also, calling ZChatOutput directly never worked well in Delphi, try this:

Code:

---

procedure Echo(Output: String);
var
  Buffer : PAnsiChar;
begin
  If Length(Output) < 200 Then
    begin
    If @ZChatOutput <> nil Then
      begin
      Buffer := AllocMem(200);
      Try
        StrPCopy(Buffer,Output);
        ZChatOutput(Buffer,0,0,$FFFFFFFF);
      Finally
        FreeMem(Buffer);
      end;
    end;
  end;
end;

---

---

Welcome back?

Quote:

---

Originally Posted by bounty-hunter

I attempted to do ZChatOutPut in Delphi and here is my code :

Code:

---

library ZChat;

uses
  SysUtils,
  Classes,
  Windows,
  Dialogs;

//include the windows file

  const
  ADDRESS = $0042A230; // address for the ZChatOutPut

  type
  TZChatoutput = procedure (char : Pchar; int1 : integer; int2 :integer; Colour:Dword); cdecl;

  var
  GunZChat:TZChatoutput = TZChatOutput(ADDRESS);


//EntryPoint for DLL
Procedure Entrypoint( Reason :DWORD);
begin
  if Reason = DLL_PROCESS_ATTACH then begin
  if GetAsyncKeyState(VK_MENU) <> 0  then // Check if ALT was pressed
  begin
    GunZChat('hello world from dll',2,0,$FFFFFF);
  end;
  end;
  if Reason = DLL_PROCESS_DETACH then begin
    showmessage('closed gunz');
  end;
end;

begin
DLLProc := @EntryPoint;
  EntryPoint(DLL_PROCESS_ATTACH);
end.

---

When i inject into exe, it crashes ...
What am i doing wrong?

---

Client version?

I was bored T.T

Funny how you have troubles with this when you call it a "simple edit" here: http://forum.ragezone.com/f579/kille...2/#post5461252

Some Runnables have the address ZChatoutput edited, if you tried to output a string it will crash so.

Quote:

---

Originally Posted by KillerStefan

Funny how you have troubles with this when you call it a "simple edit" here: http://forum.ragezone.com/f579/kille...2/#post5461252

---

I Assumed it was a simple edit, guess its my badd :P

@Phail : its xaios runnable :S

Why not make a thread on that DLL btw?

@ Phail here is the code with the Thread :

Code:

---

library ZChat;

uses
  SysUtils,
  Classes,
  Windows,
  Dialogs;

//include the windows file

  const
  ADDRESS = $0042A230; // address for the ZChatOutPut

  type
  TZChatoutput = procedure (char : Pchar; int1 : integer; int2 :integer; Colour:Dword); cdecl;

  var
  GunZChat:TZChatoutput = Pointer(ADDRESS);
  C:Cardinal;
  //Our Chat Display
  Procedure DisplayChat();
  begin
  if GetAsyncKeyState(VK_MENU) = 1 then
  begin
    GunZChat('Sup',2,0,$FFFFFF);
    sleep(250);
  end;
  end;

//EntryPoint for DLL
Procedure Entrypoint( Reason :DWORD);
begin
  if Reason = DLL_PROCESS_ATTACH then begin
  CreateThread(nil,0,@DisplayChat,nil,0,C);
  end;
end;

begin
DLLProc := @EntryPoint;
  EntryPoint(DLL_PROCESS_ATTACH);
end.

---

Did i do the thread right? atm the server is offline so i cant test >_<

Sigh:

First, Jacob is correct you need to create a thread. Your original way will just crash Gunz.

Second, Jacob doesn't know Delphi(no offense). You have to use BeginThread() not CreateThread() or use TThread object.

Correct example(no I didn't test this):

Code:

---

library ZChat;

uses
  SysUtils,
  Classes,
  Windows;

//include the windows file
const
  ADDRESS = $0042A230; // address for the ZChatOutPut
type
  TZChatoutput = procedure (char : Pchar; int1 : integer; int2 :integer; Colour:Dword); cdecl;
var
  ZChatOutput : TZChatoutput = TZChatOutput(ADDRESS);
  ThreadID : Integer;
 
procedure Echo(Output: String);
var
  Buffer : PAnsiChar;
begin
  If Length(Output) < 200 Then
    begin
    If @ZChatOutput <> nil Then
      begin
      Buffer := AllocMem(200);
      Try
        StrPCopy(Buffer,Output);
        ZChatOutput(Buffer,0,0,$FFFFFFFF);
      Finally
        FreeMem(Buffer);
      end;
    end;
  end;
end;

 
function ChatThread(Data: Pointer): Integer;
begin
  Result := 0;
  While True Do
    begin
    If GetAsyncKeyState(VK_MENU) <> 0  then // Check if ALT was pressed
      begin
      Echo('hello world from dll');
    end;
    Sleep(10);
  end;
end;

//EntryPoint for DLL
Procedure Entrypoint( Reason :DWORD);
var
  ID1 : DWORD;
begin
  if Reason = DLL_PROCESS_ATTACH then begin
    ThreadID := BeginThread(nil,0,@ChatThread,nil,0,ID1);
  end;
  if Reason = DLL_PROCESS_DETACH then begin
    TerminateThread(ThreadID,0);
    CloseHandle(ThreadID);
  end;
end;

begin
  DLLProc := @EntryPoint;
  EntryPoint(DLL_PROCESS_ATTACH);
end.

---

Quote:

---

Originally Posted by ThievingSix

Delphi 2009? If so PChar --> PAnsiChar.

Also, calling ZChatOutput directly never worked well in Delphi, try this:

Code:

---

procedure Echo(Output: String);
var
  Buffer : PAnsiChar;
begin
  If Length(Output) < 200 Then
    begin
    If @ZChatOutput <> nil Then
      begin
      Buffer := AllocMem(200);
      Try
        StrPCopy(Buffer,Output);
        ZChatOutput(Buffer,0,0,$FFFFFFFF);
      Finally
        FreeMem(Buffer);
      end;
    end;
  end;
end;

---

---

Can u explain the above code?

Length(output) gets the length of the string
but what does @zchatoutput do?
and the rest i sort of understand ...

Quote:

---

Originally Posted by ThievingSix

Sigh:

First, Jacob is correct you need to create a thread. Your original way will just crash Gunz.

Second, Jacob doesn't know Delphi(no offense). You have to use BeginThread() not CreateThread() or use TThread object.

Correct example(no I didn't test this):

Code:

---

library ZChat;

uses
  SysUtils,
  Classes,
  Windows;

//include the windows file
const
  ADDRESS = $0042A230; // address for the ZChatOutPut
type
  TZChatoutput = procedure (char : Pchar; int1 : integer; int2 :integer; Colour:Dword); cdecl;
var
  ZChatOutput : TZChatoutput = TZChatOutput(ADDRESS);
  ThreadID : Integer;
 
procedure Echo(Output: String);
var
  Buffer : PAnsiChar;
begin
  If Length(Output) < 200 Then
    begin
    If @ZChatOutput <> nil Then
      begin
      Buffer := AllocMem(200);
      Try
        StrPCopy(Buffer,Output);
        ZChatOutput(Buffer,0,0,$FFFFFFFF);
      Finally
        FreeMem(Buffer);
      end;
    end;
  end;
end;

 
function ChatThread(Data: Pointer): Integer;
begin
  Result := 0;
  While True Do
    begin
    If GetAsyncKeyState(VK_MENU) <> 0  then // Check if ALT was pressed
      begin
      Echo('hello world from dll');
    end;
    Sleep(10);
  end;
end;

//EntryPoint for DLL
Procedure Entrypoint( Reason :DWORD);
var
  ID1 : DWORD;
begin
  if Reason = DLL_PROCESS_ATTACH then begin
    ThreadID := BeginThread(nil,0,@ChatThread,nil,0,ID1);
  end;
  if Reason = DLL_PROCESS_DETACH then begin
    TerminateThread(ThreadID,0);
    CloseHandle(ThreadID);
  end;
end;

begin
  DLLProc := @EntryPoint;
  EntryPoint(DLL_PROCESS_ATTACH);
end.

---

---

Quote:

---

Originally Posted by bounty-hunter

Can u explain the above code?

Length(output) gets the length of the string
but what does @zchatoutput do?
and the rest i sort of understand ...

---

It's a conditional statement...
http://www.delphibasics.co.uk/RTL.asp?Name=Nil

I don't know jack-shit about Delphi, but looks like it's checking to see if
ZChatOutput is a pointer OR making ZChatOutput into a pointer?
Let me know if I'm just talking gibberish.

I don't know delphi too, but it looks like some kinda check to see if the pointer has been set correctly.