Предишен ◈ Следващото

Поздрави, скъпи Експерти!
Вие трябва да напишете програмата сходство обучени трябва пасивно да слушате до определено пристанище (той е известен предварително, което е свързано с наблюдение на програмата, не е необходимо да се) да бъде толкова просто, колкото е възможно и да не замръзва. Запазване не трябва да бъде всичко и навсякъде. С помощта на специално обучени е получил информация, че са слушане на програмата комуникира със сървъра с помощта на HTTP или UDP, трябва да се улови, и това и това.
Какво е най-лесният за изпълнение е в Делфи?
Благодаря за помощта.

Тата за дебилност система? ACC е създадена, за да отговори на собствения си въпрос.
Вероятен вид, че ако хората попитах какво решения Е, аз не намирам.
Ами смешно.

  1. употреби
  2. .
  3. конст
  4. sHEADER = '[TIME] [Prot PLEN] [Източник IP: Port] [Цел IP: Port] [услуга] [DLEN] [Packet] [Data] ";
  5. SPL = '% -12s% -4s% 4d% -20s>% -20s% -12s% 4d% S';
  6. тип
  7. TForm1 = клас (TForm)
  8. RichEdit1: TRichEdit;
  9. Memo1: TMemo;
  10. Label1: TLabel;
  11. процедура FormCreate (Sender: TObject);
  12. процедура FormDestroy (Sender: TObject);
  13. частен
  15. _monRawSocket: TMonitorSocket;
  16. процедура Initialize ();
  17. процедура GetPacket (Sender: TObject; PacketInfo: TPacketInfo);
  18. обществен
  20. приключи;
  21. Var
  22. Form1: TForm1;
  23. изпълнение
  24. процедура TForm1.FormCreate (Sender: TObject);
  25. започвам
  26. Initialize ();
  27. Memo1.Lines.Clear;
  28. Memo1.Lines.Add (LocalIpList [0]);
  29. приключи;
  30. процедура TForm1.FormDestroy (Sender: TObject);
  31. започвам
  32. _monRawSocket.Free;
  33. приключи;
  34. процедура TForm1.Initialize;
  35. започвам
  36. _monRawSocket: = TMonitorSocket.Create (самостоятелно);
  37. _monRawSocket.OnPacketEvent: = GetPacket;
  38. _monRawSocket.StartMonitor;
  39. RichEdit1.Lines.Clear;
  40. RichEdit1.SelAttributes.Color: = clMaroon;
  41. RichEdit1.Lines.Add (sHEADER);
  42. приключи;
  43. процедура TForm1.GetPacket (Sender: TObject; PacketInfo: TPacketInfo);
  44. Var
  45. _srcIP, _distIP. String;
  46. _A, _b: низ;
  47. започвам
  48. SetLength (PacketInfo.DataBuf, 96);
  49. _b: = PacketInfo.DataBuf;
  50. StringRemCntls (_b);
  51. ако PacketInfo.EtherProto = PROTO_IP тогава
  52. започвам
  53. _srcIp: = IPToStr (PacketInfo.AddrSrc) + ':' + IntToStr (PacketInfo.PortSrc);
  54. _distip: = IPToStr (PacketInfo.AddrDest) + ':' + IntToStr (PacketInfo.PortDest);
  55. ако PacketInfo.ProtoType = IPPROTO_ICMP тогава
  56. _A: = Формат (SPL,
  57. [TimeToZStr (PacketInfo.PacketDT),
  58. GetIPProtoName (PacketInfo.ProtoType),
  59. Spl,
  60. _srcIp,
  61. _distIp,
  62. малки (GetICMPType (PacketInfo.IcmpType)),
  63. PacketInfo.DataLen, _b])
  64. още
  65. започвам
  66. ако (PacketInfo.DataLen = 0), тогава
  67. _b: = GetFlags (PacketInfo.TcpFlags);
  68. _A: = Формат (SPL,
  69. [TimeToZStr (PacketInfo.PacketDT),
  70. GetIPProtoName (PacketInfo.ProtoType),
  71. PacketInfo.PacketLen,
  72. _srcIp,
  73. _distIp,
  74. Малки букви (GetServiceNameEx (PacketInfo.PortSrc, PacketInfo.PortDest)),
  75. PacketInfo.DataLen, _b]);
  76. приключи;
  77. край
  78. още
  79. започвам
  80. _A: = Формат (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. приключи;
  90. RichEdit1.Lines.Add (_A);
  91. приключи;

издадат мини-форум

Отговаряйте някого.
Prompt тук Indy употреба, WinPcap като равенство, или други възможности има?

Вярвайте в извънземни цивилизации не е средство за вярват в извънземни.

Инди не помага. (Освен ако не напишете своя пълномощник).
Ако просто искате да следите движението - по-добре е да изтеглите Wireshark себе си - той otmonitoreny и по рафтовете на магазините и гниене.

Tick ​​"прочете потвърждение" - универсален зло.

Не се нуждаят от нея в моя прог, Wireshark, което имам.
Налице е също така VoicedSniffer, който е направен, за да Delphi и аз не бих казал, че виси. WinPcap шофьор не е инсталиран, но това е как тя работи.

Вярвайте в извънземни цивилизации не е средство за вярват в извънземни.

За инди изглежда, че е така. Вчера облече формата на всички компоненти, които се отнасят до UDP, HTTP, TCP, нито каквито и да било бита не са получени. Тя изглежда да има vinpikapom цигулка.

Вярвайте в извънземни цивилизации не е средство за вярват в извънземни.

След седи в продължение на няколко дни в интернет открих, че без vinpikapa прескочена. Лежах на кода, който изведнъж дойде по-удобно. Ако имате много адаптери в него система за сортиране на себе си. Sniffer просто като една стотинка, не изключвам обработени. Ако трябва да се отговори (програмно естествено) на събитията в клиентското приложение на сървъра след това просто добавете ограничение от IP, за да получите данни само от правилния сървър.

Вярвайте в извънземни цивилизации не е средство за вярват в извънземни.

Да, защо да щях да забравя да обясни новак X-Men, че кода, за да добавите към секцията Употреби от следните неща:

Monsock, WSocket, Packet32, Winsock, Magsubs1, Packhdrs

Всъщност файловете, които търсите в интернет хвърля в папката с проекта, ние хвърлят под формата на бележка и RichEdit, и препращат към светло бъдеще

Вярвайте в извънземни цивилизации не е средство за вярват в извънземни.

И Все пак, тя има един прост и замръзва.

Вярвайте в извънземни цивилизации не е средство за вярват в извънземни.

приключи;
Е, сега всичко база там, а след това мисля за себе си.

Вярвайте в извънземни цивилизации не е средство за вярват в извънземни.

Подкрепете проекта - споделете линка, благодаря!