[Руоф] Код для инжекта в память.

[=[Rush]=]

Цитата: Сообщение от Gorrilaz procedure AutoPathCall(aPParams:PParams); stdcall; var addr:pointer; x,y,z:Dword; begin x:=548; y:=673; z:=50; addr := Pointer($006F55E0); asm pushad MOV EDI,y // есть предположение, MOV ESI,x // что здесь нужно поменять местами X, Z и Y MOV EAX,DWORD PTR DS:[$38B6C] // base_addr PUSH 0 // ; /Arg7 = 00000000 PUSH EDI // ; |Arg6 MOV ECX,DWORD PTR DS:[EAX+$1C] // ; | PUSH ESI // ; |Arg5 PUSH 0 // ; |Arg4 = 00000000 PUSH 0 // ; |Arg3 = 00000000 PUSH 0 // ; |Arg2 = 00000000 PUSH $14A // ; |Arg1 = 0000014A call addr // ; \elementc.00438770 MOV EDX,DWORD PTR DS:[$38B6C] //; elementc.009C14F8 XOR EAX,EAX MOV AL,0 PUSH 0 //; /Arg7 = 00000000 MOV ECX,DWORD PTR DS:[EDX+$1C] //; | MOV EDX,z //; | PUSH EAX //; |Arg6 = 00000000 PUSH EDX //; |Arg5 = Высота полета PUSH 1 //; |Arg4 = 00000001 PUSH 0 //; |Arg3 = 00000000 PUSH 0 //; |Arg2 = 00000000 PUSH $14A //; |Arg1 = 0000014A CALL addr //; \elementc.00438770 popad end; end; После выполнения кода персонаж стремится улететь ужасно далеко за карту. На сколько я понял в отличие от WalkCall процедуре AutoPathCall нужны реальные координаты (отображаемые в окне игры). procedure WalkCall(aPParams:PParams);Stdcall; var CallAddress1,CallAddress2,CallAddress3:Pointer; x,y,z:single; ... Но на всякий случай я попробовал перевести значения координат из реальных в те, что считываются (Walk1Adress = $00484690 Walk2Adress = $004889B0; Walk3Adress = $00484B00). x,y,zword; // здесь менял тип данных на single x:=548; //пробовал передавать вот так StrToFloat(548-400)*10)) все координаты по соответствующим обратным формулам из реальных. Полевые испытания не позволили найти ответ на вопрос, что не так.

Для текущей версии руоффа адрес AutoPath=$00447A20.
Координаты в таком виде:

x:=round(x-400)*10;
y:=round(y-550)*10;
z

[fds255]

Цитата: Сообщение от Gorrilaz После выполнения кода персонаж стремится улететь ужасно далеко за карту.

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

[Gorrilaz]

Цитата: Сообщение от =[Rush]= Для текущей версии руоффа адрес AutoPath=$00447A20. Координаты в таком виде: x:=round(x-400)*10; y:=round(y-550)*10; z

Пробовал так:

Цитата: Но на всякий случай я попробовал перевести значения координат из реальных в те, что считываются (Walk1Adress = $00484690 Walk2Adress = $004889B0; Walk3Adress = $00484B00). x,y,zword; // здесь менял тип данных на single x:=548; //пробовал передавать вот так StrToFloat(548-400)*10)) все координаты по соответствующим обратным формулам из реальных.

Всё ровно не в ту сторону даже летит.

[=[Rush]=]

Цитата: Сообщение от Gorrilaz Всё ровно не в ту сторону даже летит.

Странно, у меня всё норм.
Маршрут на карте и радаре вырисовывается криво, но летит куда надо.

unit Unit1;

interface

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

type
  PParams = ^TParams;
  TParams = packed record
    Px, Py, Pz: DWORD;
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  BaseAdress = $00C38B6C;
  AutoPathAdress = $00447A20;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure InjectFunc(hProcess: Cardinal; Func, aParams: Pointer; aParamsSize: DWORD);
var
  ThreadAddr, ParamAddr: Pointer;
  lpNumberOfBytes: DWORD;
  hThread: THandle;
