svcguid.pas

神迹外挂

	SVCID_ROUTE_UDP               : TGUID = '{000a0208-0000-0000-c000-000000000046}';
	SVCID_TIMED_UDP               : TGUID = '{000a020d-0000-0000-c000-000000000046}';
	SVCID_RVD_CONTROL_UDP         : TGUID = '{000a0213-0000-0000-c000-000000000046}';
	SVCID_NETWALL_UDP             : TGUID = '{000a0215-0000-0000-c000-000000000046}';
	SVCID_NEW_RWHO_UDP            : TGUID = '{000a0226-0000-0000-c000-000000000046}';
	SVCID_RMONITOR_UDP            : TGUID = '{000a0230-0000-0000-c000-000000000046}';
	SVCID_MONITOR_UDP             : TGUID = '{000a0231-0000-0000-c000-000000000046}';
	SVCID_ACCTMASTER_UDP          : TGUID = '{000a02bc-0000-0000-c000-000000000046}';
	SVCID_ACCTSLAVE_UDP           : TGUID = '{000a02bd-0000-0000-c000-000000000046}';
	SVCID_ACCT_UDP                : TGUID = '{000a02be-0000-0000-c000-000000000046}';
	SVCID_ACCTLOGIN_UDP           : TGUID = '{000a02bf-0000-0000-c000-000000000046}';
	SVCID_ACCTPRINTER_UDP         : TGUID = '{000a02c0-0000-0000-c000-000000000046}';
	SVCID_ELCSD_UDP               : TGUID = '{000a02c0-0000-0000-c000-000000000046}';
	SVCID_ACCTINFO_UDP            : TGUID = '{000a02c1-0000-0000-c000-000000000046}';
	SVCID_ACCTSLAVE2_UDP          : TGUID = '{000a02c2-0000-0000-c000-000000000046}';
	SVCID_ACCTDISK_UDP            : TGUID = '{000a02c3-0000-0000-c000-000000000046}';
	SVCID_KERBEROS_UDP            : TGUID = '{000a02ee-0000-0000-c000-000000000046}';
	SVCID_KERBEROS_MASTER_UDP     : TGUID = '{000a02ef-0000-0000-c000-000000000046}';
	SVCID_PASSWD_SERVER_UDP       : TGUID = '{000a02f0-0000-0000-c000-000000000046}';
	SVCID_USERREG_SERVER_UDP      : TGUID = '{000a02f1-0000-0000-c000-000000000046}';
	SVCID_PHONE_UDP               : TGUID = '{000a048f-0000-0000-c000-000000000046}';
	SVCID_MAZE_UDP                : TGUID = '{000a0682-0000-0000-c000-000000000046}';
	SVCID_NFS_UDP                 : TGUID = '{000a0801-0000-0000-c000-000000000046}';
	SVCID_RSCS0_UDP               : TGUID = '{000a2710-0000-0000-c000-000000000046}';
	SVCID_RSCS1_UDP               : TGUID = '{000a2711-0000-0000-c000-000000000046}';
	SVCID_RSCS2_UDP               : TGUID = '{000a2712-0000-0000-c000-000000000046}';
	SVCID_RSCS3_UDP               : TGUID = '{000a2713-0000-0000-c000-000000000046}';
	SVCID_RSCS4_UDP               : TGUID = '{000a2714-0000-0000-c000-000000000046}';
	SVCID_RSCS5_UDP               : TGUID = '{000a2715-0000-0000-c000-000000000046}';
	SVCID_RSCS6_UDP               : TGUID = '{000a2716-0000-0000-c000-000000000046}';
	SVCID_RSCS7_UDP               : TGUID = '{000a2717-0000-0000-c000-000000000046}';
	SVCID_RSCS8_UDP               : TGUID = '{000a2718-0000-0000-c000-000000000046}';
	SVCID_RSCS9_UDP               : TGUID = '{000a2719-0000-0000-c000-000000000046}';
	SVCID_RSCSA_UDP               : TGUID = '{000a271a-0000-0000-c000-000000000046}';
	SVCID_RSCSB_UDP               : TGUID = '{000a271b-0000-0000-c000-000000000046}';
	SVCID_QMASTER_UDP             : TGUID = '{000a271c-0000-0000-c000-000000000046}';

	// NetWare services
	// GUID block = 000axxxx-0000-0000-C000-000000000046

	SVCID_PRINT_QUEUE                 : TGUID = '{000b0003-0000-0000-c000-000000000046}';
	SVCID_FILE_SERVER                 : TGUID = '{000b0004-0000-0000-c000-000000000046}';
	SVCID_JOB_SERVER                  : TGUID = '{000b0005-0000-0000-c000-000000000046}';
	SVCID_GATEWAY                     : TGUID = '{000b0006-0000-0000-c000-000000000046}';
	SVCID_PRINT_SERVER                : TGUID = '{000b0007-0000-0000-c000-000000000046}';
	SVCID_ARCHIVE_QUEUE               : TGUID = '{000b0008-0000-0000-c000-000000000046}';
	SVCID_ARCHIVE_SERVER              : TGUID = '{000b0009-0000-0000-c000-000000000046}';
	SVCID_JOB_QUEUE                   : TGUID = '{000b000a-0000-0000-c000-000000000046}';
	SVCID_ADMINISTRATION              : TGUID = '{000b000b-0000-0000-c000-000000000046}';
	SVCID_NAS_SNA_GATEWAY             : TGUID = '{000b0021-0000-0000-c000-000000000046}';
	SVCID_REMOTE_BRIDGE_SERVER        : TGUID = '{000b0024-0000-0000-c000-000000000046}';
	SVCID_TIME_SYNCHRONIZATION_SERVER : TGUID = '{000b002d-0000-0000-c000-000000000046}';
	SVCID_ARCHIVE_SERVER_DYNAMIC_SAP  : TGUID = '{000b002e-0000-0000-c000-000000000046}';
	SVCID_ADVERTISING_PRINT_SERVER    : TGUID = '{000b0047-0000-0000-c000-000000000046}';
	SVCID_BTRIEVE_VAP                 : TGUID = '{000b004b-0000-0000-c000-000000000046}';
	SVCID_DIRECTORY_SERVER            : TGUID = '{000b0278-0000-0000-c000-000000000046}';
	SVCID_NETWARE_386                 : TGUID = '{000b0107-0000-0000-c000-000000000046}';
	SVCID_HP_PRINT_SERVER             : TGUID = '{000b030C-0000-0000-c000-000000000046}';
	SVCID_SNA_SERVER                  : TGUID = '{000b0444-0000-0000-c000-000000000046}';
	SVCID_SAA_SERVER                  : TGUID = '{000b0130-0000-0000-c000-000000000046}';

	// DNS services by record type
	// GUID block = 00090035-0000-xxxx-C000-000000000046

	SVCID_DNS_TYPE_A                  : TGUID = '{00090035-0000-0001-c000-000000000046}';
	SVCID_DNS_TYPE_NS                 : TGUID = '{00090035-0000-0002-c000-000000000046}';
	SVCID_DNS_TYPE_MD                 : TGUID = '{00090035-0000-0003-c000-000000000046}';
	SVCID_DNS_TYPE_MF                 : TGUID = '{00090035-0000-0004-c000-000000000046}';
	SVCID_DNS_TYPE_CNAME              : TGUID = '{00090035-0000-0005-c000-000000000046}';
	SVCID_DNS_TYPE_SOA                : TGUID = '{00090035-0000-0006-c000-000000000046}';
	SVCID_DNS_TYPE_MB                 : TGUID = '{00090035-0000-0007-c000-000000000046}';
	SVCID_DNS_TYPE_MG                 : TGUID = '{00090035-0000-0008-c000-000000000046}';
	SVCID_DNS_TYPE_MR                 : TGUID = '{00090035-0000-0009-c000-000000000046}';
	SVCID_DNS_TYPE_NULL               : TGUID = '{00090035-0000-000a-c000-000000000046}';
	SVCID_DNS_TYPE_WKS                : TGUID = '{00090035-0000-000b-c000-000000000046}';
	SVCID_DNS_TYPE_PTR                : TGUID = '{00090035-0000-000c-c000-000000000046}';
	SVCID_DNS_TYPE_HINFO              : TGUID = '{00090035-0000-000d-c000-000000000046}';
	SVCID_DNS_TYPE_MINFO              : TGUID = '{00090035-0000-000e-c000-000000000046}';
	SVCID_DNS_TYPE_MX                 : TGUID = '{00090035-0000-000f-c000-000000000046}';
	SVCID_DNS_TYPE_TEXT               : TGUID = '{00090035-0000-0010-c000-000000000046}';
	SVCID_DNS_TYPE_RP                 : TGUID = '{00090035-0000-0011-c000-000000000046}';
	SVCID_DNS_TYPE_AFSDB              : TGUID = '{00090035-0000-0012-c000-000000000046}';
	SVCID_DNS_TYPE_X25                : TGUID = '{00090035-0000-0013-c000-000000000046}';
	SVCID_DNS_TYPE_ISDN               : TGUID = '{00090035-0000-0014-c000-000000000046}';
	SVCID_DNS_TYPE_RT                 : TGUID = '{00090035-0000-0015-c000-000000000046}';
	SVCID_DNS_TYPE_NSAP               : TGUID = '{00090035-0000-0016-c000-000000000046}';
	SVCID_DNS_TYPE_NSAPPTR            : TGUID = '{00090035-0000-0017-c000-000000000046}';
	SVCID_DNS_TYPE_SIG                : TGUID = '{00090035-0000-0018-c000-000000000046}';
	SVCID_DNS_TYPE_KEY                : TGUID = '{00090035-0000-0019-c000-000000000046}';
	SVCID_DNS_TYPE_PX                 : TGUID = '{00090035-0000-001a-c000-000000000046}';
	SVCID_DNS_TYPE_GPOS               : TGUID = '{00090035-0000-001b-c000-000000000046}';
	SVCID_DNS_TYPE_AAAA               : TGUID = '{00090035-0000-001c-c000-000000000046}';
	SVCID_DNS_TYPE_LOC                : TGUID = '{00090035-0000-001d-c000-000000000046}';
	SVCID_DNS_TYPE_NXT                : TGUID = '{00090035-0000-001e-c000-000000000046}';
	SVCID_DNS_TYPE_SRV                : TGUID = '{00090035-0000-0021-c000-000000000046}';
	SVCID_DNS_TYPE_ATMA               : TGUID = '{00090035-0000-0022-c000-000000000046}';

