GetTibiaBaseAddress Pegando o endereço base com o Delphi.

[Kimoszin 1160]

Olá pessoal, apartir do update 9.1, a Cipsoft botou um novo sistema, que agora os programadores precisam pegar a base do endereço para o seu bot funcionar perfeitamente em computadores com sistemas operacionais Windows 7 e Windows Vista.

Bom, foi um sistema falho...

Declare nas uses:

PsAPI

Declare a função necessaria para pegar a base do endereço:

function GetTibiaBaseAddress(ProcessID: Cardinal): 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);

	  SetLength(Modules, cbNeeded div SizeOf(HMODULE));

	  for i := 0 to Length(Modules) - 1 do

	    begin

		  GetModuleBaseName(PHandle, Modules[i], ModuleName, SizeOf(ModuleName)

		    );

		  if AnsiCompareText('Tibia.exe', ModuleName) = 0 then

		    begin

			  GetModuleInformation(PHandle, Modules[i], @ModuleInfo, SizeOf

				  (ModuleInfo));

			  Result := ModuleInfo.lpBaseOfDll;

			  CloseHandle(PHandle);

			  Exit;

		    end;

	    end;

    end;

end;

Declare as variaveis:

  PH: THandle;

  PID, Thid: Dword;

  Offset: Integer;

  TibiaH: THandle

Declare a função para ler os endereços de memoria:

function ReadInteger(Address: Integer): Integer;

var

  value: Integer;

  ler: Dword;

begin

  Thid := GetWindowThreadProcessId(TibiaH, @PID);

  PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);

  ReadProcessMemory(PH, Ptr(Address), @value, 4, ler);

  Result := value;

end;

Declare a função para pegar o ProcessID:

function ProcessID: Integer;

begin

  TibiaH := FindWindow('TibiaClient', nil);

  Thid := GetWindowThreadProcessId(TibiaH, @PID);

  PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);

  Result := PID;

end;

Pronto, agora já podemos burlar o sistema da Cipsoft. Agora um simples exemplo de como você deve usar: Declare as consts:

const

  adrXOR = $7ADFD0;

  adrMyHP = $943000;

  adrMyMana = $7AE024;

Agora, declare a função para retornar o Health do seu character:

function PlayerHealth: Integer;

var

  HP: Integer;

  uXor: Integer;

begin

  Offset := Integer(GetTibiaBaseAddress(ProcessID));

  HP := ReadInteger((adrMyHP + Offset) - $400000);

  uXor := ReadInteger((adrXOR + Offset) - $400000);

  Result := HP xor uXor;

end;

Função para pegar a Mana do seu character:

function PlayerMana: Integer;

var

  Mana: Integer;

  uXor: Integer;

begin

  Offset := Integer(GetTibiaBaseAddress(ProcessID));

  Mana := ReadInteger((adrMyMana + Offset) - $400000);

  uXor := ReadInteger((adrXOR + Offset) - $400000);

  Result := Mana xor uXor;

end;

Vou deixar como o meu .pas ficou:

Qualquer duvida, só postar.

  Mostrar conteúdo oculto

{ ---------------------------

    Feito por Kimoszin

    www.TibiaKing.com

---------------------------- }


unit uMain;


interface


uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, PsAPI, StdCtrls;


type

  TForm1 = class(TForm)

    lbHealth: TLabel;

    Button1: TButton;

    lbMana: TLabel;

    procedure Button1Click(Sender: TObject);

    private

    public

  end;


var

  Form1: TForm1;

  { Variaveis }

  PH: THandle;

  PID, Thid: Dword;

  Offset: Integer;

  TibiaH: THandle;


implementation


{$R *.dfm}


{ Endereços de Memoria Tibia 9.53 }

const

  adrXOR = $7ADFD0;

  adrMyHP = $943000;

  adrMyMana = $7AE024;


{ Função para ler números (Int)eiros }

function ReadInteger(Address: Integer): Integer;

var

  value: Integer;

  ler: Dword;

begin

  Thid := GetWindowThreadProcessId(TibiaH, @PID);

  PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);

  ReadProcessMemory(PH, Ptr(Address), @value, 4, ler);

  Result := value;

end;


{ Função para pegar o número do processo do Tibia }

function ProcessID: Integer;

begin

  TibiaH := FindWindow('TibiaClient', nil);

  Thid := GetWindowThreadProcessId(TibiaH, @PID);

  PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);

  Result := PID;

end;


{ Função para pegar o endereço base do Tibia }

function GetTibiaBaseAddress(ProcessID: Cardinal): 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);

	  SetLength(Modules, cbNeeded div SizeOf(HMODULE));

	  for i := 0 to Length(Modules) - 1 do

	    begin

		  GetModuleBaseName(PHandle, Modules[i], ModuleName, SizeOf(ModuleName)

		    );

		  if AnsiCompareText('Tibia.exe', ModuleName) = 0 then

		    begin

			  GetModuleInformation(PHandle, Modules[i], @ModuleInfo, SizeOf

				  (ModuleInfo));

			  Result := ModuleInfo.lpBaseOfDll;

			  CloseHandle(PHandle);

			  Exit;

		    end;

	    end;

    end;