begin
  if hProcess<>0 then
    begin
      ThreadAddr:=VirtualAllocEx(hProcess,nil,256,MEM_COMMIT,PAGE_READWRITE);
      WriteProcessMemory(hProcess,ThreadAddr,Func,256,lpNumberOfBytes);
      ParamAddr:=VirtualAllocEx(hProcess,nil,aParamsSize,MEM_COMMIT,PAGE_READWRITE);
      WriteProcessMemory(hProcess,ParamAddr,aParams,aParamsSize,lpNumberOfBytes);
      hThread:=CreateRemoteThread(hProcess,nil,0,ThreadAddr,ParamAddr,0,lpNumberOfBytes);
      WaitForSingleObject(hThread,INFINITE);
      CloseHandle(hThread);
      VirtualFreeEx(hProcess,ParamAddr,0,MEM_RELEASE);
      VirtualFreeEx(hProcess,ThreadAddr,0,MEM_RELEASE);
    end
end;

procedure AutoPathCall(aPParams: PParams); stdcall;
var
  Addr: Pointer;
  x,y,z: DWORD;
begin
  x:=aPParams^.Px;
  y:=aPParams^.Py;
  z:=aPParams^.Pz;
  Addr:=Pointer(AutoPathAdress);
  asm
    pushad
      MOV EDI,y
      MOV ESI,x
      MOV EAX,DWORD PTR DS:[BaseAdress]
      PUSH 0
      PUSH EDI
      MOV ECX,DWORD PTR DS:[EAX+$1C]
      PUSH ESI
      PUSH 0
      PUSH 0
      PUSH 0
      PUSH $14A
      call addr
      MOV EDX,DWORD PTR DS:[BaseAdress]
      XOR EAX,EAX
      MOV AL,0
      PUSH 0
      MOV ECX,DWORD PTR DS:[EDX+$1C]
      MOV EDX,z
      PUSH EAX
      PUSH EDX
      PUSH 1
      PUSH 0
      PUSH 0
      PUSH $14A
      CALL addr
    popad
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  aParams: TParams;
  hProcess, ProcessID: DWORD;
  x, y, z: Extended;
begin
  ProcessID:=0;
  GetWindowThreadProcessId(FindWindow(nil,PChar('Perfect World')),@ProcessID);
  if ProcessID<>0 then
    begin
      hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessID);
      x:=552.88;
      y:=653.16;
      z:=79;
      aParams.Px:=Round((x-400)*10);
      aParams.Py:=Round((y-550)*10);
      aParams.Pz:=Round(z);
      InjectFunc(hProcess,@AutoPathCall,@aParams,SizeOf(aParams));
      CloseHandle(hProcess);
    end;
end;

end.

По этим кордам x:=552.88; y:=653.16; z:=79; должен прилететь к тарелке в ГД.

[Gorrilaz]

Вроде разобрался думал round не обязателен... Спасибо.

[fds255]

Цитата: Сообщение от =[Rush]= aParams.Pz:=Round(z);

А разве не так:

aParams.Pz:=Round(z*10);

[=[Rush]=]

Цитата: Сообщение от fds255 А разве не так: aParams.Pz:=Round(z*10);

Не так)

35=$23

aParams.Pz:=Round(z);

[Dinmaite]

Цитата: Сообщение от Gorrilaz Вроде разобрался думал round не обязателен... Спасибо.

Цитата: Сообщение от Dinmaite Если я верно помню то сюда следует писать округленные реальные координаты (тоесть те, что читаются из области памяти игры).

Да это просто цирк какой-то. Ведь не на английском написано же.

[fds255]

Цитата: Сообщение от =[Rush]= Не так)

Перевод реальных координат в те, которые ты видишь на экране:

X / 10 + 400
Y / 10 + 550
Z / 10


Соответственно обратный процесс:

x:=round(x-400)*10;
y:=round(y-550)*10;
z:=round(z*10);

)))

Цитата: Сообщение от =[Rush]= 35=$23 aParams.Pz:=Round(z);

И причем тут перевод из Dec в Hex ?

[=[Rush]=]

Цитата: Сообщение от fds255 Перевод реальных координат в те, которые ты видишь на экране: X / 10 + 400 Y / 10 + 550 Z / 10 Соответственно обратный процесс: x:=round(x-400)*10; y:=round(y-550)*10; z:=round(z*10); )))

Вопрос был, в каком виде передавать кординаты в функцию AutoPath.

Дак вот, так всё верно:

aParams.Px:=Round((x-400)*10); //реальный округленный "x" из памяти клиента
aParams.Py:=Round((y-550)*10); //реальный округленный "y" из памяти клиента
aParams.Pz:=Round(z); //Округленная высота, в таком виде, в котором её видим на экране

[fds255]

=[Rush]=

