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 /
systemtap /
examples /
memory /
[ HOME SHELL ]
Name
Size
Permission
Action
glibc-malloc.meta
381
B
-rw-r--r--
glibc-malloc.stp
2.43
KB
-rw-r--r--
hugepage_clear_delays.meta
946
B
-rw-r--r--
hugepage_clear_delays.stp
483
B
-rwxr-xr-x
hugepage_collapse.meta
718
B
-rw-r--r--
hugepage_collapse.stp
159
B
-rwxr-xr-x
hugepage_cow_delays.meta
1.08
KB
-rw-r--r--
hugepage_cow_delays.stp
475
B
-rwxr-xr-x
hugepage_split.meta
756
B
-rw-r--r--
hugepage_split.stp
153
B
-rwxr-xr-x
hw_watch_addr.meta
787
B
-rw-r--r--
hw_watch_addr.stp
167
B
-rwxr-xr-x
hw_watch_addr.tcl
97
B
-rw-r--r--
hw_watch_sym.meta
715
B
-rw-r--r--
hw_watch_sym.stp
167
B
-rwxr-xr-x
hw_watch_sym.tcl
97
B
-rw-r--r--
kmalloc-top
3.8
KB
-rwxr-xr-x
kmalloc-top.meta
695
B
-rw-r--r--
last_100_frees.meta
420
B
-rw-r--r--
last_100_frees.stp
803
B
-rwxr-xr-x
last_100_frees.tcl
79
B
-rw-r--r--
last_100_frees.txt
774
B
-rw-r--r--
mmanonpage.meta
1.2
KB
-rw-r--r--
mmanonpage.stp
1.77
KB
-rwxr-xr-x
mmfilepage.meta
929
B
-rw-r--r--
mmfilepage.stp
3.47
KB
-rwxr-xr-x
mmreclaim.meta
606
B
-rw-r--r--
mmreclaim.stp
5.11
KB
-rwxr-xr-x
mmwriteback.meta
1008
B
-rw-r--r--
mmwriteback.stp
1.92
KB
-rwxr-xr-x
numa_faults.meta
702
B
-rw-r--r--
numa_faults.stp
973
B
-rwxr-xr-x
numa_faults.txt
1.67
KB
-rw-r--r--
overcommit.meta
484
B
-rw-r--r--
overcommit.stp
217
B
-rwxr-xr-x
pfaults.meta
744
B
-rw-r--r--
pfaults.stp
875
B
-rwxr-xr-x
pfaults.txt
558
B
-rw-r--r--
vm.tracepoints.meta
608
B
-rw-r--r--
vm.tracepoints.stp
414
B
-rwxr-xr-x
vm.tracepoints.txt
557
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : kmalloc-top
#!/usr/bin/perl # # This script accumulates the execution paths of all calls to kmalloc # in the kernel. On Ctrl-C (or exit of the command provided by -c option), # it sorts, filters and displays them on # stdout. # # The -e (exclude) option can be used to specify a comma-separated list # - any stack with contents matching any of the items in the list will # be excluded from the output. # # The -m (min) option can be used to specify the minimum number of # occurrences a stack needs to be included in the output. # # The -t (top) option can be used to specify printing only the # top N stack traces. # # The -c (command) option runs starts the command and script # only runs for the duration of the command. # # The -o (options) option passes the options to systemap. # # Usage: ./kmalloc-top [-m min] [-e exclude list] [-t top_n] [-c command] # [-o options] # Ctrl-c use Getopt::Std; my $kmalloc_stacks; my $total_kmallocs; my $filtered_kmallocs; my $sorted_stacks; my $first_n = 1000000000; my $min_count = 1; my $exclude; my $options; $SIG{INT} = \&sigint_handler; getopts('c:e:m:t:o:'); if ($opt_e) { $exclude = join('|', split(/,/, $opt_e)); print "Will exclude stacks containing: $exclude\n"; } if ($opt_t) { $first_n = $opt_t; print "Will print only the top $first_n stacks.\n"; } if ($opt_m) { $min_count = $opt_m; } if ($opt_c) { $command="-c \"$opt_c\"" } if ($opt_o) { $options=$opt_o } print "Will print stacks with counts >= $min_count.\n"; print STDERR "Press Ctrl-C to stop.\n"; #The systemtap script that instruments the kmalloc $script=" global kmalloc_stack probe kernel.function(\"__kmalloc\") { kmalloc_stack[backtrace()]++ } probe timer.ms(100), end { foreach (stack in kmalloc_stack) { printf(\"<hashkey>\\n\") print_syms(stack) printf(\"</hashkey>\\n\") printf(\"<hashval>%d</hashval>\\n\", kmalloc_stack[stack]) } delete kmalloc_stack } "; open STREAM, "stap $options -e '$script' $command|" or die "Couldn't get output stream $!"; while (<STREAM>) { if (/<hashval>(.*?)<\/hashval>/) { update_hash($key, $1); $key = ""; } elsif ($_ !~ (/<hashkey>|<\/hashkey>/)) { $key .= $_; } } $num_keys_before_filtering = scalar keys %kmalloc_stacks; $total_kmallocs = count_kmallocs(); filter_stacks(); sort_stacks(); top_stacks(); sort_stacks(); $num_keys_after_filtering = scalar keys %kmalloc_stacks; $filtered_kmallocs = count_kmallocs(); summarize(); exit(); sub update_hash { my($key, $val) = @_; $kmalloc_stacks{$key} += $val; } sub filter_stacks { while (($stack, $count) = each %kmalloc_stacks) { if ($count < $min_count) { delete $kmalloc_stacks{$stack}; } elsif ($exclude && $stack =~ /$exclude/) { delete $kmalloc_stacks{$stack}; } } } sub top_stacks { $count=0; foreach $stack(@sorted_stacks) { $count+=1; if ($count > $first_n) { delete $kmalloc_stacks{$stack}; } } } sub sort_stacks { @sorted_stacks = sort { $kmalloc_stacks{$b} <=> $kmalloc_stacks{$a} } keys %kmalloc_stacks; } sub count_kmallocs { $count = 0; foreach $stack(%kmalloc_stacks) { $count += $kmalloc_stacks{$stack}; } return $count; } sub summarize { print "\n"; foreach $stack(@sorted_stacks) { print "This path seen $kmalloc_stacks{$stack} times:\n$stack\n"; } if ($total_kmallocs > 0) { $percent = ($filtered_kmallocs)*100/$total_kmallocs; } else { $percent = 0; } print "Num stacks before filtering: $num_keys_before_filtering\n"; print "Num stacks after filtering: $num_keys_after_filtering\n"; print "Total kmallocs (before filtering): $total_kmallocs\n"; print "Total kmallocs (after filtering): $filtered_kmallocs\n"; print "The filter stacks have $percent of the total kmallocs\n"; close(STREAM); } sub sigint_handler { system("pkill kmalloc-stacks"); }
Close