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 pack/unpack formats to use strictly little-endian values as required

Browse Source 
by database format
This commit is contained in:
git@daemon.de
2012-11-27 17:41:49 +01:00
parent 37b3bf567d
commit fca71efd62
3 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/Crypt/PWSafe3.pm
View File

@@ -22,13 +22,15 @@ use Data::Dumper;
use Exporter ();
use vars qw(@ISA @EXPORT);
$Crypt::PWSafe3::VERSION = '1.07';
$Crypt::PWSafe3::VERSION = '1.08';
use Crypt::PWSafe3::Field;
use Crypt::PWSafe3::HeaderField;
use Crypt::PWSafe3::Record;
use Crypt::PWSafe3::SHA256;
require 5.10.0;
#
# check, which random source to use.
# install a wrapper closure around the
@@ -204,7 +206,7 @@ sub read {
}
$this->salt( $this->readbytes(32) );
$this->iter( unpack("V", $this->readbytes(4) ) );
$this->iter( unpack("L<", $this->readbytes(4) ) );
$this->strechedpw($this->stretchpw($this->password()));
@@ -324,7 +326,7 @@ sub save {
$this->addheader($whosaved);
my $tmpfile = File::Spec->catfile(File::Spec->tmpdir(),
".vault-" . unpack("H*", $this->random(16)));
".vault-" . unpack("L<4", $this->random(16)));
unlink $tmpfile;
my $fd = new FileHandle($tmpfile, 'w') or croak "Could not open tmpfile $tmpfile: $!\n";
$fd->binmode();
@@ -332,7 +334,7 @@ sub save {
$this->writebytes($this->tag);
$this->writebytes($this->salt);
$this->writebytes(pack("V", $this->iter));
$this->writebytes(pack("L<", $this->iter));
$this->strechedpw($this->stretchpw($passwd));
@@ -423,7 +425,7 @@ sub writefield {
return;
}
my $len = pack("V", $field->len);
my $len = pack("L<", $field->len);
my $type = pack("C", $field->type);
my $raw = $field->raw;
@@ -585,7 +587,7 @@ sub readfield {
#print "clear: <" . unpack('H*', $data) . ">\n";
my $len = unpack("V", substr($data, 0, 4));
my $len = unpack("L<", substr($data, 0, 4));
my $type = unpack("C", substr($data, 4, 1));
my $raw = substr($data, 5);
@@ -950,7 +952,7 @@ and/or modify it under the same terms as Perl itself.
=head1 VERSION
Crypt::PWSafe3 Version 1.07.
Crypt::PWSafe3 Version 1.08.
=cut