TCP/IP Packets: Sender IP

[moritz]

Hi Leute,

gibt es die Möglichkeit, ein IP-Paket selber aufzubauen und zu versenden, und die Antwort davon auszuwerten?

Gruß, Moritz

[Phistev]

Darf ich mal fragen, wieso du IP-Pakete senden und empfangen möchtest? Unter diesem Protokoll ist nur noch die Netzwerkkarte => hardwarenahes Programmieren (TCP/IP basiert auf einem Schicht-Modell). Normalerweise sollten Sockets ausreichen, es sei denn, du willst ein Diagnoseprogramm schreiben

[moritz]

Aus Interesse, wie es funktioniert.

[Mephistopheles]

http://winpcap.polito.it/

[moritz]

Danke, werd es mir anschauen!

[Aenogym]

Zitat:

Zitat von Mephistopheles

http://winpcap.polito.it/

wird auch von neXBC genutzt. funktioniert wohl ziemlich gut^^
[ot]da fällt mir ein,d ass ich mal wieder halo2 online zoggen muss :mrgreen:[/ot]

aenogym

[moritz]

Ich hab mich jetzt etwas durch die MSDN gekämpft, und folgendes ist dabei rausgekommen:

Delphi-Quellcode:

var
  lwsaData: WSADATA;
  lsocket: TSOCKET;
  clientService: sockaddr_in;
  bytesSent: Integer;
  bytesRecv: Integer;
  sendbuf: Array[0..31] of Char;
  recvbuf: Array[0..31] of Char;
begin
  if WSAStartup(MAKEWORD(2,2), lwsaData) <> NO_ERROR then
    Exit;

  lsocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

  if lsocket = INVALID_SOCKET then
    Exit;

  clientService.sin_family := AF_INET;
  clientService.sin_addr.s_addr := inet_addr('128.30.52.24');  //w3c's ip-adress
  clientService.sin_port := htons(80); // port 7 to send echo's

  if connect(lsocket, TSockAddr(clientService), sizeof(clientService)) = SOCKET_ERROR then
    ShowMessage('N');



  sendbuf := 'GET / HTTP/1.1'+#13#10+'Host: w3c.org';
  bytesRecv := SOCKET_ERROR;
  bytesSent := send(lsocket, sendbuf, strlen(sendbuf), 0);
  ShowMessage(IntToStr(bytesSent) + ' bytes sent out there');

  while bytesRecv = SOCKET_ERROR do
  begin
    ShowMessage(IntToStr(bytesRecv));
    bytesRecv := recv(lSocket, recvbuf, 32, 0);
    ShowMessage(IntToStr(bytesRecv));
    if (bytesRecv = 0) or (bytesRecv = WSAECONNRESET) then
      ShowMessage('closed');
    Application.ProcessMessages;
  end;


  WSACleanup();


  ShowMessage('j');

Allerdings bekomme ich keine Antwort.

Gruß, Moritz

P.S.: Das ist zwar nicht ganz das, was ich will, da ich nicht an die IP Header rankomm, aber es ist ein guter Kompromiss.

[neolithos]

Delphi-Quellcode:

sendbuf := 'GET / HTTP/1.1'+#13#10#13#10

Versuch es erstmal so!