Kérdés # 5376 ... fülledt! Be kell írni a hasonlóság szippantás programot kell passzívan pr ... (dolgozik

előző ◈ a következő

Üdvözlet, kedves szakértők!
Be kell írni a hasonlóság szippantás programot kell passzívan hallgatni egy adott portot (mivel előre ismert, amely csatlakozik a monitor a program nem kell) olyan egyszerű, mint lehetséges, és nem fázik. Mentsd meg nem lehet semmit sehova. A rendszer segítségével a szippantás kapott információt, hogy hallgat a program kommunikál a szerver segítségével HTTP vagy UDP, meg kell, hogy rögzítse, és hogy és hogy.
Mi a legegyszerűbb, hogy végre van a Delphi?
Köszönöm a segítségét.

Th gyengeség rendszer? ACC állított fel, hogy válaszoljon a saját kérdésére.
Valószínű típus, ha az emberek megkérdezték, hogy mit megoldások is, nem találom.
Nos Funny.

  1. felhasználások
  2. .
  3. const
  4. sHEADER = '[TIME] [Prot PLEN] [Forrás IP: port] [Cél IP: port] [Service] [Dlen] [Packet] [Data]';
  5. SPL = '% -12s% -4S% 4d% -20s>% -20s% -12s% 4d% s';
  6. típus
  7. TForm1 = osztály (TForm)
  8. RichEdit1: TRichEdit;
  9. Memo1: TMemo;
  10. Label1: TLabel;
  11. eljárás FormCreate (Sender: TObject);
  12. eljárás FormDestroy (Sender: TObject);
  13. magán
  15. _monRawSocket: TMonitorSocket;
  16. eljárás inicializálása ();
  17. eljárás GetPacket (Sender: TObject; PacketInfo: TPacketInfo);
  18. nyilvános
  20. végén;
  21. var
  22. Form1: TForm1;
  23. végrehajtás
  24. eljárás TForm1.FormCreate (Sender: TObject);
  25. kezdődik
  26. Inicializálja ();
  27. Memo1.Lines.Clear;
  28. Memo1.Lines.Add (LocalIpList [0]);
  29. végén;
  30. eljárás TForm1.FormDestroy (Sender: TObject);
  31. kezdődik
  32. _monRawSocket.Free;
  33. végén;
  34. eljárás TForm1.Initialize;
  35. kezdődik
  36. _monRawSocket: = TMonitorSocket.Create (ön);
  37. _monRawSocket.OnPacketEvent: = GetPacket;
  38. _monRawSocket.StartMonitor;
  39. RichEdit1.Lines.Clear;
  40. RichEdit1.SelAttributes.Color: = clMaroon;
  41. RichEdit1.Lines.Add (sHEADER);
  42. végén;
  43. eljárás TForm1.GetPacket (Sender: TObject; PacketInfo: TPacketInfo);
  44. var
  45. _srcIP, _distIP. string;
  46. _a, _B: string;
  47. kezdődik
  48. SetLength (PacketInfo.DataBuf, 96);
  49. _B: = PacketInfo.DataBuf;
  50. StringRemCntls (_b);
  51. ha PacketInfo.EtherProto = PROTO_IP majd
  52. kezdődik
  53. _srcIp: = IPToStr (PacketInfo.AddrSrc) + ':' + IntToStr (PacketInfo.PortSrc);
  54. _distip: = IPToStr (PacketInfo.AddrDest) + ':' + IntToStr (PacketInfo.PortDest);
  55. ha PacketInfo.ProtoType = IPPROTO_ICMP majd
  56. _a: = Format (sPL,
  57. [TimeToZStr (PacketInfo.PacketDT),
  58. GetIPProtoName (PacketInfo.ProtoType),
  59. Spl,
  60. _srcIp,
  61. _distIp,
  62. kisbetűs (GetICMPType (PacketInfo.IcmpType)),
  63. PacketInfo.DataLen, _b])
  64. más
  65. kezdődik
  66. ha (PacketInfo.DataLen = 0), akkor
  67. _B: = GetFlags (PacketInfo.TcpFlags);
  68. _a: = Format (sPL,
  69. [TimeToZStr (PacketInfo.PacketDT),
  70. GetIPProtoName (PacketInfo.ProtoType),
  71. PacketInfo.PacketLen,
  72. _srcIp,
  73. _distIp,
  74. A kisbetűs (GetServiceNameEx (PacketInfo.PortSrc, PacketInfo.PortDest)),
  75. PacketInfo.DataLen, _b]);
  76. végén;
  77. vég
  78. más
  79. kezdődik
  80. _a: = Format (sPL,
  81. [TimeToZStr (PacketInfo.PacketDT),
  82. GetEtherProtoName (PacketInfo.EtherProto),
  83. PacketInfo.PacketLen,
  84. MacToStr (PacketInfo.EtherSrc),
  85. MacToStr (PacketInfo.EtherDest),
  86. „”
  87. PacketInfo.DataLen,
  88. _b]);
  89. végén;
  90. RichEdit1.Lines.Add (_a);
  91. végén;

kiadja mini-fórum

Reagálni valakit.
Prompt itt Indy használat WinPCap mint egy nyakkendő, vagy más lehetőségek vannak?

Higgy földönkívüli civilizációk nem azt jelenti, hogy hinni idegenek.

Indy nem segít. (Hacsak nem írjuk meg a proxy).
Ha csak azt, hogy figyelemmel kíséri a forgalom - ez jobb letölteni Wireshark magát - ő otmonitoreny és a polcokon és a rothadás.

Tick ​​„olvasható megerősítés” - egyetemes rossz.

Nem kell, hogy az én prog, Wireshark van.
Van is egy VoicedSniffer, ami készült a Delphi és nem mondanám, hogy lóg. WinPCap driver nincs telepítve, de ez hogyan működik.

Higgy földönkívüli civilizációk nem azt jelenti, hogy hinni idegenek.

Mintegy indie néz ki ez. Tegnap fel az alakja minden összetevője, hogy kapcsolódnak a UDP, HTTP, TCP, sem bármely bitek nem kapott. Úgy tűnik, hogy vinpikapom hegedű.

Higgy földönkívüli civilizációk nem azt jelenti, hogy hinni idegenek.

Ülés után egy pár napig az interneten találtam, hogy nem vinpikapa kiiktatni. Feküdtem ki a kódot, aki hirtelen jön. Ha sok van a rendszerben sort ki magukat. Szippantás egyszerű, mint egy fillért sem, nem zárom ki feldolgozásra. Ha meg kell válaszolni (program- természetesen), hogy események egy kliens-szerver alkalmazás, akkor egyszerűen fűzze korlátozást IP adatok fogadására csak a megfelelő kiszolgáló.

Higgy földönkívüli civilizációk nem azt jelenti, hogy hinni idegenek.

Igen, miért majdnem elfelejtettem megmagyarázni kezdő X-Men, hogy a kódot hozzá a felhasználási szakasz a következő:

Monsock, WSocket, Packet32, Megnyerő, Magsubs1, Packhdrs

Tulajdonképpen a fájlokat keres az interneten dob a mappát a projekt dobjuk formájában feljegyzést és RichEdit, és előre a fényes jövő

Higgy földönkívüli civilizációk nem azt jelenti, hogy hinni idegenek.

És Mindegy, ő kapott egy egyszerű és megfagy.

Higgy földönkívüli civilizációk nem azt jelenti, hogy hinni idegenek.

végén;
Nos most már minden alap van, akkor az önálló gondolkodás.

Higgy földönkívüli civilizációk nem azt jelenti, hogy hinni idegenek.

előző ◈ a következő