Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
[ A ]
[ C ]
[ D ]
C: /
laragon /
bin /
python /
python-3.10 /
tcl /
tcl8.6 /
[ HOME SHELL ]
Name
Size
Permission
Action
encoding
[ DIR ]
drwxrwxrwx
http1.0
[ DIR ]
drwxrwxrwx
msgs
[ DIR ]
drwxrwxrwx
opt0.4
[ DIR ]
drwxrwxrwx
tzdata
[ DIR ]
drwxrwxrwx
auto.tcl
21.02
KB
-rw-rw-rw-
clock.tcl
130.31
KB
-rw-rw-rw-
history.tcl
8.04
KB
-rw-rw-rw-
init.tcl
25.03
KB
-rw-rw-rw-
package.tcl
23.43
KB
-rw-rw-rw-
parray.tcl
844
B
-rw-rw-rw-
safe.tcl
41.23
KB
-rw-rw-rw-
tclIndex
5.49
KB
-rw-rw-rw-
tm.tcl
11.92
KB
-rw-rw-rw-
word.tcl
4.91
KB
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : parray.tcl
# parray: # Print the contents of a global array on stdout. # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994 Sun Microsystems, Inc. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # proc parray {a {pattern *}} { upvar 1 $a array if {![array exists array]} { return -code error "\"$a\" isn't an array" } set maxl 0 set names [lsort [array names array $pattern]] foreach name $names { if {[string length $name] > $maxl} { set maxl [string length $name] } } set maxl [expr {$maxl + [string length $a] + 2}] foreach name $names { set nameString [format %s(%s) $a $name] puts stdout [format "%-*s = %s" $maxl $nameString $array($name)] } }
Close