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

procedure zapros;
var Site : PChar;
   sock : TSocket;
   WSA : TWSAData;
   addr : sockaddr_in;
   sendbuff : String;
   PostData : String;


  f:TextFile;
  i:integer;
  buf:array[0..255] of char;
begin

if WSAStartup($0101, WSA) <> 0 then
Exit;
sock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
FillChar(addr, SizeOf(sockaddr_in), 0);
addr.sin_family := AF_INET;
addr.sin_port := htons(80); //порт прокси
Site := 'www.google.ru';
addr.sin_addr.s_addr :=inet_addr('200.7.196.141'); //адрес прокси

Connect(sock, addr, SizeOf(addr));
 sendbuff := 'GET http://www.google.ru HTTP/1.0'#13#10+
'Accept: */*;q=0.1'#13#10+
'Referer: http://www.google.ru/search?hl=ru&newwindow=1&q=zzz&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=&aq=f&oq='#13#10+
'Accept-Language: ru'#13#10+
'Proxy-Connection: Keep-Alive'#13#10+
'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.8 (build 01709); .NET CLR 1.1.4322)'#13#10+
'Host: www.google.ru'#13#10#13#10;

       send(sock, sendbuff [1], Length(sendbuff), 0);
       AssignFile(f, 'zzz.html');
          Rewrite(f);
         repeat
            i := recv(sock, buf, sizeof(255), 0);
             write(f, copy(buf,1,i));

          until
            (i = 0) or (i = SOCKET_ERROR);

       CloseSocket(sock);
        CloseFile(f);
     end;


procedure TForm1.Button1Click(Sender: TObject);
var
Potok : THandle;
begin
Potok:=CreateThread(nil,0,@zapros,0,0,Potok);
end;