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

addr.sin_addr.S_addr:=inet_addr(pchar('1'));

Site : PChar;
HostEnt : PHostEnt;
......
Site := 'www.virustotal.com;             
HostEnt := gethostbyname(Site);
addr.sin_addr.s_addr := Longint(PLongint(HostEnt^.h_addr_list^)^);

procedure TForm1.Button1Click(Sender: TObject);
var Site : PChar;
   sock : TSocket;
   HostEnt : PHostEnt;
   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.virustotal.com';  //хост
HostEnt := gethostbyname(Site);
addr.sin_addr.s_addr := Longint(PLongint(HostEnt^.h_addr_list^)^);

Connect(sock, addr, SizeOf(addr)); //соединяемся


       sendbuff := 'GET http://www.virustotal.com/vt/en/identificador HTTP/1.1'+#13#10+
'User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.01'+#13#10+
'Host: www.virustotal.com'+#13#10+
'Referer: http://www.virustotal.com/ru/'+#13#10+
'Cookie: idioma=ru'+#13#10+
'Cookie2: $Version=1'+#13#10+
'Connection: Keep-Alive'+#13#10+#13#10; //пакет

send(sock, sendbuff [1], Length(sendbuff), 0); //отправляем пакет


end;