shell bypass 403
UnknownSec Shell
:
/
proc
/
self
/
root
/
usr
/
lib64
/
tcl8.5
/
tclx8.4
/ [
drwxr-xr-x
]
upload
mass deface
mass delete
console
info server
name :
forfile.tcl
# # forfile.tcl -- # # Proc to execute code on every line of a file. #------------------------------------------------------------------------------ # Copyright 1992-1999 Karl Lehenbauer and Mark Diekhans. # # Permission to use, copy, modify, and distribute this software and its # documentation for any purpose and without fee is hereby granted, provided # that the above copyright notice appear in all copies. Karl Lehenbauer and # Mark Diekhans make no representations about the suitability of this # software for any purpose. It is provided "as is" without express or # implied warranty. #------------------------------------------------------------------------------ # $Id: forfile.tcl,v 1.1 2001/10/24 23:31:48 hobbs Exp $ #------------------------------------------------------------------------------ # #@package: TclX-forfile for_file proc for_file {var filename cmd} { upvar 1 $var line set fp [open $filename r] try_eval { set code 0 set result {} while {[gets $fp line] >= 0} { set code [catch {uplevel 1 $cmd} result] if {$code != 0 && $code != 4} break } } {} { close $fp } if {$code == 0 || $code == 3 || $code == 4} { return $result } if {$code == 1} { global errorCode errorInfo return -code $code -errorcode $errorCode -errorinfo $errorInfo $result } return -code $code $result }
© 2024 UnknownSec