Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.213
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
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 /
perl5 /
vendor_perl /
Mail /
DKIM /
[ HOME SHELL ]
Name
Size
Permission
Action
ARC
[ DIR ]
drwxr-xr-x
Algorithm
[ DIR ]
drwxr-xr-x
Canonicalization
[ DIR ]
drwxr-xr-x
AuthorDomainPolicy.pm
8.12
KB
-rw-r--r--
Common.pm
3.95
KB
-rw-r--r--
DNS.pm
7
KB
-rw-r--r--
DkPolicy.pm
6.95
KB
-rw-r--r--
DkSignature.pm
9.22
KB
-rw-r--r--
DkimPolicy.pm
7.5
KB
-rw-r--r--
Key.pm
1.79
KB
-rw-r--r--
KeyValueList.pm
5.04
KB
-rw-r--r--
MessageParser.pm
2.94
KB
-rw-r--r--
Policy.pm
6.27
KB
-rw-r--r--
PrivateKey.pm
4.11
KB
-rw-r--r--
PublicKey.pm
11.55
KB
-rw-r--r--
Signature.pm
22.13
KB
-rw-r--r--
Signer.pm
21.71
KB
-rw-r--r--
SignerPolicy.pm
2.81
KB
-rw-r--r--
TextWrap.pm
7.74
KB
-rw-r--r--
Verifier.pm
24.03
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : SignerPolicy.pm
#!/usr/bin/perl # Copyright 2005-2006 Messiah College. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # # Written by Jason Long <jlong@messiah.edu> use strict; use warnings; package Mail::DKIM::SignerPolicy; 1; __END__ =head1 NAME Mail::DKIM::SignerPolicy - determines signing parameters for a message =head1 DESCRIPTION A "signer policy" is an object, class, or function used by L<Mail::DKIM::Signer> to determine what signatures to add to the current message. To take advantage of signer policies, create your own Perl class that extends the L<Mail::DKIM::SignerPolicy> class. The only method you need to implement is the apply() method. The apply() method takes as a parameter the L<Mail::DKIM::Signer> object. Using this object, it can determine some properties of the message (e.g. what the From: address or Sender: address is). Then it sets various signer properties as desired. The apply() method should return a nonzero value if the message should be signed. If a false value is returned, then the message is "skipped" (i.e. not signed). Here is an example of a policy that always returns the same values: package MySignerPolicy; use base 'Mail::DKIM::SignerPolicy'; sub apply { my $self = shift; my $signer = shift; $signer->algorithm('rsa-sha1'); $signer->method('relaxed'); $signer->domain('example.org'); $signer->selector('selector1'); $signer->key_file('private.key'); return 1; } To use this policy, simply specify the name of the class as the Policy parameter... my $dkim = Mail::DKIM::Signer->new( Policy => 'MySignerPolicy', ); =head1 ADVANCED You can also have the policy actually build the signature for the Signer to use. To do this, call the signer's add_signature() method from within your apply() callback. E.g., sub apply { my $self = shift; my $signer = shift; $signer->add_signature( new Mail::DKIM::Signature( Algorithm => $signer->algorithm, Method => $signer->method, Headers => $signer->headers, Domain => $signer->domain, Selector => $signer->selector, )); return; } Again, if you do not want any signatures, return zero or undef. If you use add_signature() to create a signature, the default signature will not be created, even if you return nonzero. =head1 AUTHOR Jason Long, E<lt>jlong@messiah.eduE<gt> =head1 COPYRIGHT AND LICENSE Copyright (C) 2006-2007 by Messiah College This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available. =cut
Close