Delphi Winsock ProxyServer Делфи Винсок ПроксиСервер

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  winsock,
  Windows;
 
var
info: WSADATA;
sin: sockaddr_in;
myip: PHostEnt;
sHwnd,i: integer;
sBuff1:string;
HostName: AnsiString;
se,re:ansistring;
 sBuff: array [0..5000] of Char;
 rBuff: array [0..5000] of AnsiChar;
begin
 
se:=
'GET [url]http://click.wmlink.ru/UWHHZAFMZWQUWUWQFAMMUURNM3ZR3Z?rnd=1364311.020979[/url] HTTP/1.1' + #13#10 +
'Content-Type: application/x-www-form-urlencoded' + #13#10 +
'Host: click.wmlink.ru' + #13#10 +
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' + #13#10 +
'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7' + #13#10 +
'Accept-Encoding: identity' + #13#10 +
'Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3' + #13#10 +
'Referer: [url]http://systemxxmedia.wen.ru[/url]' + #13#10 +
'User-Agent: Mozilla/2.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12'  +
#13#10+#13#10;
CopyMemory(@sBuff,pchar(se),length(se));
 
WSAStartup($101,info);
sHwnd:=Socket(AF_INET, SOCK_STREAM, 0);
sin.sin_family:=AF_INET;
sin.sin_port:=htons(3128);
sin.sin_addr.S_addr:=inet_addr('1.234.2.38');
 
connect(sHwnd, sin, sizeof(TSockAddr));
 
send(sHwnd, sBuff[0], length(se), 0);
 
recv(sHwnd, rBuff[0], Length(rBuff), 0);
recv(sHwnd, rBuff[0], Length(rBuff), 0);
 
writeln(String(rBuff));
readln;
 
Closesocket(sHwnd);
WSACleanup;
end.