Судя по твоей вырезке из Олли, прописываются Z координаты указанные на экране, при проверке у меня в ECX получилось тоже самое. В общем, данная строка ловится если перетащить ползунок высоты при автопилоте, соответственно далее, скорее всего, данная цифра преобразуется в реальную координату, т.е. умножается на 10. Я же, при написании проги, использую сразу реальные координаты, т.е. Z*10 и все отрабатывает отлично. Фиг знает что там намутили китайцы, но и тот и другой случай приемлемы )))

[darkwellroad]

По той же избитой теме с нпс. Просто выкидывает. Может подскажите что?

unit Unit16;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm16 = class(TForm)
    Button1: TButton;
  procedure InjectFunc(ProcessID: NativeUInt; Func, aParams: Pointer; aParamsSize: NativeUInt);
    procedure TalkToNPC(NPCID:Cardinal);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  PParams = ^TParams;
  TParams = packed record
    Packet: array [0..100] of byte;
    Param1,Param2,Param3: DWord;
    Param4: array [1..100] of widechar;
  end;

const
  PW_BASE_ADDRESS = $00C38B6C;

var
  Form16: TForm16;

implementation

{$R *.dfm}

procedure TForm16.Button1Click(Sender: TObject);
begin
  TalkToNPC($801045de);
end;

procedure TForm16.InjectFunc(ProcessID: size_t; Func, aParams: Pointer; aParamsSize: NativeUInt);
  var
    hThread: THandle;
    lpNumberOfBytes: NativeUInt;
    lpThreadId: Cardinal;
    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, lpThreadId);
      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:size_t;
begin
  CallAddress:=Pointer($006F55E0);
  Len:=aPParams^.Param1;
  pPacket:=@aPParams^.Packet;
  asm
    pushad
    mov ecx, dword ptr [PW_BASE_ADDRESS]
    mov ecx, dword ptr [ecx+$20]
    push Len
    push pPacket
    call CallAddress
    popad
  end;
end;

procedure TalkToNPCCall(aPParams:PParams);Stdcall;
var
  NPCID:size_t;
  CallAddress:Pointer;
begin
NPCID:=aPParams^.Param1;
CallAddress:=ptr($006F55E0);
 asm
  pushad
  mov edx, dword ptr [PW_BASE_ADDRESS]
  mov ecx, dword ptr [edx+$20]
  push NPCID
  add ecx, $EC
  call CallAddress
  popad
 end;
end;

procedure TForm16.TalkToNPC(NPCID:Cardinal);
var
  aParams:TParams;
  v:HWND;
  Pid,hProcess:size_t;
begin
v:=FindWindow(nil,Pchar('Perfect World'));
if v <> 0
 then
  begin
  GetWindowThreadProcessId(v,@PId);
  hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PId);
  aParams.Param1:=NPCID;
  Form16.InjectFunc(hProcess,@TalkToNPCCall,@aParams,4);
end;
end;

end.

[iGesha]

Доброго времени суток.
Возникло у меня желание заморочиться с инжектом на AutoIT. Собственно, особой разницы нет, так как, что дельфи, что аутоит используют функции WinAPI. В общем, попытался я сделать инжект кода отправки пакета, руководствуясь этой темой. Т.к. аутоит не поддерживает ассемблер в явном виде, сделал вставку опкодом, сгенерированным CE. Сам код взял из первого поста этой темы. А именно

    pushad
    mov ecx, dword ptr [PW_BASE_ADDRESS]
    mov ecx, dword ptr [ecx+$20]
    push Len
    push pPacket
    call CallAddress
    popad

Правда, пришлось поменять прямой вызов на

mov EDX, 006F55E0
call EDX

