proxmox-mirrors/pve-common
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-common synced 2025-07-27 15:19:17 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

add FVN digest

Browse Source 
Userful for short strings.
This commit is contained in:
Dietmar Maurer 2014-05-28 10:27:03 +02:00
parent 1dad1ca5b9
commit 2d3bca34dd
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
data/PVE/Tools.pm
View File

@ -1019,4 +1019,26 @@ sub assert_if_modified {
}
}
# Digest for short strings
# like FNV32a, but we only return 31 bits (positive numbers)
sub fnv31a {
my ($string) = @_;
my $hval = 0x811c9dc5;
foreach my $c (unpack('C*', $string)) {
$hval ^= $c;
$hval += (
(($hval << 1) ) +
(($hval << 4) ) +
(($hval << 7) ) +
(($hval << 8) ) +
(($hval << 24) ) );
$hval = $hval & 0xffffffff;
}
return $hval & 0x7fffffff;
}
sub fnv31a_hex { return sprintf("%X", fnv31a(@_)); }
1;