OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
doc
/
libhtml-template-perl
/
examples
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/11/2020 08:10:07 AM
rwxr-xr-x
📄
clean_shm.pl
516 bytes
05/18/2017 08:28:49 PM
rwxr-xr-x
📄
time_trial.pl
3.62 KB
05/18/2017 08:28:49 PM
rwxr-xr-x
Editing: clean_shm.pl
Close
#!/usr/bin/env perl use strict; use warnings; # this script deletes all shared memory segments accessible by the # running user. Probably only works on Linux systems. open(IPCS, 'ipcs |') or die "Probs opening icps : $!"; my $mode = 0; while (<IPCS>) { if (/(Shared)|(Semaphore)|(Message)/) { $mode++; next; } next unless /^0x[0-9a-f]+\s(\d+)\s.*$/; system("ipcrm shm $1") if ($mode == 1); system("ipcrm sem $1") if ($mode == 2); system("ipcrm msg $1") if ($mode == 3); }