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.13
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 /
abuse /
[ HOME SHELL ]
Name
Size
Permission
Action
blocking_debug_with_sub_coproc...
816
B
-rw-r--r--
blocking_writes
1.02
KB
-rw-r--r--
broken_pipe_on_bad_executable_...
303
B
-rw-r--r--
timers
204
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : blocking_debug_with_sub_coprocess
#!/usr/bin/perl -w ## Submitted by Blair Zajac <blair@orcaware.com> ## Tests blocking when piping though a &sub coprocess. ## Fixed, now in test suite. $| = 1; use strict; use Carp; use Symbol; use IPC::Run 0.44 qw(start); print "My pid is $$\n"; my $out_fd = gensym; open( $out_fd, ">ZZZ.test" ) or die "$0: open: $!\n"; my $queue = ''; my @commands = ( [ [ 'cat', '-' ], \$queue, '|' ], [ ['cat'], '|' ], [ \&double, '>', $out_fd ] ); my $harness = start 'debug' => 10, map { @$_ } @commands; $harness or die "$0: harness\n"; close($out_fd) or die "$0: cannot close: $!\n"; for ( 1 .. 100 ) { $queue .= rand(100) . "\n"; $harness->pump; } $harness->finish or die "$0: finish\n"; exit 0; sub double { while (<STDIN>) { s/\s+$//; print "$_ $_\n"; } }
Close
