scip/Crypt--PWSafe3
1
0
Fork 0
mirror of https://codeberg.org/scip/Crypt--PWSafe3.git synced 2025-12-16 20:21:01 +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/HeaderField.pm
View File

@@ -65,13 +65,13 @@ sub new {
if (exists $param{raw}) {
if ($param{type} == 0x00) {
$self->{value} = unpack('H*', $param{raw});# maybe WW or CC ?
$self->{value} = unpack('L<2', $param{raw});# maybe WW or CC ?
}
elsif ($param{type} == 0x01) {
$self->{value} = unpack('H*', $param{raw});
$self->{value} = unpack('L<4', $param{raw});
}
elsif ($param{type} == 0x04) {
$self->{value} = unpack('V', $param{raw});
$self->{value} = unpack('L<', $param{raw});
}
else {
$self->{value} = $param{raw};
@@ -81,13 +81,13 @@ sub new {
else {
if (exists $param{value}) {
if ($param{type} == 0x00) {
$self->{raw} = pack("H*", $param{value});
$self->{raw} = pack("L<2", $param{value});
}
elsif ($param{type} == 0x01) {
$self->{raw} = pack('H*', $param{value});
$self->{raw} = pack('L<4', $param{value});
}
elsif ($param{type} == 0x04) {
$self->{raw} = pack('V', $param{value});
$self->{raw} = pack('L<', $param{value});
}
else {
$self->{raw} = $param{value};