for supernewbie (логово извращенцев)

[supernewbie]

переменные параметры говорите... а вот это посложней...

вот у меня щас так робит всё

TSendPacket = packed record
  unknown:pointer;
  size:pchar;
  id:byte;
  end;

procedure SendPacketHook(np:TSendPacket); stdcall;

[destructor]

не правильно

[supernewbie]

однако работает

[destructor]

где тут указатель на строчку?

Добавлено через 37 секунд
хотя вижу...

[supernewbie]

вот только как сделать переменное кол-во параметров, массив нельзя...

[destructor]

Сообщение от supernewbie

np:TSendPacket

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

[supernewbie]

няяяяя, там еще в параметрах массив может быть

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

Сообщение от destructor

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

всмысле? @np так чтоли?

[destructor]

угу

[supernewbie]

ммм, сделал вот так пока что...

procedure SendPacketHook(np:TSendPacket); stdcall;
var
  p:pointer;
  data:array of pointer;
  i,j:integer;
  s:string;
begin
try
SetLength(data,length(np.size));
s:='';
for i:=0 to length(np.size)-1 do
begin
asm
pop eax
mov p, eax
end;
data[(length(np.size)-1)-i]:=p;
j:=-1;
if np.size[(length(np.size)-1)-i]='c' then j:=0;
if np.size[(length(np.size)-1)-i]='h' then j:=1;
if np.size[(length(np.size)-1)-i]='d' then j:=2;
if np.size[(length(np.size)-1)-i]='f' then j:=3;
if np.size[(length(np.size)-1)-i]='s' then j:=4;
if np.size[(length(np.size)-1)-i]='b' then j:=5;
if np.size[(length(np.size)-1)-i]='q' then j:=6;
case j of
0: s:=inttostr(byte(p^))+'; '+s;
1: s:=inttostr(word(p^))+'; '+s;
2: s:=inttostr(dword(p^))+'; '+s;
3: s:=floattostr(double(p^))+'; '+s;
4: s:=pchar(p)+'; '+s;
5: s:=inttostr(int64(p^))+'; '+s;
6: s:=inttostr(Int64(p^))+'; '+s;    
end;

надо разобратся что такое b

блин не, эт не работает... нука попробую через дестроевский способ..

Добавлено через 20 минут
о, а дестроевский робит)

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

procedure SendPacketHook(np:TSendPacket); stdcall;
var
  p:pointer;
  data:array of pointer;
  i:integer;
begin
try
SetLength(data,length(np.size));
p:=@np;
p:=Pointer(Cardinal(p)+$0C);
data[0]:=@np.id;
for i:=1 to length(np.size) do
begin
data[i]:=p;
p:=pointer(Cardinal(p)+4);
end;
messagebox(0,PChar(inttohex(np.id,2)+'; '+np.size),'FromClient',0);
except
messagebox(0,PChar('error'),'FromClient',0);
end;
end;

вот короче как-то так

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

if length(data)>1 then
for i:=length(data)-1 downto 1 do
asm
push data[i]
end;
asm
push data[0]
push np.size
push np.unknown
jmp SendPacketOrig
end;

блин, опять херня какая-то(

[alexteam]

Оффтоп

омг. аццкий код.

if np.size[(length(np.size)-1)-i]='c' then j:=0;
if np.size[(length(np.size)-1)-i]='h' then j:=1;
if np.size[(length(np.size)-1)-i]='d' then j:=2;
if np.size[(length(np.size)-1)-i]='f' then j:=3;
if np.size[(length(np.size)-1)-i]='s' then j:=4;
if np.size[(length(np.size)-1)-i]='b' then j:=5;
if np.size[(length(np.size)-1)-i]='q' then j:=6;
//и остальной бред %) 
 

b - это блок бинарных данных.