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.13
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 /
share /
doc /
libmime-explode-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
testmsgs
[ DIR ]
drwxr-xr-x
explode.pl
1.97
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : explode.pl
#!/usr/bin/perl -w -T use strict; use MIME::Explode; use Benchmark; my $start = new Benchmark; my $mail = shift(@ARGV) || die("no args"); die("Unable to open file \"$mail\"") unless(-e $mail); my $decode_subject = 1; my $tmp_dir = "tmp"; my $output = "file.tmp"; my $explode = MIME::Explode->new( output_dir => $tmp_dir, mkdir => 0755, decode_subject => $decode_subject, check_content_type => 1, content_types => ["image/gif", "image/jpeg", "image/bmp"], types_action => "exclude", ); open(MAIL, "<$mail") or die("Couldn't open $mail for reading: $!\n"); open(OUTPUT, ">$output") or die("Couldn't open $output for writing: $!\n"); #my $headers = $explode->parse(\*MAIL); my $headers = $explode->parse(\*MAIL, \*OUTPUT); close(OUTPUT); close(MAIL); print "Number of messages: ", $explode->nmsgs, "\n"; for my $part (sort{ $a cmp $b } keys(%{$headers})) { print "---------------------------\n"; for my $k (keys(%{$headers->{$part}})) { if(ref($headers->{$part}->{$k}) eq "ARRAY") { for my $i (0 .. $#{$headers->{$part}->{$k}}) { print "$part => $k => $i => ", $headers->{$part}->{$k}->[$i], "\n"; } } elsif(ref($headers->{$part}->{$k}) eq "HASH") { for my $ks (keys(%{$headers->{$part}->{$k}})) { if(ref($headers->{$part}->{$k}->{$ks}) eq "ARRAY") { print "$part => $k => $ks => ", join(($ks eq "charset") ? " " : "", @{$headers->{$part}->{$k}->{$ks}}), "\n"; } else { print "$part => $k => $ks => ", $headers->{$part}->{$k}->{$ks}, "\n"; } } } else { print "$part => $k => ", $headers->{$part}->{$k}, "\n"; } } } my $finish = new Benchmark; my $diff = timediff($finish, $start); my $strtime = timestr($diff); print STDERR "\n\nTime: $strtime\n"; print "\n"; print "Clean the directory \"$tmp_dir\"? [y/n]:"; my $clean = <>; chomp $clean; if($clean eq "y") { if(my $e = $explode->clean_all()) { print "Error: $e\n"; } } exit(0);
Close