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

address issue#10: in Crypt::Random mode, use integer output directly, use correct size

Browse Source
This commit is contained in:
Thomas von Dein
2017-10-04 11:44:03 +02:00
parent 32e12aa64c
commit b51bb9f89e
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Crypt/PWSafe3.pm
View File

@@ -58,9 +58,8 @@ BEGIN {
}
else {
*Crypt::PWSafe3::random = sub {
my($this, $len) = @_;
my $bits = makerandom(Size => 256, Strength => 1);
return substr($bits, 0, $len);
my($this, $len) = @_;
return makerandom(Size => $len * 8, Strength => 1, Uniform => 1);
};
}
}