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

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

@@ -70,13 +70,13 @@ sub new {
if (exists $param{raw}) {
if (grep { $_ eq $param{type} } @convtime) {
$self->{value} = unpack("V", $param{raw});
$self->{value} = unpack("L<", $param{raw});
}
elsif (grep { $_ eq $param{type} } @convhex) {
$self->{value} = unpack('H*', $param{raw});
$self->{value} = unpack('L<4', $param{raw});
}
elsif (grep { $_ eq $param{type} } @convbyte) {
$self->{value} = unpack('W*', $param{raw});
$self->{value} = unpack('W<*', $param{raw});
}
else {
$self->{value} = $param{raw};
@@ -87,13 +87,13 @@ sub new {
else {
if (exists $param{value}) {
if (grep { $_ eq $param{type} } @convtime) {
$self->{raw} = pack("V", $param{value});
$self->{raw} = pack("L<", $param{value});
}
elsif (grep { $_ eq $param{type} } @convhex) {
$self->{raw} = pack('H*', $param{value});
$self->{raw} = pack('L<4', $param{value});
}
elsif (grep { $_ eq $param{type} } @convbyte) {
$self->{raw} = pack('W*', $param{value});
$self->{raw} = pack('W<*', $param{value});
}
else {
$self->{raw} = $param{value};