Http mitschneiden

[felix96]

Hallo,
gibt es eine Möglichkeit http mit zu schneiden?
Ich hatte mir das ungefähr wie so eine Kindersicherung gedacht, die alles ungefähr so wie das Firefox-Addon "Live http headers" ausgibt:

Code: Alles auswählen

http://www.lazarusforum.de/" onclick="window.open(this.href);return false;
 
GET / HTTP/1.1
Host: http://www.lazarusforum.de" onclick="window.open(this.href);return false;
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 115
DNT: 1

Danke für's lesen

[af0815]

Google nach Fiddler !

Oder willst du einen Proxy mit Lazarus schreiben ?

[carli]

http://www.alternative-zu.de/q/tcpdump+for+Windows" onclick="window.open(this.href);return false;

Einfach TProcess mit "tcpdump -x" und die Ausgabe absaugen und parsen.

[felix96]

Das ganze sieht sehr gut aus, nur wie kann ich den Output entschlüsseln?
z.Z. kommt immer so was:

Code: Alles auswählen

(85)
 0x0000:  4500 0071 d501 0000 8011 a3d1 c0a8 0101
 0x0010:  0000 0000 0035 c31d 005d 8105 2697 8180
 0x0020:  0001 0001 0000 0000 0331 3033 0331 3438
 0x0030:  0238 3503 3230 3907 696e 2d61 6464 7204
 0x0040:  6172 7061 0000 0c00 01c0 0c00 0c00 0100
 0x0050:  003f

[felix96]

Thanks, ich muss schreiben -X

[felix96]

Hm, wenn ich den Output abfangen will, funktioniert TCPDUMP nicht, es schreibt einfach nichts.
Code:

Code: Alles auswählen

memo1.Clear;
     AProcess := TProcess.Create(nil);
      AStringList := TStringList.Create;
     AProcess.CommandLine := 'C:\tcpdump.exe -X';
      AProcess.Options := AProcess.Options + [poUsePipes];//Diese Zeile
     AProcess.Execute;AProcess.free

Wenn ich diese Zeile aber auslasse, funktionierts wunderbar.

[carli]

Das ganze sieht sehr gut aus, nur wie kann ich den Output entschlüsseln?
z.Z. kommt immer so was:

Code: Alles auswählen

(85)
 0x0000:  4500 0071 d501 0000 8011 a3d1 c0a8 0101
 0x0010:  0000 0000 0035 c31d 005d 8105 2697 8180
 0x0020:  0001 0001 0000 0000 0331 3033 0331 3438
 0x0030:  0238 3503 3230 3907 696e 2d61 6464 7204
 0x0040:  6172 7061 0000 0c00 01c0 0c00 0c00 0100
 0x0050:  003f

Das ist Hexadezimal.
Alles hinter ":" sind Daten (davor sind die Adressen), diese Blöcke a "4500" kodierst du um mit char(strtoint('$'+'45'))+char(strtoint('$'+'00'))

probiere es mal mit

Code: Alles auswählen

AProcess.options:=[pousepipes, postderrtostdout, ponewconsole];