end;


{ Função que retornar o Health(Vida) do personagem }

function PlayerHealth: Integer;

var

  HP: Integer;

  uXor: Integer;

begin

  Offset := Integer(GetTibiaBaseAddress(ProcessID));

  HP := ReadInteger((adrMyHP + Offset) - $400000);

  uXor := ReadInteger((adrXOR + Offset) - $400000);

  Result := HP xor uXor;

end;


{ Função que retornar a Mana do personagem }

function PlayerMana: Integer;

var

  Mana: Integer;

  uXor: Integer;

begin

  Offset := Integer(GetTibiaBaseAddress(ProcessID));

  Mana := ReadInteger((adrMyMana + Offset) - $400000);

  uXor := ReadInteger((adrXOR + Offset) - $400000);

  Result := Mana xor uXor;

end;


procedure TForm1.Button1Click(Sender: TObject);

begin

{ Modo de usar }

  lbHealth.Caption := 'Health: ' + IntToStr(PlayerHealth);

  lbMana.Caption := 'Mana: ' + IntToStr(PlayerMana);

end;


end.

Editado Junho 11, 2012 por Kimoszin (veja o histórico de edições)

[3visan 416]

Muito bom kimos, ótimo tutorial, eu mesmo não entendo nada disso rs.

Reputado!

[Kimoszin 1160]

Tutorial reformulado.

[yurinho190 0]

.

Editado Fevereiro 16, 2013 por yurinho190 (veja o histórico de edições)

[ediat12 0]

Boa noite, eu testei aqui mas não funcionou não, o resultado vem 0, o que pode ter acontecido? testado no rad.

Editado Agosto 10, 2012 por ediat12 (veja o histórico de edições)

[Kimoszin 1160]

Como você esta usando? E qual os endereços?

[ediat12 0]

Obrigado pela atenção, dos mesmos jeito que você colocou no tutorial, deixei identico, mas o resultado vem 0, testado no radbr vs 9.53.

[Kimoszin 1160]

Cara, os endereços mudam né, não são sempre os mesmo.

[Skyrr 3]

Tem como configura esse pra pega os offsets?;

[Kimoszin 1160]

Offset não precisa de base, é sempre a mesma coisa, tu só tem que pegar a base do endereço.

[Skyrr 3]

Hum, Obrigado por esclarecer essa duvida. rs

[willschu 1]

Se eu utilizar o Delphi 7 para fazer este programa, funcionará ou será necessário em Delphi superior ?

[alfbru 71]

  Em 15/12/2012 em 02:14, willschu disse:

Se eu utilizar o Delphi 7 para fazer este programa, funcionará ou será necessário em Delphi superior ?

Mostrar mais  

Funciona perfeitamente no Delphi 7

[willschu 1]

Funcionou beleza!

Mas, como eu faço para fazer uma leitura em tempo real ?

Do jeito que o código está, ele só faz a leitura ao clicar no botão.

Eu tentei usar while, fazendo um loop infinito ao clicar no botão, mas trava!

Abaixo:

procedure TForm1.Button1Click(Sender: TObject);

var

x: integer;

begin

x := 1;

while x = 1 do

begin

lbHealth.Caption := 'Health: ' + IntToStr(PlayerHealth);

lbMana.Caption := 'Mana: ' + IntToStr(PlayerMana);

end;

end;

end.

No aguardo!

[willschu 1]

Opa, consegui! Só coloquei um Timer(aba System), alterei o "interval" para 10, e na aba "Events" em "OnTimer" coloquei o botão.

[willschu 1]

Há como identificar uma criatura que está te atacando, e com isto atacá-la ?

Já estou raciocinando sobre isto há 1 dia e não consegui enxergar ainda hehe.. Alguém poderia clarear um pouco minhas ideias ?

No aguardo!

[willschu 1]

Como eu faço para mostrar a quantidade de experiência que eu tenho no char ?

A função para encontrar o número é igual as funções de health e mana ?

Encontrei os endereços para a última versão do tibia neste site, mas na lista não tem o endereço para experiência.. não encontrei..

http://www.blackdtools.com/forum/showthread.php?59794-9-8-Blackd-Tibia-addresses-9-8

;]

[samukt 0]

Esta dando erro aqui:

ReadProcessMemory(PH, ptr(Address), @value, 4, ler);

[dcc32 Error] Unit1.pas(93): E2033 Types of actual and formal var parameters must be identical

[Kimoszin 1160]

Qual é o seu Delphi?

[Ti0Branc0 12]

No Delphi xe2 tbm da isso:

ReadProcessMemory(PH, ptr(Address), @value, 4, ler);

[dcc32 Error] Unit1.pas(93): E2033 Types of actual and formal var parameters must be identical

@Edit:

No Delphi 7 funciona normal. o.O

@EDIT 2~

Não consigo retornar o health/mana do player, já atualizei os address.

Alguém sabe o por que ?

Editado Julho 4, 2013 por Ti0Branc0 (veja o histórico de edições)