implementation

function SVCID_TCP( const Port : Word ) : TGUID;
begin
	Result := SVCID_0_TCP;
	PWord(@Result.D1)^ := Port;
end;

function SVCID_DNS( const RecordType : Word ) : TGUID;
begin
	Result := SVCID_DOMAIN_TCP;
	Result.D3 := RecordType;
end;

function IS_SVCID_DNS( Id : TGUID ) : Boolean;
begin
	with Id do Result := (D1=$00090035) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
end;

function IS_SVCID_TCP( Id : TGUID ) : Boolean;
begin
	with Id do Result := (PWord(PChar(@D1)+2)^=$0009) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
end;

function PORT_FROM_SVCID_TCP( Id : TGUID ) : Word;
begin
	Result := PWord(@Id.D1)^;
end;

function RR_FROM_SVCID( Id : TGUID ) : Word;
begin
	Result := Id.D3;
end;

procedure SET_TCP_SVCID_RR( var Id : TGUID; const Port, RecordType : Word );
begin
	with Id do
	begin
		PWord(@D1)^ := Port;
		D3 := RecordType;
	end;
end;

procedure SET_TCP_SVCID( var Id : TGUID; const Port : Word );
begin
	PWord(@Id.D1)^ := Port;
end;

function SVCID_UDP( const Port : Word ) : TGUID;
begin
	Result := SVCID_0_UDP;
	PWord(@Result.D1)^ := Port;
end;

function IS_SVCID_UDP( Id : TGUID ) : Boolean;
begin
	with Id do Result := (PWord(PChar(@D1)+2)^=$000a) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
end;

function PORT_FROM_SVCID_UDP( Id : TGUID ) : Word;
begin
	Result := PWord(@Id.D1)^;
end;

procedure SET_UDP_SVCID( var Id : TGUID; const Port : Word );
begin
	PWord(@Id.D1)^ := Port;
end;

function SVCID_NETWARE( const SapId : Word ) : TGUID;
begin
	Result := SVCID_0_NETWARE;
	PWord(@Result.D1)^ := SapId;
end;

function IS_SVCID_NETWARE( Id : TGUID ) : Boolean;
begin
	with Id do Result := (PWord(PChar(@D1)+2)^=$000b) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
end;

function SAPID_FROM_SVCID_NETWARE( Id : TGUID ) : Word;
begin
	Result := PWord(@Id.D1)^;
end;

procedure SET_NETWARE_SVCID( var Id : TGUID; const SapId : Word );
begin
	PWord(@Id.D1)^ := SapId;
end;


end.