Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
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--

Code Editor : Key.pm

#!/usr/bin/perl
#
# Copyright 2006 Jason Long. All rights reserved.
#
# 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.

package Mail::DKIM::Key;

use strict;

sub cork {
    my $self = shift;

(@_)
      and $self->{'CORK'} = shift;

$self->{'CORK'}
      or $self->convert;

$self->{'CORK'};
}

sub data {
    my $self = shift;

(@_)
      and $self->{'DATA'} = shift;

$self->{'DATA'};
}

sub errorstr {
    my $self = shift;

(@_)
      and $self->{'ESTR'} = shift;

$self->{'ESTR'};
}

sub size {
    my $self = shift;

return $self->cork->size * 8;
}

sub type {
    my $self = shift;

(@_)
      and $self->{'TYPE'} = shift;

$self->{'TYPE'};
}

sub calculate_EM {
    my ( $digest_algorithm, $digest, $emLen ) = @_;

# this function performs DER encoding of the algorithm ID for the
    # hash function and the hash value itself
    # It has this syntax:
    #      DigestInfo ::= SEQUENCE {
    #          digestAlgorithm AlgorithmIdentifier,
    #          digest OCTET STRING
    #      }

# RFC 3447, page 42, provides the following octet values:
    my %digest_encoding = (
        'SHA-1'   => pack( 'H*', '3021300906052B0E03021A05000414' ),
        'SHA-256' => pack( 'H*', '3031300d060960864801650304020105000420' ),
    );

defined $digest_encoding{$digest_algorithm}
      or die "Unsupported digest algorithm '$digest_algorithm'";

my $T    = $digest_encoding{$digest_algorithm} . $digest;
    my $tLen = length($T);

if ( $emLen < $tLen + 11 ) {
        die 'Intended encoded message length too short.';
    }

my $PS = chr(0xff) x ( $emLen - $tLen - 3 );
    my $EM = chr(0) . chr(1) . $PS . chr(0) . $T;
    return $EM;
}

${this.title}

Code Editor : Key.pm