swg-source/swg-main
1
0
Fork 0
mirror of https://github.com/SWG-Source/swg-main.git synced 2026-01-16 20:04:18 -05:00
Code Issues Projects Releases Wiki Activity

Fixed CRC calculation in Perl module to match server CRC calc

Browse Source
This commit is contained in:
Cekis
2019-10-04 11:50:29 -04:00
parent aeadb931a1
commit f0df57b92a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tools/perllib/Crc.pm
View File

@@ -72,15 +72,15 @@ sub calculate
my $string = $_[0];
return 0 if ($string eq "");
my $crc_init = hex("0xffffffff");
my $crc_init = hex("0xffffffff") & 0xffffffff;
my $crc = $crc_init;
foreach (split(//, $string))
{
$crc = $crctable[(($crc>>24) ^ ord($_)) & 255] ^ ($crc << 8);
$crc = ($crctable[(($crc>>24) ^ ord($_)) & 255] ^ ($crc << 8) & 0xffffffff);
}
return $crc ^ $crc_init;
return $crc ^ $crc_init & 0xffffffff;
}
# =====================================================================