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

function Upload(AURL, AFile: string): string;
var formData: TIdMultiPartFormDataStream;
begin
  formData := TIdMultiPartFormDataStream.Create;
  try
    // Добаляю параметры в formData
    // и файл:
    formData.AddFile('upsingle',AFile,GetContentType(AFile));
    try
      Result := idHTTP.Post(AURL,formData);
    except
      Result := '';
    end;
  finally
    formData.Free;
  end;
end;

WSAStartup(MAKEWORD(2,0), wsaData);

while not terminated do
  begin        
        sleep(60000);
        s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
        FillChar(addr, SizeOf(sockaddr_in), 0);
        addr.sin_family:=AF_Inet;
        addr.sin_addr.S_addr:=inet_addr('111.22.33.44');
        addr.sin_port:=htons(80);
        Connect(S,addr,SizeOf(TSockAddr));
        sendbuff := 
           'GET / HTTP/1.1'+ #13#10 +
           'Host: 111.22.33.44'+ #13#10#13#10;
        send(s, sendbuff[1] , Length(sendbuff), 0);
        closesocket(s);
  end;

WSACleanup;