Что характерно, инжект вроде даже рабоатет. Для проверки отправлял пакет, меняющий содержимое двух ячеек инвентаря.
Ячейки меняются, но после этого клиент виснет и вылетает с ошибкой. отсюда вопрос: где могут быть грабли?
И ещё, что нужно пушить в качестве Len - длину пакета или указатель но длину пакета? Пытался и то и другое - выбивает в обоих случаях, но работает только если в пуш явно ставить длину пакета, что странно. По логике там должен быть именно указатель...
В общем, помогите кто чем может
Код инжекта на скрипте выглядит так:
<раскрыть>

		 $OPCode  = "60"									;pushad
		 $OPCode &= "8B0D" & DWord2String(0x00C38B6C)		;mov ECX,[BASE_ADRESS]
		 $OPCode &= "8B4920"								;mov ECX,[ECX+20]
		 $OPCode &= "68" & DWord2String(0x81828384)			;push LEN (длина пакета)
		 $OPCode &= "68" & DWord2String(0x91929394)			;push pPacket (указатель на пакет)
		 $OPCode &= "BA" & "E0556F00"						;mov EDX, 006F55E0 PacketCall Adress
		 $OPCode &= "FFD2"									;call EDX
		 $OPCode &= "61"									;popad
		 $PACKET="0C000102"
		 $CODE = DllStructCreate("byte[" & StringLen($OPCODE) / 2 & "]")
		 $PACK = DllStructCreate("byte[" & StringLen($PACKET) / 2 & "]")
		 $RESULT = DllCall("Kernel32.Dll", "int", "OpenProcess", "int", 2035711, "int", 0, "int", $PID)
		 $PROCESS = $RESULT[0]
		 $RESULT = DllCall("Kernel32.dll", "ptr", "VirtualAllocEx", "int", $PROCESS, "ptr", 0, "int", DllStructGetSize($CODE), "int", 4096, "int", 64)
		 ConsoleWrite (@error & "--")
		 ConsoleWrite("Code: " & Hex($RESULT[0]) & "=")
		 $CodeAddr = $RESULT[0]
		 $RESULT = DllCall("Kernel32.dll", "ptr", "VirtualAllocEx", "int", $PROCESS, "ptr", 0, "int", DllStructGetSize($PACK), "int", 4096, "int", 64)
		 ConsoleWrite (@error & "--")
		 ConsoleWrite("Packet: " & Hex($RESULT[0]))
		 $PackAddr = $RESULT[0]

 		 $OPCODE=StringReplace($OPCODE,"94939291",DWord2String($PackAddr))
		 $OPCODE=StringReplace($OPCODE,"84838281",DWord2String(Int(StringLen($PACKET)/2)))

		 For $i = 1 To DllStructGetSize($CODE)
			DllStructSetData($CODE, 1, Dec(StringMid($OPCODE, ($i - 1) * 2 + 1, 2)), $i)
		 Next
		 For $i = 1 To DllStructGetSize($PACK)
			DllStructSetData($PACK, 1, Dec(StringMid($PACKET, ($i - 1) * 2 + 1, 2)), $i)
		 Next
		 $RESULT = DllCall("kernel32.dll", "int", "WriteProcessMemory", "int", $PROCESS, "ptr", $CodeAddr, "ptr", DllStructGetPtr($CODE), "int", DllStructGetSize($CODE), "int", 0)
		 $RESULT = DllCall("kernel32.dll", "int", "WriteProcessMemory", "int", $PROCESS, "ptr", $PackAddr, "ptr", DllStructGetPtr($PACK), "int", DllStructGetSize($PACK), "int", 0)
		 MsgBox(0,"","Всё записано. Готов к выполнению")
		 $RESULT = DllCall("kernel32.dll", "int", "CreateRemoteThread", "int", $PROCESS, "ptr", 0, "int", 0, "int", $CodeAddr, "ptr", 0, "int", 0, "int", 0)
		 $THREAD = $RESULT[0]
		 Do
			$RESULT = DllCall("kernel32.dll", "int", "WaitForSingleObject", "int", $THREAD, "int", 50)
		 Until $RESULT[0] <> 258
		 DllCall("Kernel32.dll", "int", "CloseHandle", "int", $THREAD)
		 DllCall("Kernel32.dll", "ptr", "VirtualFreeEx", "hwnd", $PROCESS, "ptr", DllStructGetPtr($CODE), "int", DllStructGetSize($CODE), "int", 32768)
		 DllCall("Kernel32.dll", "ptr", "VirtualFreeEx", "hwnd", $PROCESS, "ptr", DllStructGetPtr($PACK), "int", DllStructGetSize($PACK), "int", 32768)
		 DllCall("Kernel32.dll", "int", "CloseHandle", "int", $PROCESS)

Упреждая презрительное "с автоитом не работал и знать его не хочу" скажу, что проблема скорее всего не в нём, а либо в ассемблерном коде, либо в вызове API функций. Вообще, первый раз со всем этим сталкиваюсь, так что можно пинать ногами - не обижусь
Upd: да, инжект кода в память происходит нормально. Проверял через CE по адресам, возвращаемым функцией VirtualAllocEx - и код и пакет пишутся по нужным адресам...
Upd2: Инжектируемый пакет даже отлавливается PacketListener'ом. То есть все _почти_ работает, только клиент выбивает почему-то

[Smertig]

Цитата: Упреждая презрительное "с автоитом не работал и знать его не хочу"

