mirror/upx
1
0
Fork 0
mirror of https://github.com/upx/upx synced 2025-09-28 19:06:07 +08:00
Code Issues Releases Wiki Activity

Compute an adler32 checksum.

Browse Source 
committer: mfx <mfx> 980609412 +0000
This commit is contained in:
Markus F.X.J. Oberhumer 2001-01-27 15:30:12 +00:00
parent 99f0f0120b
commit c7f12f3a74
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/stub/scripts/bin2h.pl
View File

@ -89,6 +89,11 @@ print <<"EOF";
EOF
}
$s = $ident;
$s =~ tr/a-z/A-Z/;
$s .= "_ADLER32";
printf("#define %s 0x%08x\n\n", $s, &adler32($data));
printf("unsigned char %s[%d] = {", $ident, $n);
for ($i = 0; $i < $n; $i++) {
if ($i % 16 == 0) {
@ -113,4 +118,26 @@ select(STDOUT);
undef $delim;
exit(0);
# /***********************************************************************
# //
# ************************************************************************/
sub adler32 {
local($d) = @_;
local($n) = length($d);
local($i);
local($s1) = 1;
local($s2) = 0;
for ($i = 0; $i < $n; $i++) {
$s1 += ord(substr($d, $i, 1));
$s2 += $s1;
$s1 %= 65521;
$s2 %= 65521;
}
return ($s2 << 16) | $s1;
}
# vi:ts=4:et