protohdr.pas

可探索指定IP地址段内的所有OICQ用户号码

unit Protohdr;
{
  PROTOHDR.PAS

  Original source is PROTOHDR.H
  Written by Sang-Eun Han
  ([e-mail],  http://widecomm.korea.ac.kr/~seh).

  Convert to Delphi 4.0 by: Jagad ([e-mail])
  May 10, 1999: Make faster TOULONG and TOUSHORT function and make it works
                with D3 by: Francois Piette ([e-mail])
}

{$ALIGN ON}

interface
uses windows;

type
// Ethernet Frame Header
(*
typedef	struct	_ETHERNET_HDR {
	UCHAR	Destination[6];
	UCHAR	Source[6];
	UCHAR	Protocol[2];
	UCHAR	Data[1];
} ETHERNET_HDR, *PETHERNET_HDR;
*)
ETHERNET_HDR = packed record
  Destination: array[0..5] of UCHAR;
  Source:      array[0..5] of UCHAR;
  Protocol:    array[0..1] of UCHAR;
  Data:        array[0..0] of UCHAR;
end;
PETHERNET_HDR = ^ETHERNET_HDR;

const
//rfc1340
PROTO_IP      =	$0800;
PROTO_ARP     =	$0806;
PROTO_XNS     =	$0600;
PROTO_SNMP    =	$814C;
PROTO_OLD_IPX =	$8137;
PROTO_NOVELL  =	$8138;
PROTO_IPNG    =	$86DD;


OFFSET_IP =	14;

type
// IPv4 Header
(*
typedef	struct	_IP_RHDR {
	UCHAR	VerLen;
	UCHAR	Service;
	UCHAR	Length[2];
	UCHAR	Ident[2];
	UCHAR	Flagoff[2];
	UCHAR	Timelive;
	UCHAR	Protocol;
	UCHAR	Checksum[2];
	UCHAR	Source[4];
	UCHAR	Destination[4];
	UCHAR	Data[1];
} IP_RHDR, *PIP_RHDR;
*)
IP_RHDR = packed record
  Verlen:       UCHAR;
  Service:      UCHAR;
  Length:       array[0..1] of UCHAR;
  Ident:        array[0..1] of UCHAR;
  Flagoff:      array[0..1] of UCHAR;
  TimeLive:     UCHAR;
  Protocol:     UCHAR;
  Checksum:     array[0..1] of UCHAR;
  Source:       array[0..3] of UCHAR;
  Destination:  array[0..3] of UCHAR;
  Data:         array[0..0] of UCHAR;
end;
PIP_RHDR = ^IP_RHDR;

// IPv6 Header
(*
typedef	struct	_IPNG_RHDR {
	UCHAR	VerPrio;
	UCHAR	FlowLabel[3];
	UCHAR	Length[2];
	UCHAR	NextHdr;
	UCHAR	HopLimit;
	UCHAR	Source[16];
	UCHAR	Destination[16];
	UCHAR	Data[1];
} IPNG_RHDR, *PIPNG_RHDR;
*)
IPNG_RHDR = packed record
  VerPrio:        UCHAR;
  FlowLabel:      array[0..2] of UCHAR;
  Length:         array[0..1] of UCHAR;
  NextHadr:       UCHAR;
  HopLimit:       UCHAR;
  Source:         array[0..15] of UCHAR;
  Destination:    array[0..15] of UCHAR;
  Data:           array[0..0] of UCHAR;
end;
PIPNG_RHDR = ^IPNG_RHDR;

// TCP Header, RFC793
(*
typedef	struct	_TCP_RHDR {
	UCHAR	Source[2];
	UCHAR	Destination[2];
	UCHAR	Seq[4];
	UCHAR	Ack[4];
	UCHAR	Rsvd0:4;
	UCHAR	Offset:4;
	UCHAR	Flags:6;
	UCHAR	Rsvd1:2;
	UCHAR	Window[2];
	UCHAR	Checksum[2];
	UCHAR	UrgPoint[2];
	UCHAR	Data[1];
} TCP_RHDR, *PTCP_RHDR;
*)
TCP_RHDR = packed record
  Source:        array[0..1] of UCHAR; //Source Port
  Destination:   array[0..1] of UCHAR; //Destination Port
  Seq:           array[0..3] of UCHAR;
  Ack:           array[0..3] of UCHAR;
  Rsvd0_Off:     UCHAR;
  Flags_Rsvd1:   UCHAR;
  Window:        array[0..1] of UCHAR;
  Checksum:      array[0..1] of UCHAR;
  UrgPoint:      array[0..1] of UCHAR;
  Data:          array[0..0] of UCHAR;
end;
PTCP_RHDR = ^TCP_RHDR;

const
TCP_FLAG_FIN =	$01;
TCP_FLAG_SYN =	$02;
TCP_FLAG_RST =	$04;
TCP_FLAG_PSH =	$08;
TCP_FLAG_ACK =	$10;
TCP_FLAG_URG =	$20;

PROTO_TCP = 6;

type
// UDP Header
(*
typedef	struct	_UDP_RHDR {
	UCHAR	Source[2];
	UCHAR	Destination[2];
	UCHAR	Length[2];
	UCHAR	Checksum[2];
	UCHAR	Data[1];
} UDP_RHDR, *PUDP_RHDR;
*)
UDP_RHDR = packed record
  Source:        array[0..1] of UCHAR;
  Destination:   array[0..1] of UCHAR;
  Length:        array[0..1] of UCHAR;
  Checksum:      array[0..1] of UCHAR;
  Data:          array[0..0] of UCHAR;
end;
PUDP_RHDR = ^UDP_RHDR;


// Pseudo Header for evaluating TCP/UDP Checksum
(*
typedef	struct	_PSU_RHDR {
	UCHAR	Source[4];
	UCHAR	Destination[4];
	UCHAR	Zero;
	UCHAR	Protocol;
	UCHAR	Length[2];
	UCHAR	Data[1];
} PSU_RHDR, *PPSU_RHDR;
*)
PSU_RHDR = packed record
  Source:        array[0..3] of UCHAR;
  Destination:   array[0..3] of UCHAR;
  Zero:          UCHAR;
  Protocol:      UCHAR;
  Length:        array[0..1] of UCHAR;
  Data:          array[0..0] of UCHAR;
end;
PPSU_RHDR = ^PSU_RHDR;


//Borland CBuilder is 32 bit Win App
//#ifdef	WIN32
//#define	TOUSHORT(x)	(USHORT)(*(x)<<8|*(x+1))
//#define	TOULONG(x)	(ULONG)(*(x)<<24|*(x+1)<<16|*(x+2)<<8|*(x+3))
//#else
//#define	TOUSHORT(x)	(*(USHORT *)x)	//Big-Endian
//#define	TOULONG(x)	(*(ULONG *)x)
//#endif

function TOUSHORT(x: PChar): SHORT;
function TOULONG(x: PChar): ULONG;

implementation

function TOUSHORT(x: PChar): SHORT;
begin
    Result := (SHORT(x^) shl 8) or (SHORT((x + 1)^));  // FP May 10, 1999
end;

function TOULONG(x: PChar): ULONG;
begin
    Result := (ULONG(x^) shl 24) or                    // FP May 10, 1999
              (ULONG((x + 1)^) shl 16) or              // FP May 10, 1999
              (ULONG((x + 2)^) shl 8) or               // FP May 10, 1999
              (ULONG((x + 3)^));                       // FP May 10, 1999
end;

end.