scip/Crypt--PWSafe3
1
0
Fork 0
mirror of https://codeberg.org/scip/Crypt--PWSafe3.git synced 2025-12-17 04:31:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed parsing of password expire field (github issue 5+6)

Browse Source
This commit is contained in:
git@daemon.de
2013-07-05 09:39:50 +02:00
parent 0820428be8
commit 90260e757d
7 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Crypt/PWSafe3.pm
View File

@@ -22,7 +22,7 @@ use Data::Dumper;
use Exporter ();
use vars qw(@ISA @EXPORT);
$Crypt::PWSafe3::VERSION = '1.10';
$Crypt::PWSafe3::VERSION = '1.11';
use Crypt::PWSafe3::Field;
use Crypt::PWSafe3::HeaderField;
@@ -942,7 +942,7 @@ in this module are his ideas ported to perl.
=head1 COPYRIGHT
Copyright (c) 2011-2012 by T.Linden <tlinden@cpan.org>.
Copyright (c) 2011-2013 by T.Linden <tlinden@cpan.org>.
All rights reserved.
=head1 LICENSE
@@ -952,7 +952,7 @@ and/or modify it under the same terms as Perl itself.
=head1 VERSION
Crypt::PWSafe3 Version 1.10.
Crypt::PWSafe3 Version 1.11.
=cut

12
lib/Crypt/PWSafe3/Field.pm
View File

@@ -7,7 +7,7 @@ use Exporter ();
use vars qw(@ISA @EXPORT);
use utf8;
$Crypt::PWSafe3::Field::VERSION = '1.03';
$Crypt::PWSafe3::Field::VERSION = '1.04';
%Crypt::PWSafe3::Field::map2type = (
uuid => 0x01,
@@ -76,11 +76,11 @@ sub new {
$self->{value} = unpack('H*', $param{raw});
}
elsif (grep { $_ eq $param{type} } @convbyte) {
$self->{value} = unpack('W<*', $param{raw});
$self->{value} = unpack('S<', $param{raw});
}
else {
$self->{value} = $param{raw};
utf8::decode($self->{value});
utf8::decode($self->{value});
}
$self->{len} = length($param{raw});
}
@@ -93,11 +93,11 @@ sub new {
$self->{raw} = pack('H*', $param{value});
}
elsif (grep { $_ eq $param{type} } @convbyte) {
$self->{raw} = pack('W<*', $param{value});
$self->{raw} = pack('S<', $param{value});
}
else {
$self->{raw} = $param{value};
utf8::encode($param{raw});
utf8::encode($param{raw});
}
}
else {
@@ -170,7 +170,7 @@ T. Linden <tlinden@cpan.org>
=head1 COPYRIGHT
Copyright (c) 2011 by T.Linden <tlinden@cpan.org>.
Copyright (c) 2011-2013 by T.Linden <tlinden@cpan.org>.
All rights reserved.
=head1 LICENSE

2
lib/Crypt/PWSafe3/HeaderField.pm
View File

@@ -195,7 +195,7 @@ T. Linden <tlinden@cpan.org>
=head1 COPYRIGHT
Copyright (c) 2011 by T.Linden <tlinden@cpan.org>.
Copyright (c) 2011-2013 by T.Linden <tlinden@cpan.org>.
All rights reserved.
=head1 LICENSE

2
lib/Crypt/PWSafe3/Record.pm
View File

@@ -300,7 +300,7 @@ T. Linden <tlinden@cpan.org>
=head1 COPYRIGHT
Copyright (c) 2011-2012 by T.Linden <tlinden@cpan.org>.
Copyright (c) 2011-2013 by T.Linden <tlinden@cpan.org>.
All rights reserved.
=head1 LICENSE

2
lib/Crypt/PWSafe3/SHA256.pm
View File

@@ -44,7 +44,7 @@ L<Digest::HMAC>
=head1 COPYRIGHT
Copyright (c) 2011 by T.Linden <tlinden@cpan.org>.
Copyright (c) 2011-2013 by T.Linden <tlinden@cpan.org>.
All rights reserved.
=head1 LICENSE