blob: b85779385c1bb4960b75c7d899f3f6abe71cfe5e (
plain)
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
|
package Crypt::OpenPGP::OnePassSig;
use strict;
sub new { bless { }, $_[0] }
sub parse {
my $class = shift;
my($buf) = @_;
my $onepass = $class->new;
$onepass->{version} = $buf->get_int8;
$onepass->{type} = $buf->get_int8;
$onepass->{hash_alg} = $buf->get_int8;
$onepass->{pk_alg} = $buf->get_int8;
$onepass->{key_id} = $buf->get_bytes(8);
$onepass->{nested} = $buf->get_int8;
$onepass;
}
1;
__END__
=head1 NAME
Crypt::OpenPGP::OnePassSig - One-Pass Signature packet
=head1 DESCRIPTION
I<Crypt::OpenPGP::OnePassSig> implements a PGP One-Pass Signature
packet, a packet that precedes the signature data and contains
enough information to allow the receiver of the signature to begin
computing the hashed data. Standard signature packets always come
I<before> the signed data, which forces receivers to backtrack to
the beginning of the message--to the signature packet--to add on
the signature trailer data. The one-pass signature packet allows
the receive to start computing the hashed data while reading the
data packet, then continue on sequentially when it reaches the
signature packet.
=head1 USAGE
=head2 my $onepass = Crypt::OpenPGP::OnePassSig->parse($buffer)
Given the I<Crypt::OpenPGP::Buffer> object buffer, which should
contain a one-pass signature packet, parses the object from the
buffer and returns the object.
=head1 AUTHOR & COPYRIGHTS
Please see the Crypt::OpenPGP manpage for author, copyright, and
license information.
=cut
|