ANTICHAT — форум по информационной безопасности, OSINT и технологиям

GET http://localhost/microtest.php HTTP/1.0
Accept: */*
Referer: http://localhost/1.php
Accept-Language: ru
Proxy-Connection: Keep-Alive
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.7 (build 01670); Crazy Browser 1.0.5; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
Host: localhost
Cookie: PHPSESSID=rkp4kdodkh3190l8um92hl7oe1

procedure TProxyCheckThread.Execute;
var
 sock:LongWord;
 block:u_long;
 SockAddrIn:TSockAddrIn;
 timeout:ttimeval;
 fds:TFDSet;
 rc,curr,len:integer;
 ws:TWSAData;
 send_buf, result:string;
 buf:array[0..4095] of char;

 socks5_req:record // привет
   ver:byte;
   nmet:byte;
   met:byte;
   end;
 socks5_resp:record //ответ на привет
   ver:byte;
   met:byte;
   end;
  socks5_req_TPC:record // куда подключаться
    ver:byte;
    cmd:byte;
    rsv:byte;
    atyp:byte;
    ip:u_long;
    port:u_short;
  end;
  socks5_resp_TPC:record // подключились
    ver:byte;
    cmd:byte;
    rsv:byte;
    atyp:byte;
    ip:u_long;
    port:u_short;
  end;
   

begin
 //приветствие
 socks5_req.ver:=5;
 socks5_req.nmet:=1;
 socks5_req.met:=0;
 WsaStartup($202,ws);
 //запрос соединения
 socks5_req_TPC.ver:=5;
 socks5_req_TPC.cmd:=1;
 socks5_req_TPC.rsv:=0;
 socks5_req_TPC.atyp:=1;
 socks5_req_TPC.ip:=inet_addr(Pansichar(GetipAddress(form1.edit2.Text)));
 socks5_req_TPC.port:=htons(strtoint('80'));


 block:=1;
 sock:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 if sock=LongWord(-1) then exit;
 SockAddrIn.sin_family := AF_INET;
 SockAddrIn.sin_port := htons(strtoint(PROXY_PORT));
 SockAddrIn.sin_addr.s_addr := inet_addr(Pansichar(PROXY_IP));

 ioctlsocket(sock, FIONBIO, block); // переводим сокет в неблокируемый режим
 if connect(sock, SockAddrIn, SizeOf(SockAddrIn))=SOCKET_ERROR then // пытаемся подключиться
  begin
   if WSAGetLastError=WSAEWOULDBLOCK then // проверяем что сокет перешел в неблокируемый режим
     begin
      FD_ZERO(fds);
      FD_SET(sock,fds);
      timeout.tv_sec:=strtoint(form1.Edit1.Text); // наш таймаут
      timeout.tv_usec:=0;
      rc:=select(0, nil, @fds, nil, @timeout); // ожидаем
     end;
   end;
 block:=0;
 ioctlsocket(sock, FIONBIO, block); // переводим сокет обратно в блокируемый режим
if rc=0 then
 begin
   // сработал таймаут

   synchronize(showresultbad);
 end
else
 begin
   // удачно соединились
  // запрос для http 
   send_buf:='GET http://'+form1.edit2.Text+'/ HTTP/1.1'#13#10+
              'Host: '+form1.edit2.Text+#13#10+
              'Accept: */*'+#13#10+
              'Proxy-Connection: Keep-Alive'+#13#10+
              'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.7 (build 01670); Crazy Browser 1.0.5; .NET CLR 1.1.4322; .NET CLR 2.0.50727)'#13#10#13#10; 


    send(sock,socks5_req, 3,0); // шлем привет
          len := recv(sock, socks5_resp, 2, 0); // считали данные

          if len > 0 then // если есть чтото
          begin
            //смотрим результат
            if (socks5_resp.ver=5) and(socks5_resp.met=0) then //успех
              begin

                send(sock, socks5_req_TPC, 14,0); // запрос на соединение с http сервом
                len := recv(sock,  socks5_resp_TPC, 14, 0); // считали данные
                if len > 0 then
                  if socks5_resp_TPC.cmd=0 then //успех
                    begin

                         send(sock, send_buf[1], length(send_buf),0); // шлем наднные http серву через прокси
                             len := recv(sock,  buf, 4096, 0); // читаем ответ
                             if len > 0 then
                              begin
                                result := copy(buf, 0, len);
                                if pos('200 OK', result)<>0 then result:='GOOD';
                              end;
                    end;

              end;

          end;
     if result='GOOD' then synchronize(showresultgood);

 end;
  closesocket(sock);
  synchronize(dec_count);
end;

socks5_req_TPC.ip:=inet_addr(Pansichar(GetipAddress(form1.edit2.Text)));

socks5_req_TPC.ip:=Integer(LookupName(form1.edit2.Text));

function LookupName(str: String): TInAddr;
var
  _hostEnt:PHostEnt;
  _inAddr:TInAddr;
begin
  if (str[1] in ['a'..'z']) or
      (str[2] in ['a'..'z']) then
  begin
    _hostEnt := getHostByName(pchar(str));
    FillChar(_inAddr, sizeOf(_inAddr), 0);
    if _hostEnt<>nil then
    begin
      with _hostEnt^, _inAddr do
      begin
        s_un_b.s_b1 := h_addr^[0];
        s_un_b.s_b2 := h_addr^[1];
        s_un_b.s_b3 := h_addr^[2];
        s_un_b.s_b4 := h_addr^[3];
      end;
    end;
  end
  else
    _inAddr.s_addr := inet_addr(pchar(str));
  Result:= _inAddr;
end;

SockAddrIn.sin_addr.s_addr := inet_addr(Pansichar(PROXY_IP));

SockAddrIn.sin_addr := LookupName(PROXY_IP);

send_buf:='GET http://'+form1.edit2.Text+'/ HTTP/1.1'#13#10+
              'Host: '+form1.edit2.Text+#13#10+
              'Accept: */*'+#13#10+
              'Proxy-Connection: Keep-Alive'+#13#10+
              'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.7 (build 01670); Crazy Browser 1.0.5; .NET CLR 1.1.4322; .NET CLR 2.0.50727)'#13#10#13#10;

'GET / HTTP/1.0'#13#10+
'Host: site.com'#13#10#13#10