С автоитом работал, работаю и буду работать.
Я использую следующую функцию инжекта:
жми быстрее

Func INJECTCODE($PID)
	If $PID <> 0 And $OPCODE <> "" Then
		Local $DATA = DllStructCreate("byte[" & StringLen($OPCODE) / 2 & "]")
		For $I = 1 To DllStructGetSize($DATA)
			DllStructSetData($DATA, 1, Dec(StringMid($OPCODE, ($I - 1) * 2 + 1, 2)), $I)
		Next
		Local $RESULT, $PROCESS, $ADD, $THREAD
		$RESULT = DllCall("Kernel32.Dll", "int", "OpenProcess", "int", 2035711, "int", 0, "int", $PID)
		$PROCESS = $RESULT[0]
		$RESULT = DllCall("Kernel32.dll", "ptr", "VirtualAllocEx", "int", $PROCESS, "ptr", 0, "int", DllStructGetSize($DATA), "int", 4096, "int", 64)
		$ADD = $RESULT[0]
		$RESULT = DllCall("kernel32.dll", "int", "WriteProcessMemory", "int", $PROCESS, "ptr", $ADD, "ptr", DllStructGetPtr($DATA), "int", DllStructGetSize($DATA), "int", 0)
		$RESULT = DllCall("kernel32.dll", "int", "CreateRemoteThread", "int", $PROCESS, "ptr", 0, "int", 0, "int", $ADD, "ptr", 0, "int", 0, "int", 0)
		$THREAD = $RESULT[0]
		Do
			$RESULT = DllCall("kernel32.dll", "int", "WaitForSingleObject", "int", $THREAD, "int", 50)
		Until $RESULT[0] <> 258
		DllCall("Kernel32.dll", "int", "CloseHandle", "int", $THREAD)
		$RESULT = DllCall("Kernel32.dll", "ptr", "VirtualFreeEx", "hwnd", $PROCESS, "ptr", DllStructGetPtr($DATA), "int", DllStructGetSize($DATA), "int", 32768)
		DllCall("Kernel32.dll", "int", "CloseHandle", "int", $PROCESS)
		$OPCODE = ""
		$DATA = 0
	EndIf
	Return $RESULT[0]
EndFunc

$PID - айди процесса, в $OPCODE должен лежать опкод (неожиданно?).

Как еще проверить правильность кода? Поставь msgbox после строчки, которая выделяет память для кода, запиши адрес, с помощью любого дебаггера перейди по этому адресу в процессе и перед самим выполнением кода поставь брекпоинт туда. Потом просто пошагово выполняй код (F7) и смотри, куда он тебя забросит. Вполне возможно, что стек сдвигается и ret забрасывает не туда. Стоп! А где вообще ret?! Допиши в конец & "C3". Ret = return = jmp на то место, откуда вызвалась функция изначально. А у тебя твой код считается функцией, которую вызывает другой код, который создаётся в новом потоке.

Цитата: И ещё, что нужно пушить в качестве Len - длину пакета или указатель но длину пакета? Пытался и то и другое - выбивает в обоих случаях, но работает только если в пуш явно ставить длину пакета, что странно. По логике там должен быть именно указатель...

Правильно, пушится именно длина пакета. Это же обычный int, по адресам обычно пушат то, что нужно изменить внутри функции, или строки/массивы всякие.

P.S. Зачем писать велосипед, если есть

Цитата: Func Packet($PACKET, $PID, $BASEADD, $SENDPACKETFUNCTION) $PACKETSIZE = Int(StringLen($PACKET)/2) Local $PREMOTETHREAD, $VBUFFER, $LOOP, $RESULT, $OPCODE, $PROCESSHANDLE, $PACKETADDRESS $PROCESSHANDLE = MEMOPEN($PID) $FUNCTIONADDRESS = DllCall($KERNEL32, "int", "VirtualAllocEx", "int", $PROCESSHANDLE, "ptr", 0, "int", 70, "int", 4096, "int", 64) $PACKETADDRESS = DllCall($KERNEL32, "int", "VirtualAllocEx", "int", $PROCESSHANDLE, "ptr", 0, "int", $PACKETSIZE, "int", 4096, "int", 64) $OPCODE &= "60" $OPCODE &= "B8" & _HEX($SENDPACKETFUNCTION) $OPCODE &= "8B0D" & _HEX($BASEADD) $OPCODE &= "8B4920" $OPCODE &= "BF" & _HEX($PACKETADDRESS[0]) $OPCODE &= "68" & _HEX($PACKETSIZE, 8) $OPCODE &= "57" $OPCODE &= "FFD0" $OPCODE &= "61" $OPCODE &= "C3" $VBUFFER = DllStructCreate("byte[" & StringLen($OPCODE) / 2 & "]") For $LOOP = 1 To DllStructGetSize($VBUFFER) DllStructSetData($VBUFFER, 1, Dec(StringMid($OPCODE, ($LOOP - 1) * 2 + 1, 2)), $LOOP) Next DllCall($KERNEL32, "int", "WriteProcessMemory", "int", $PROCESSHANDLE, "int", $FUNCTIONADDRESS[0], "int", DllStructGetPtr($VBUFFER), "int", DllStructGetSize($VBUFFER), "int", 0) $VBUFFER = DllStructCreate("byte[" & StringLen($PACKET) / 2 & "]") For $LOOP = 1 To DllStructGetSize($VBUFFER) DllStructSetData($VBUFFER, 1, Dec(StringMid($PACKET, ($LOOP - 1) * 2 + 1, 2)), $LOOP) Next DllCall($KERNEL32, "int", "WriteProcessMemory", "int", $PROCESSHANDLE, "int", $PACKETADDRESS[0], "int", DllStructGetPtr($VBUFFER), "int", DllStructGetSize($VBUFFER), "int", 0) $HREMOTETHREAD = DllCall($KERNEL32, "int", "CreateRemoteThread", "int", $PROCESSHANDLE, "int", 0, "int", 0, "int", $FUNCTIONADDRESS[0], "ptr", 0, "int", 0, "int", 0) Do $RESULT = DllCall("kernel32.dll", "int", "WaitForSingleObject", "int", $HREMOTETHREAD[0], "int", 50) Until $RESULT[0] <> 258 DllCall($KERNEL32, "int", "CloseHandle", "int", $HREMOTETHREAD[0]) DllCall($KERNEL32, "ptr", "VirtualFreeEx", "hwnd", $PROCESSHANDLE, "int", $FUNCTIONADDRESS[0], "int", 0, "int", 32768) DllCall($KERNEL32, "ptr", "VirtualFreeEx", "hwnd", $PROCESSHANDLE, "int", $PACKETADDRESS[0], "int", 0, "int", 32768) MEMCLOSE($PROCESSHANDLE) Return True EndFunc

инжект отправки пакетов?

Цитата: Upd: да, инжект кода в память происходит нормально. Проверял через CE по адресам, возвращаемым функцией VirtualAllocEx - и код и пакет пишутся по нужным адресам...

Выше написал про бряк.

Цитата: Т.к. аутоит не поддерживает ассемблер в явном виде, сделал вставку опкодом, сгенерированным CE.

Ну как тааак.. а библиотеки? Я [Ссылки могут видеть только зарегистрированные пользователи. ] использую.

$Asm = AsmInit()
AsmAdd($Asm, "mov eax, ebx")
..
..
$OPCODE = AsmGetBinary($Asm) ; возвращает с 0x в начале, поэтому
$OPCODE = StringTrimLeft($OPCODE, 2) 
дальше инжектишь

Если будут вопросы по аутоиту, пиши в скайп

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

Цитата: $OPCODE=StringReplace($OPCODE,"94939291",DWord2Str ing($PackAddr)) $OPCODE=StringReplace($OPCODE,"84838281",DWord2Str ing(Int(StringLen($PACKET)/2)))

Ну это явное извращенство. Почему изначально нельзя выделить память и сразу прописывать адрес в опкод?

[iGesha]

Цитата: Сообщение от Smertig Стоп! А где вообще ret?! Допиши в конец & "C3". Ret = return = jmp на то место, откуда вызвалась функция изначально. А у тебя твой код считается функцией, которую вызывает другой код, который создаётся в новом потоке.

Застрелите меня
Я раз 5 за всё это время ещё подумал, почему это нет ret'а во всех этих инжектах? Именно в нём, родимом, и была загвоздка. Поставил - всё заработало

Вообще, это моё первое знакомство как с AutoIt'ом, так и с WinAPI вообще. Последний раз кодил на 16-битном асме лет 10 назад и то под DOS. После этого имел дело только с низкоуровневым кодингом - контроллеры там всякие и т.п.
А велосипед изобретаю, ибо нужен не только конечный результат, а и полное понимание того, как это всё работает -)
Спасибо за легкие тычки носом в мою кривопись