[Программа] исходник для бота

[Skuka.95]

HellD, ты меня слегка удивил, ты нехотел что бы люди знали правельные оффсеты, и не делали "кликероных" ботов а сам дал мне такоооой исходник)

[HellD]

ага... прям америку открыл )) тоже самое что и у тебя, тока расширенное с получения только хп до всего остального )) думаешь удалить надо? ))

Добавлено через 2 минуты
кроме того, не путай )) я не против того что бы люди развивались, учились, и создавали что то хорошее )) и готов в этом даже помогать )) а вот всяк фуфла и фэйков итак в сети хватает, и я не хочу что бы было еще больше ))

[Skuka.95]

Цитата: Сообщение от HellD думаешь удалить надо? ))

нет)

Цитата: Сообщение от HellD кроме того, не путай )) я не против того что бы люди развивались, учились, и создавали что то хорошее )) и готов в этом даже помогать )) а вот всяк фуфла и фэйков итак в сети хватает, и я не хочу что бы было еще больше ))

ну да фейков хватает и так, но щас мало людей осталось которые на них ведутся

Цитата: Сообщение от HellD +8+20+18 и +34+38С+88 это немного разные вещи, но обе правильные ))

ну с +34+38С+88 заработало)

p.s. чё можешь расказать про инжектинг пакетов...
p.p.s что бы сделать привязку по клану надо искать само названия клана в процесе а потом сверять ?))

[HellD]

Цитата: Сообщение от Skuka.95 p.s. чё можешь расказать про инжектинг пакетов...

а что именно тебя интересует? ))

Цитата: Сообщение от Skuka.95 p.p.s что бы сделать привязку по клану надо искать само названия клана в процесе а потом сверять ?))

ну для таких целей с именем слишком много лишнего будет.. по моему куда проще сделать по ид )) если я правильно понял суть вопроса ))

[Skuka.95]

Цитата: Сообщение от HellD ну для таких целей с именем слишком много лишнего будет.. по моему куда проще сделать по ид )) если я правильно понял суть вопроса ))

ну по ид даже и надежниее) т.к. в случае имени, можно создать клан с таким же именем)

Цитата: Сообщение от HellD а что именно тебя интересует? ))

ну для начало основы
p.s. эх всё же убрал исходник, блин надо было скопировать его сначало)) (мысли в слух)
зато будет стимул написать самому тоже самое чё было там)

[HellD]

Цитата: Сообщение от Skuka.95 ну по ид даже и надежниее) т.к. в случае имени, можно создать клан с таким же именем)

ну если только визуально ) для кода то все равно имя будет разное )

Цитата: Сообщение от Skuka.95 ну для начало основы

эта тема.. начальные страницы )) основы )
+ http://zhyk.ru/forum/showthread.php?t=144558

[Skuka.95]

а примерчик можно ?) (самый простой вызов пета... ну или медитация.. а то я думаю всё же пакетами будет легче и удобнее чем инжектами)
а то инжектор есть а куда посылать (и как) 64 00 00 00 00 00 (эт только пример) хз)

[HellD]

медитация по нажатию на кнопку

unit Unit1;

interface

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

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

type
    PParams = ^TParams;
    TParams = packed record
       Packet: array [0..100] of byte;
       PacketParam:dword;
end;

var
  Form1: TForm1;
  const BA=$B27A04;
  const GA=$B280C4;

implementation

{$R *.dfm}


procedure InjectFunc(ProcessID: Cardinal; Func, aParams: Pointer;
  aParamsSize: DWord);
var
  hThread: THandle;
  lpNumberOfBytes: DWord;
  ThreadAddr, ParamAddr: Pointer;
begin
  if ProcessID<>0 then
  begin
    ThreadAddr := VirtualAllocEx(ProcessID, nil, 256, MEM_COMMIT, PAGE_READWRITE);
    WriteProcessMemory(ProcessID, ThreadAddr, Func, 256, lpNumberOfBytes);

    ParamAddr := VirtualAllocEx(ProcessID, nil, aParamsSize, MEM_COMMIT, PAGE_READWRITE);
    WriteProcessMemory(ProcessID, ParamAddr, aParams, aParamsSize, lpNumberOfBytes);

    hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes);

    WaitForSingleObject(hThread, INFINITE);

    CloseHandle(hThread);
    VirtualFreeEx(ProcessID, ParamAddr, 0, MEM_RELEASE);
    VirtualFreeEx(ProcessID, ThreadAddr, 0, MEM_RELEASE);
  end
end;

procedure PacketCall(aPParams:PParams); stdcall;
var
  CallAddress,pPacket:pointer;
  Len:DWord;
begin
  CallAddress:=Pointer($006737B0);
  Len:=aPParams^.PacketParam;
  pPacket:=@aPParams^.Packet;
  asm
    pushad
    mov ecx, dword ptr [BA]
    mov ecx, dword ptr [ecx+$20]
    push Len
    push pPacket
    call CallAddress
    popad
  end;
end;

procedure StrToByte(Packet:string; var aParams:TParams);
var
  i:integer;
begin
  i:=(length(Packet) div 2)-1;
  aParams.PacketParam:=i+1;
  for i:=0 to i do
    aParams.Packet[i]:=strtoint('$'+Packet[i*2+1]+Packet[i*2+2]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Packet:String;
AParams:Tparams;
WndHndl:THandle;
Pid,hProcess:dword;
begin

WndHndl:=FindWindow(nil, 'Perfect World');
GetWindowThreadProcessId(WndHndl,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);

  Packet:='2E00';
  StrToByte(Packet,aParams);
  InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aParams));

CloseHandle(hProcess);
end;

end.

[Skuka.95]

Цитата: Сообщение от HellD Packet:='2E00'; StrToByte(Packet,aParams); InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aP arams));

как я понял это сама отправка пакета, а всё (ну или почти всё) остальное это инжектор ?)

[HellD]

в принципе да ))
2E00 - пакет медитации
замени на то что нужно и все будет работать))

[Skuka.95]

Цитата: Сообщение от HellD замени на то что нужно и все будет работать))

так и знал что пакет не правельный (скопировал код...а он не заработал )

[HellD]

ну у меня мой тока что сел в медитацию у меня на глазах... чет у тя не то значит (

[Skuka.95]

Цитата: Сообщение от HellD ну у меня мой тока что сел в медитацию у меня на глазах... чет у тя не то значит (

хз в чём проблема была, сохранил, открыл, запустил заработало)

Добавлено через 2 минуты
а пакеты ловить этой прогой ? http://zhyk.ru/forum/showthread.php?t=276220
или есть другие ?)

Добавлено через 4 минуты
кстате мне кажется тему надо закрепить и переименовать в "помощь ботописателям" или "вопрос - ответ по написанию ботов"

[HellD]

да, пакеты искать этой прогой... насчет других, не знаю... не искал )) может и есть другие )) но либо они ловят те же самые пакеты )) либо они фигово работают )) в любом случае, нафиг оно надо ))

а насчет закрепить.. это уже не ко мне )) не имею полномочий ))

Добавлено через 2 минуты

Цитата: Сообщение от Skuka.95 хз в чём проблема была, сохранил, открыл, запустил заработало)

а может у тя виста или семерка?? и делфя была не под админом запущена? )) а уже сохраненную программку под админом запустил? ))
хотя скок у меня косяков было, которые часами искал, а в итоге они сами исправлялись )) мистика ))

[Skuka.95]

Цитата: Сообщение от HellD да, пакеты искать этой прогой...

блин у меня уже 2 раз клиент со светофором вылетает из-за этой проги...