开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 查看源码
IngusPacket.pas
资源名称：whocq2src.zip　[点击查看]
上传用户：sunrenlu
上传日期：2007-01-08
资源大小：199k
文件大小：9k
源码类别：

Internet/网络编程

开发平台：

Delphi

IngusPacket.pas：源码内容
  1. {
  2.   Helper to handle packet
  3.   ----------------------------------
  4.   Writen by: Jagad (don@indo.net.id)
  5.   Updates by FP (francois.piette@pophost.eunet.be, http://www.rtfm.be/fpiette)
  6.   May 12, 1999  FPiette  Added UDP Support
  7.   May 14, 1999: Jagad    Add Length property at TIngusIPPacket
  8. }
  9. unit IngusPacket;
  11. interface
  13. uses windows, Protohdr, Ingusclass;
  15. type
  16. (*
  17. typedef struct tagTRANSPORT_PROTOCOLS {
  18. UCHAR Protocol;
  19. TCHAR szName[20];
  20. TCHAR szDescription[MAX_PATH];
  21. } TRANSPORT_PROTOCOLS, *LPTRANSPORT_PROTOCOLS;
  22. *)
  24. tagTRANSPORT_PROTOCOLS = packed record
  25.   Protocol: UCHAR;
  26.   szName: array [0..19] of Char;
  27.   szDescription: array[0..MAX_PATH-1] of Char;
  28. end;
  29. TRANSPORT_PROTOCOLS = tagTRANSPORT_PROTOCOLS;
  30. LPTRANSPORT_PROTOCOLS = ^TRANSPORT_PROTOCOLS;
  32. (*
  33. //see rfc1340.txt
  34. TRANSPORT_PROTOCOLS transProtos[] = {
  35. {1 , "ICMP",    "Internet Control Message" },
  36. {2 , "IGMP",    "Internet Group Management"},
  37. {3 , "GGP" ,    "Gateway-to-Gateway"},
  38. {4 , "IP"  ,    "IP in IP (encasulation)"},
  39. {5 , "ST"  ,    "Stream"},
  40. {6 , "TCP" ,    "Transmission Control"},
  41. {8 , "EGP" ,    "Exterior Gateway Protocol"},
  42. {9 , "IGP" ,    "any private interior gateway"},
  43. {17, "UDP" ,    "User Datagram"},
  44. {27, "RDP" ,    "Reliable Data Protocol"},
  45. {28, "IRTP",    "Internet Reliable Transaction"},
  46. {29, "ISO-TP4" ,  "ISO Transport Protocol Class 4"},
  47. {35, "IDPR"    ,  "Inter-Domain Policy Routing Protocol"},
  48. {37, "DDP"     ,  "Datagram Delivery Protocol"},
  49. {38, "IDPR-CMTP", "IDPR Control Message Transport Proto"},
  50. {88, "IGRP"     , "IGRP"},
  51. {89, "OSPFIGP"  , "OSPFIGP"},
  52. {92, "MTP"      , "Multicast Transport Protocol"},
  53. {94, "IPIP"     , "IP-within-IP Encapsulation Protocol"},
  54. {97, "ETHERIP"  , "Ethernet-within-IP Encapsulation"},
  55. {98, "ENCAP"    , "Encapsulation Header"}
  56. };
  57. #define TRANSPROTOS_MAX (sizeof(transProtos)/sizeof(TRANSPORT_PROTOCOLS))
  58. *)
  59. TRANSPORT_PROTOCOLS_ARRAY = array [0..20] of TRANSPORT_PROTOCOLS;
  60. const
  61.     transProtos: TRANSPORT_PROTOCOLS_ARRAY = (
  62.     (Protocol: 1;     szName: 'ICMP';      szDescription: 'Internet Control Message'),
  63.     (Protocol: 2;     szName: 'IGMP';      szDescription: 'Internet Group Management'),
  64.     (Protocol: 3;     szName: 'GGP';       szDescription: 'Gateway-to-Gateway'),
  65.     (Protocol: 4;     szName: 'IP' ;       szDescription: 'IP in IP (encasulation)'),
  66.     (Protocol: 5;     szName: 'ST' ;       szDescription: 'Stream'),
  67.     (Protocol: 6;     szName: 'TCP';       szDescription: 'Transmission Control'),
  68.     (Protocol: 8;     szName: 'EGP';       szDescription: 'Exterior Gateway Protocol'),
  69.     (Protocol: 9;     szName: 'IGP';       szDescription: 'any private interior gateway'),
  70.     (Protocol: 17;    szName: 'UDP';       szDescription: 'User Datagram'),
  71.     (Protocol: 27;    szName: 'RDP';       szDescription: 'Reliable Data Protocol'),
  72.     (Protocol: 28;    szName: 'IRTP';      szDescription: 'Internet Reliable Transaction'),
  73.     (Protocol: 29;    szName: 'ISO-TP4';   szDescription: 'ISO Transport Protocol Class 4'),
  74.     (Protocol: 35;    szName: 'IDPR'   ;   szDescription: 'Inter-Domain Policy Routing Protocol'),
  75.     (Protocol: 37;    szName: 'DDP'    ;   szDescription: 'Datagram Delivery Protocol'),
  76.     (Protocol: 38;    szName: 'IDPR-CMTP'; szDescription: 'IDPR Control Message Transport Proto'),
  77.     (Protocol: 88;    szName: 'IGRP'    ;  szDescription: 'IGRP'),
  78.     (Protocol: 89;    szName: 'OSPFIGP' ;  szDescription: 'OSPFIGP'),
  79.     (Protocol: 92;    szName: 'MTP'     ;  szDescription: 'Multicast Transport Protocol'),
  80.     (Protocol: 94;    szName: 'IPIP'    ;  szDescription: 'IP-within-IP Encapsulation Protocol'),
  81.     (Protocol: 97;    szName: 'ETHERIP' ;  szDescription: 'Ethernet-within-IP Encapsulation'),
  82.     (Protocol: 98;    szName: 'ENCAP'   ;  szDescription: 'Encapsulation Header')
  83. );
  85. const
  86.   TRANSPROTOS_MAX = 20; //it's Delphi :)
  88. (*
  89. typedef struct _XICMPProto{
  90.     UCHAR icmp_type;
  91. UCHAR icmp_code;
  92. USHORT icmp_cksum;
  93. ULONG filler;
  94. }XICMP_HDR, *PXICMP_HDR;
  95. *)
  97. type
  98. _XICMPProto = packed record
  99.   icmp_type: UCHAR;
  100.   icmp_code: UCHAR;
  101.   icmp_cksum: SHORT;
  102.   filler: ULONG;
  103. end;
  104. XICMP_HDR = _XICMPProto;
  105. PXICMP_HDR = ^XICMP_HDR;
  107. (*
  108. typedef struct _XARPProto{
  109.     USHORT  ar_hwtype;
  110.     USHORT  ar_prtype;
  111.     UCHAR   ar_hwlen;
  112.     UCHAR   ar_prlen;
  113.     UCHAR   ar_op;
  114.     char    ar_addr[1];
  115. }XARP_HDR, *XPARP_HDR;
  116. *)
  118. _XARPProto = packed record
  119.   ar_hwtype: SHORT;
  120.   ar_prtype: SHORT;
  121.   ar_hwlen: UCHAR;
  122.   ar_prlen: UCHAR;
  123.   ar_op: UCHAR;
  124.   ar_addr: array[0..0] of Char;
  125. end;
  127. (*
  128. #define ARP_REQUEST     1
  129. #define ARP_REPLY       2
  130. #define RARP_REQUEST    3
  131. #define RARP_REPLY      4
  132. *)
  133. const
  134.   ARP_REQUEST  =    1;
  135.   ARP_REPLY    =    2;
  136.   RARP_REQUEST =    3;
  137.   RARP_REPLY   =    4;
  139. type
  140.   //
  141.   //This classes will allow to trap event based on type of packet
  142.   //
  143.   TIngusIPPacket = class(TIngusPacketBase)
  144.   private
  145.     FIPProto: integer;
  146.     FIPSourceAddr: PChar;
  147.     FIPDestAddr: PChar;
  148.     FData: PChar;
  149.     FpIPHdr: PIP_RHDR;
  150.     FIPLength: integer;
  151.   protected
  152.   public
  153.     constructor Create(MacAddr: PChar; uBuffer: PChar); override;
  154.     destructor Destroy; override;
  156.     property IPProtocol: integer read FIPProto;
  157.     property IPHeader: PIP_RHDR read FpIPHdr;
  158.     property IPSourceAddr: PChar read FIPSourceAddr;
  159.     property IPDestAddr: PChar read FIPDestAddr;
  160.     property IPData: PChar read FData;
  161.     property IPLength: integer read FIPLength;
  162.   end;
  164.   TIngusICMPPacket = class(TIngusIPPacket)
  165.   private
  166.     FIcmpType: UCHAR;
  167.     FIcmpCode: UCHAR;
  168.     FpIcmpHdr: PXICMP_HDR;
  169.   protected
  170.   public
  171.     constructor Create(MacAddr: PChar; uBuffer: PChar); override;
  172.     destructor Destroy; override;
  174.     property ICMPHdr: PXICMP_HDR read FpIcmpHdr;
  175.     property ICMPType: UCHAR read FIcmpType;
  176.     property ICMPCode: UCHAR read FIcmpCode;
  178.   end;
  180.   TIngusTCPPacket = class(TIngusIPPacket)
  181.   private
  182.     FSourcePort: SHORT;
  183.     FDestPort: SHORT;
  184.     FSeq: ULONG;
  185.     FAck: ULONG;
  186.     FFlag: integer;
  187.     FTCPHdr: PTCP_RHDR;
  188.   protected
  189.     function GetFlag: integer;
  190.   public
  191.     constructor Create(MacAddr: PChar; uBuffer: PChar); override;
  192.     destructor Destroy; override;
  194.     property TCPHeader: PTCP_RHDR read FTCPHdr;
  195.     property SourcePort: SHORT read FSourcePort;
  196.     property DestPort: SHORT read FDestPort;
  197.     property SeqNum: ULONG read FSeq;
  198.     property AckNum: ULONG read FAck;
  199.     property Flag: integer read FFlag;
  200.   end;
  202.   TIngusUDPPacket = class(TIngusIPPacket)
  203.   private
  204.     FSourcePort: SHORT;
  205.     FDestPort: SHORT;
  206.     FUDPHdr: PUDP_RHDR;
  207.   public
  208.     constructor Create(MacAddr: PChar; uBuffer: PChar); override;
  209.     property UDPHeader: PUDP_RHDR read FUDPHdr;
  210.     property SourcePort: SHORT read FSourcePort;
  211.     property DestPort: SHORT read FDestPort;
  212.   end;
  214. implementation
  216. //------ TIngusUDPPacket ------//
  217. constructor TIngusUDPPacket.Create(MacAddr: PChar; uBuffer: PChar);
  218. begin
  219.   inherited Create(MacAddr, uBuffer);
  220.   FUDPHdr     := PUDP_RHDR(IPData);
  221.   FSourcePort := TOUSHORT(@(FUDPHdr^.Source[0]));
  222.   FDestPort   := TOUSHORT(@(FUDPHdr^.Destination[0]));
  223. end;
  225. //------ TIngusTCPPacket ------//
  226. function TIngusTCPPacket.GetFlag: integer;
  227. begin
  228.   Result := FTCPHdr^.Flags_Rsvd1 and $FC;
  229.   if Result <> 0 then
  230.     Result := FTCPHdr^.Flags_Rsvd1 div $4; //Shift Right 2 bits
  231. end;
  233. constructor TIngusTCPPacket.Create(MacAddr: PChar; uBuffer: PChar);
  234. begin
  235.   inherited Create(MacAddr, uBuffer);
  236.   FTCPHdr := PTCP_RHDR(IPData);
  237.   FSourcePort := TOUSHORT(@(FTCPHdr^.Source[0]));
  238.   FDestPort := TOUSHORT(@(FTCPHdr^.Destination[0]));
  239.   FSeq := TOULONG(@(FTCPHdr^.Seq[0]));
  240.   FAck := TOULONG(@(FTCPHdr^.Ack[0]));
  241.   FFlag := GetFlag;
  242. end;
  244. destructor TIngusTCPPacket.Destroy;
  245. begin
  246.   //...
  247.   inherited Destroy;
  248. end;
  250. //----- TIngusIPPacket -----//
  251. constructor TIngusIPPacket.Create(MacAddr: PChar; uBuffer: PChar);
  252. begin
  253.   inherited Create(MacAddr, uBuffer);
  254.   FpIPHdr := PIP_RHDR(EthernetData);
  255.   FIPSourceAddr := @(FpIPHdr^.Source[0]);
  256.   FIPDestAddr := @(FpIPHdr^.Destination[0]);
  257.   FData := @(FpIPHdr^.Data[0]);
  258.   FIPProto := FpIPHdr^.Protocol;
  259.   FIPLength := TOUSHORT(@(FpIPHdr^.Length[0]));
  260. end;
  262. destructor TIngusIPPacket.Destroy;
  263. begin
  264.   //...
  265.   inherited Destroy;
  266. end;
  268. //----- TIngusICMPPacket -----//
  270. constructor TIngusICMPPacket.Create(MacAddr: PChar; uBuffer: PChar);
  271. begin
  272.   inherited Create(MacAddr, uBuffer);
  273.   FpIcmpHdr := PXICMP_HDR(IPData);
  274.   FIcmpType := FpIcmpHdr^.icmp_type;
  275.   FIcmpCode := FpIcmpHdr^.icmp_code;
  276. end;
  278. destructor TIngusICMPPacket.Destroy;
  279. begin
  280.   //...
  281.   inherited Destroy;
  282. end;
  284. end.