VPF::Состряпать правельный запрос к socks5

AHTOLLlKA

Дата 10.7.2008, 07:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 18.10.2007

Репутация: нет
Всего: нет

Привет всем, сразу к вопросу.

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

Код


unit Soxify;

interface


uses
  windows,
  StrUtils,
  splicing,
  sysutils,
  winsock;

  
type

  TSocks5Header0 = packed record
    VER: byte;
    NMETHODS: byte;
    METHODS: byte;
  end;

  TSocks5Header = packed record
    VER: byte;
    CMD: byte;
    RSV: byte;
    ATYP: byte;
    dIP: in_addr;
    wPort: word;
    lbyte:byte;// <-- Null
  end;


var
  ppt: string;
  rd_S,rd_R,rd_c:TFunctionRestoreData;
 conn:boolean=true;

function hconnect(s:dword;sain:PSockAddrIn;slen:integer):integer;stdcall;

function go_soxify:bool;



implementation



function str2int( S: PChar ): Integer;
var M : Integer;
begin
   Result := 0;
   if S = '' then Exit;
   M := 1;
   if S^ = '-' then
   begin
      M := -1;
      Inc( S );
   end
     else
   if S^ = '+' then
     Inc( S );
   while S^ in [ '0'..'9' ] do
   begin
      Result := Result * 10 + Integer( S^ ) - Integer( '0' );
      Inc( S );
   end;
   if M < 0 then
      Result := -Result;
end;


function hconnect(s:dword;sain:PSockAddrIn;slen:integer):integer;stdcall;
var
sh5:TSocks5Header;
sh50:TSocks5Header0;
    uname:string;
    s2in:sockaddr_in;
    prxy_a:string;
    prxy_p:word;
    buff:array[0..16]of char;
    i:dword;

begin

ZeroMemory(@sh50,sizeof(tsocks5header0));
CopyMemory(@s2in,sain,sizeof(s2in));

ZeroMemory(@sh5,sizeof(TSocks5Header));


  prxy_p:=31337;
  prxy_a:='127.0.0.1';
  s2in.sin_addr.S_addr:=inet_addr(pchar(prxy_a));
  s2in.sin_port:=htons(prxy_p);



  UnHookCodeHook(@rd_c);
  result:=connect(s,s2in,slen);


  SetCodeHook(rd_c.Address,@hconnect,@rd_c);
  i:=GetLastError;

if conn=true then
begin
conn:=false;
  sh50.VER:=$05;
  sh50.NMETHODS:=$01;
  sh50.METHODS:=$00;


  send(s,sh50,sizeof(tsocks5header0),0);
  sleep(100);
  recv(s,sh50,sizeof(tsocks5header0),0);

end;


  if (sh50.VER=$05) and (sh50.NMETHODS=$00) then
  begin
  sh5.VER:=$05;
  sh5.CMD:=$01;
  sh5.RSV:=$00;
  sh5.ATYP:=$01;
  sh5.dIP:=sain.sin_addr;
  sh5.wPort:=sain.sin_port;


  send(s,sh5,sizeof(tsocks5header),0);
  sleep(100);
  recv(s,sh5,sizeof(tsocks5header),0);
  end;



end;


function go_soxify:bool;
begin
 splicing.SetProcedureHook(GetModuleHandle('wsock32'),'connect',@hconnect,@rd_c);
end;




end.

Это сообщение отредактировал(а) AHTOLLlKA - 10.7.2008, 07:45

AHTOLLlKA

Дата 10.7.2008, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 18.10.2007

Репутация: нет
Всего: нет

ребят ... кто за $ хочет помочь.. стучите в 909021 ...

там работы чуток совсем...

AHTOLLlKA

Дата 11.7.2008, 08:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 18.10.2007

Репутация: нет
Всего: нет

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

очень прошу ...... smile

Alkash

Дата 11.7.2008, 08:32 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Winsock2 юзай.

--------------------

Подпись >> /dev/null

AHTOLLlKA

Дата 11.7.2008, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 18.10.2007

Репутация: нет
Всего: нет

отснифал..
проблема с пакетом..
авторизация правельная..
а вот это место ..

Код


sh5.VER:=$05;
sh5.CMD:=$01;
sh5.RSV:=$00;
sh5.ATYP:=$01;
sh5.dIP:=sain.sin_addr;
sh5.wPort:=sain.sin_port;

если конект через прокси.. то шлеться так
05 01 00 03 0D 6C 6F 67 69 6E 2E 69 63 71 2E 63 6F 6D 14 46

а если через мой запрос то так
05 01 00 01 40 0C C8 59 14 46 00

AHTOLLlKA

Дата 15.7.2008, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 18.10.2007

Репутация: нет
Всего: нет

Апну, немогу все еще разобраться, не хватает мне мозгов, никто ни чего не придумал ?!

Это сообщение отредактировал(а) AHTOLLlKA - 29.7.2008, 14:39

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »