/usr/share/perl5/Mail/DKIM/Algorithm/dk_rsa_sha1.pm is in libmail-dkim-perl 0.44-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 | #!/usr/bin/perl
# Copyright 2005-2006 Messiah College. All rights reserved.
# Jason Long <jlong@messiah.edu>
# Copyright (c) 2004 Anthony D. Urso. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
use strict;
use warnings;
use Mail::DKIM::Canonicalization::dk_simple;
use Mail::DKIM::Canonicalization::dk_nofws;
package Mail::DKIM::Algorithm::dk_rsa_sha1;
use base "Mail::DKIM::Algorithm::Base";
use Carp;
use MIME::Base64;
use Digest::SHA;
sub finish_header
{
my $self = shift;
$self->SUPER::finish_header(@_);
if ((my $s = $self->signature)
&& $self->{canon}->{interesting_header})
{
my $sender = $self->{canon}->{interesting_header}->{sender};
$sender = defined($sender) && (Mail::Address->parse($sender))[0];
my $author = $self->{canon}->{interesting_header}->{from};
$author = defined($author) && (Mail::Address->parse($author))[0];
if ($sender)
{
$s->init_identity($sender->address, "header.sender");
}
elsif ($author)
{
$s->init_identity($author->address, "header.from");
}
}
return;
}
sub get_canonicalization_class
{
my $self = shift;
croak "wrong number of arguments" unless (@_ == 1);
my ($method) = @_;
my $class = $method eq "nofws" ? "Mail::DKIM::Canonicalization::dk_nofws" :
$method eq "simple" ? "Mail::DKIM::Canonicalization::dk_simple" :
die "unknown method $method\n";
return $class;
}
sub init
{
my $self = shift;
die "no signature" unless $self->{Signature};
$self->{mode} = $self->{Signature}->signature ? "verify" : "sign";
# allows subclasses to set the header_digest and body_digest
# properties
$self->init_digests;
my $method = $self->{Signature}->canonicalization;
my $canon_class = $self->get_canonicalization_class($method);
$self->{canon} = $canon_class->new(
output_digest => $self->{header_digest},
Signature => $self->{Signature},
Debug_Canonicalization => $self->{Debug_Canonicalization});
}
sub init_digests
{
my $self = shift;
# initialize a SHA-1 Digest
$self->{header_digest} = Digest::SHA->new(1);
$self->{body_digest} = $self->{header_digest};
}
sub sign
{
my $self = shift;
croak "wrong number of arguments" unless (@_ == 1);
my ($private_key) = @_;
my $digest = $self->{header_digest}->digest;
my $signature = $private_key->sign_digest("SHA-1", $digest);
return encode_base64($signature, "");
}
sub verify
{
my $self = shift;
croak "wrong number of arguments" unless (@_ == 0);
my $base64 = $self->signature->data;
my $public_key = $self->signature->get_public_key;
my $digest = $self->{header_digest}->digest;
my $sig = decode_base64($base64);
return $public_key->verify_digest("SHA-1", $digest, $sig);
}
sub finish_message
{
my $self = shift;
# DomainKeys doesn't include the signature in the digest,
# but we still want it to look "pretty" :).
if ($self->{mode} eq "sign")
{
$self->{Signature}->prettify;
}
}
sub wants_pre_signature_headers
{
return 0;
}
1;
|